Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.027 c