Текущий архив: 2004.08.01;
Скачать: CL | DM;
Вниз
Exel Найти похожие ветки
← →
Сергей Г (2004-07-17 09:00) [0]Доброго всем время суток!
Уважаемые мастера подскажите пожалуйста как в exel таблицу (1.xls) в лист 1 (Лист1) в ячейку А1 записать еденицу (1).
← →
gyimi (2004-07-17 10:44) [1]"По волнам интеграции 1,2,3":
http://www.delphikingdom.ru/asp/viewitem.asp?catalogid=249
http://www.delphikingdom.ru/asp/viewitem.asp?catalogid=272
http://www.delphikingdom.ru/asp/viewitem.asp?catalogid=313
← →
DSKalugin © (2004-07-17 12:40) [2]
implementation
uses StrUtils,windows, Variants, Classes, SysUtils, ShellApi,
OleServer,COMObj,OleCtnrs,ActiveX;
var ExcelApp, Workbook, WorkSheet: OLEVariant;
Procedure SET_1;
begin
ExcelApp := CreateOleObject("Excel.Application");
ExcelApp.Visible := False;
ExcelApp.Application.EnableEvents := false;
Workbook:=ExcelApp.WorkBooks.Open(1.xls);
WorkSheet := Workbook.Worksheets[1];
WorkSheet.Cells[1,1]:="1";
WorkSheet.Cells[1,1].Font.Size:=26;
WorkSheet.Cells[1,1].Font.Bold:=True;
ExcelApp.Visible := True;
WorkSheet.Activate;
WorkSheet:=Unassigned;
WorkBook:=Unassigned;
ExcelApp:=Unassigned;
end;
Страницы: 1 вся ветка
Текущий архив: 2004.08.01;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.054 c
