ExcelApplication

← →
edicon © (2003-05-11 00:28) [0]

Приветствую мастера Delphi!!! Вопрос по ExcelApplication.
Уделите пять мин. (мне требуется только небольшой пример кода, можно без комментариев, ссылок, пожалуйста, не надо.)
1. Открыть с помощью ExcelApplication шаблон 1.XLT (это шаблон Excel)
2. Заполнить ячейку B12 фразой: «Привет!»
3. Сохранить документ под именем 2.XLS (простой документ Excel)

Заранее всем спасибо!

← →
Palladin © (2003-05-11 00:43) [1]

не знаю что там с шаблонами, но

var
OVStr,
xlApp:OleVariant;
begin
xlApp:=CreateOleObject("Excel.Application");
OVStr:="1.xls";
xlApp.WorkBooks.Open(OVStr);
xlApp.Cells[12,2].value:="Hello";
OVStr:="2.xls";
xlApp.ActiveWorkBook.SaveAs(OVStr);
xlApp.Quit;
FreeAndNil(xlApp);
end;

И всеже ссылочку посмотри - http://delphibase.endimus.com/?action=viewtopic&topic=winoffice

не убудет.

ExcelApplication Найти похожие ветки