Главная страница
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.052 c
4-1116498842
Molchanov
2005-05-19 14:34
2005.07.18
MessageBox в произвольном месте экрана


14-1119768113
Viktop
2005-06-26 10:41
2005.07.18
Халявные FTP


1-1119637492
rolex
2005-06-24 22:24
2005.07.18
Как вычислить уровень itema в TreeView?


14-1119531870
BigMac
2005-06-23 17:04
2005.07.18
ВУЗы


9-1111140209
qwe
2005-03-18 13:03
2005.07.18
3D-город (GlScene)