| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Exel [D6]

Сергей Г ©   (2004-07-17 09:00:00) 

Доброго всем время суток!
Уважаемые мастера подскажите пожалуйста как в exel таблицу (1.xls) в лист 1 (Лист1) в ячейку А1 записать еденицу (1).

---

DSKalugin   (2004-07-17 12:40:00) [1]


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;


---

gyimi   (2004-07-17 10:44:00) [2]

"По волнам интеграции 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

---

Наверх