Форум: "Основная";
Текущий архив: 2004.08.01;
Скачать: [xml.tar.bz2];

Вниз

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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.035 c