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

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

Excel

White__ ©   (2004-10-12 18:49:00) 

Как сделать так чтобы запустился Excel и в нем создалась  ExcelWorkbook?

---

YurikGL   (2004-10-12 20:58:00) [1]

> White__   (12.10.04 20:27) [6]
> Пример не очень показателен, если можно покажите проще,
> т.к. с OLE работаю впервые. если возможно то с Delphi7

yandex+TExcelApplication.

---

White__   (2004-10-12 20:27:00) [2]

Пример не очень показателен, если можно покажите проще, т.к. с OLE работаю впервые. если возможно то с Delphi7

---

YurikGL   (2004-10-12 19:59:00) [3]

http://www.delphimaster.ru/cgi-bin/forum.pl?n=0&search=excel

---

White__   (2004-10-12 19:56:00) [4]

Спасибо а как это сделать используя компоненты(Servers)?

---

hooky-mars   (2004-10-12 19:12:00) [5]

> XLApp := GetActiveOleObject


А что это?

---

DmitryMN   (2004-10-12 19:05:00) [6]

var
   XLApp:Variant;
   WorkSheet: Variant;
   idxWB:integer;
   a,b: integer;

begin

try
XLApp := GetActiveOleObject  
except
XLApp := CreateOleObject('Excel.Application');
end;

XLApp.Workbooks.Open('File.xls');
idxWB := XLApp.Workbooks.Count;
WorkSheet := XLApp.Workbooks[idxWB].WorkSheets[1];

...

а дальше :

a := WorkSheet.Cells[1,1]; //чтение

WorkSheet.Cells[1,2] := a; //запись

---

hooky-mars   (2004-10-12 19:04:00) [7]


Uses ...,ComObj,...
...
var
XLApp,Sheet:Variant;
begin
XLApp:= CreateOleObject('Excel.Application');
XLApp.Visible:=true;
XLApp.Workbooks.Add(-4167);
...


---

Наверх