Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2004.10.31;
Скачать: [xml.tar.bz2];

Вниз

Excel   Найти похожие ветки 

 
White__   (2004-10-12 18:49) [0]

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


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


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


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

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:12) [3]


> XLApp := GetActiveOleObject


А что это?


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

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


 
YurikGL ©   (2004-10-12 19:59) [5]

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


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

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


 
YurikGL ©   (2004-10-12 20:58) [7]


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

yandex+TExcelApplication.



Страницы: 1 вся ветка

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

Наверх




Память: 0.45 MB
Время: 0.038 c
4-1096337566
Laymer
2004-09-28 06:12
2004.10.31
Меню пуск.


14-1097154874
Vlad Oshin
2004-10-07 17:14
2004.10.31
http://www.photosight.ru/pforum/printthread.php?Cat=&Board=photo_


14-1096930070
NiceManiac
2004-10-05 02:47
2004.10.31
Ламоразмы и обшибки.


6-1092818854
Klopan
2004-08-18 12:47
2004.10.31
TServerSocket


1-1097609980
Saintdmitry
2004-10-12 23:39
2004.10.31
Delphi bugs





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский