Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.07.18;
Скачать: CL | DM;

Вниз

COM-надстройки для Excel   Найти похожие ветки 

 
Катерина   (2005-07-01 11:04) [0]

У меня написана программа, преобразующая в выделенных ячейках Excel`я даты в строковый формат:

program Excel_DateToStr;

uses Forms, ComObj, SysUtils, Variants;

{$R *.res}

var xls, sht : variant; DateStr : string;
   i,j, i1,j1 : integer;

begin
 Application.Initialize;

 xls := CreateOleObject("Excel.Application");
 xls.Workbooks.open("C:\Programs\Excel\Книга6.xls");
 xls.Visible := true;
 sht := xls.ActiveSheet;

 i1 := xls.Selection.Row;
 j1 := xls.Selection.Column;

 For i := i1 To i1 + xls.Selection.Rows.Count - 1 do
   For j := j1 To j1 + xls.Selection.Columns.Count - 1 do
   begin
     DateStr := DateToStr(sht.Cells[i, j].Value);
     sht.Cells[i, j].NumberFormat := "@";
     sht.Cells[i, j].Value := DateStr;
   end;

 xls := UnAssigned;

end.


Мне бы надо, чтобы программа работала с уже открытой, активной книгой Excel`я, запускалась из него и была "прописана" как "надстройки для модели COM...". Литературы, хелпов, как это сделать, я не нашла. Может кто что-нибудь посоветует или даст ссылку на литературу. EXCEL 2000


 
Digitman ©   (2005-07-01 11:11) [1]

не проще ли реализовать свой алгоритм в "родном" для Ёхеля xla-формате ?


 
Катерина   (2005-07-01 12:28) [2]

Проще (это реализовано уже давно), но мне хотелось бы разобраться именно с "надстройками для модели СОМ..."


 
Digitman ©   (2005-07-01 12:43) [3]


> мне хотелось бы разобраться именно с "надстройками для модели
> СОМ..."


тогда твоя текущая реализация никак не годится для этой цели

из лит-ры могу порекомендовать книгу "Разработка СОМ-приложений в среде Delphi", автор - Эрик Хармон

http://books.dore.ru/bs/f1bid1417.html

заметь, что даже реализовав свое приложение в виде СОМ-объекта и подключив его в кач-ве "надстройки", тебе все равно так или иначе придется обращаться к этому объекту программно из VBA-кода, чтобы управлять этим объектом (вызывать его методы, обращаться к свойствам)


 
k2 ©   (2005-07-01 12:50) [4]

http://www.compress.ru/Temp/1771/index.htm
"Если бы Тенцера небыло, его следовало бы выдумать" не знаю чье


 
k2 ©   (2005-07-01 12:55) [5]

зы.сказано было не про Анатолия а зря



Страницы: 1 вся ветка

Текущий архив: 2005.07.18;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.069 c
1-1119938713
drakena
2005-06-28 10:05
2005.07.18
Обработка KeyDown


1-1120025152
rooker
2005-06-29 10:05
2005.07.18
главное окно программы


14-1119526376
Магнум
2005-06-23 15:32
2005.07.18
Pocket PC


1-1119693968
Duck
2005-06-25 14:06
2005.07.18
Освобождение памяти


14-1119696103
Ники
2005-06-25 14:41
2005.07.18
Формула