использование Excel

← →
volph777 (2002-10-07 10:36) [0]

Есть вот кусок кода
try
IExcelApp := CoExcelApplication.Create; // загрузили сервер
//IExcelApp.Visible[xlLCID] := true; // отобразили сервер
IExcelWB := IExcelApp.Workbooks.Open(GetCurrentDir + "\report1.xls", EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, false, xlLCID);
IExcelWB.Activate(xlLCID); // активировали книгу
IExcelWS := IExcelWB.Worksheets.Item["Лист1"] as Excel97._Worksheet; // получили ссылку на лист
IExcelWS.Activate(xlLCID); // активировали лист
DIExcelR:= IExcelWS.Range["A2", "A2"] as Excel97.Range; // получили ссылку на область
DIExcelR.Activate; // активировали область
DIExcelR.Value := "Счет-фактура № "; // записали заголовок
DIExcelR := nil; // освободили область
IExcelWS.Name := "Счет-фактура № "; // переименовали лист
IExcelWS := nil; // освободили лист
IExcelWB.PrintOut(EmptyParam, EmptyParam, 1, false, EmptyParam, false, EmptyParam, xlLCID); // распечатали содержимое
// IExcelWB.SaveAs(Directories + "AccountInvoice_" + IntToStr(NumberAccInv) + ".xls", EmptyParam, EmptyParam, EmptyParam, false, false, xlNoChange, EmptyParam, false, EmptyParam, EmptyParam, xlLCID); // сохранили книгу
IExcelWB.Close(true, "1.xls", false, xlLCID); // закрыли книгу
IExcelWB := nil; // освободили книгу
IExcelApp.Visible[xlLCID] := false; // скрыли сервер
IExcelApp.Quit; // закрыли сервер
IExcelApp := nil; // освободили сервер
except

end;

Почему после его выполнения остается Excel в памяти!?

← →
andrey_pst © (2002-10-07 10:46) [1]

без этой строчки все должно работать нормально:
IExcelWB.PrintOut(EmptyParam, EmptyParam, 1, false, EmptyParam, false, EmptyParam, xlLCID); // распечатали содержимое
Насчет печати: можно попробовать не через интерфейс (диспинтерфейс) книги, а ,допустим, листа или принтера (если таковой имеется).
я когда пример писал эту строку сходу нацарапал - раньше на печать не выводил - не было надобности.

Все интерфейсы (диспинтерфейсы) описаны в файлике Excel97.pas

← →
volph777 (2002-10-07 10:49) [2]

Ок, а как записать данные в ячейку (не область) с цифровыми координатами?

← →
andrey_pst © (2002-10-07 10:52) [3]

не понял, что имеется ввиду
данные - цифровые координаты или
у ячейки цифровые координаты ;) ?

← →
volph777 (2002-10-07 11:02) [4]

ну хочется так (типа)
IExcelWS.Cell[1,2] := "value";

← →
Ghost. © (2002-10-07 11:48) [5]

IExcelWS.Cell[1,2].value:="value";

← →
volph777 (2002-10-07 12:19) [6]

не пашет

у этого интерфейса нет свойства Cell.
Исследуйте файл
c:\program files\borland\delphi5\ocx\servers\excel97.pas
и подберите себе нужный интерфейс (диспинтерфейс).
А чем Range - то не устраивает ?

использование Excel Найти похожие ветки