Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.059 c
14-1089859275
КаПиБаРа
2004-07-15 06:41
2004.08.01
Это -=Авто=- эпидемия?


4-1087995049
Samael6
2004-06-23 16:50
2004.08.01
Хук на закрытие и свертывание окна


6-1086249505
AnatolyP
2004-06-03 11:58
2004.08.01
Клиент-серверное приложение с поддержкой БД


1-1090243759
ruslan
2004-07-19 17:29
2004.08.01
Forma poyavilos plavno


14-1089968289
syte_ser78
2004-07-16 12:58
2004.08.01
покупать или нет?