Форум: "Основная";
Текущий архив: 2002.10.17;
Скачать: [xml.tar.bz2];
Внизиспользование 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]не пашет
← →
andrey_pst (2002-10-07 12:49) [7]у этого интерфейса нет свойства Cell.
Исследуйте файл
c:\program files\borland\delphi5\ocx\servers\excel97.pas
и подберите себе нужный интерфейс (диспинтерфейс).
А чем Range - то не устраивает ?
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.10.17;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.008 c