Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2011.09.25;
Скачать: CL | DM;

Вниз

Прочитать из Excel данные   Найти похожие ветки 

 
zhurik ©   (2007-04-05 14:32) [0]

Работаю в Delphi 2005, OC W_XP, Office 2003.
в uses прописал ComObj;

Далее в процедуре :

E:=CreateOleObject("Excel.Application");
E.Visible:=True;
E.WorkBooks.Open ("e:\tir.xls");
все открывает, но при попытке чего то сделать, например:

E.WorkBooks.Add("c:\test.xls");

получаю сообщение:
Project Spis_7.exe raised exception class EOleError with message "Method "WorkBook" not supported by automation object".

может чего не доустановлено? или...?


 
umbra ©   (2007-04-05 14:40) [1]


> EOleError with message "Method "WorkBook" not supported
> by automation object".

в приведенном коде нет метода WorkBook


 
zhurik ©   (2007-04-05 15:22) [2]

будешь смеятся но сейчас заработало, ничего не менял, данные из Excel получаю. Это плохо, я так и не понял почему заработало :(


 
umbra ©   (2007-04-05 15:41) [3]

включаем телепатор:
скорее всего потому, что после

E.WorkBooks.Add("c:\test.xls");

делал что-то вроде

E.Workbooks(1)....

вместо правильного

E.Workbooks[1]....


 
TStas ©   (2007-04-08 14:53) [4]

А вот почему: Вы отлаживали прогу, она открывает эксели, а они открываю какие-то книги. Если в экселе уже открыта книга с именем "Книга1.xls", то при повторм ее открытии будет глюк. Вот и все. В памяти висел еще один эксель, он-то и вызывал глюки. Я с этим много раз сталкивался. Пришлось узнавать, как убивать лишние эксели.



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

Текущий архив: 2011.09.25;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.009 c
2-1307420263
Sergey
2011-06-07 08:17
2011.09.25
Как перевести каретку в мемо в конец строки?


1-1266349494
LightGreen
2010-02-16 22:44
2011.09.25
Деактивация формы при клике на popup-окне


1-1267021784
nokla user
2010-02-24 17:29
2011.09.25
Окно копирования windows


15-1305557376
Kerk
2011-05-16 18:49
2011.09.25
Подскажите с настройкой фильтров Outlook


4-1250595955
pirate
2009-08-18 15:45
2011.09.25
Alt+MouseUp