Variant does not reference an automation object

← →
Chainik (2003-01-08 13:07) [0]

Помогите, плиз, чайнику. Уже переискался. Выдает эту ошибку, когда я пытаюсь достать данные из Excel"я. Хочу просто из экселевского файла (уже существующего) извлечь хоть какие-нибудь данные, т.е. разобраться с этим начальным этапом, а потом уж и дальше разбираться (чтобы извлекать из определенного столбца по какому-то условию). Делаю:
procedure TForm1.Button1Click(Sender: TObject); var vExcel, vWorkSheet: OLEVariant; begin vExcel := CreateOLEObject("Excel.Application"); VExcel.AssignTofile("my.xls"); Edit1.Text:=vExcel.WorkBooks.WorkSheet.Cells[1,1]; Edit1.Text:=vWorkSheet.Cells[1,1]; Edit2.Text:=vWorkSheet.Cells[2,1]; end;
но выдает выше приведенную ошибку. Может я вообще не тем путем иду и это как-то по другому делается.

← →
asmith (2003-01-08 13:15) [1]

А в каком месте ругается? На AssignTofile? Если да, то СОМ объект просто не создан - какие-то проблемы с Excel.

← →
Наталия © (2003-01-08 13:23) [2]

Попробуй так:
vExcel.WorkBooks.open("\rep.xls",true);
Edit1.Text:=vExcel.WorkBooks[1].WorkSheets[1].Cells[1,1];
Здесь
Edit1.Text:=vWorkSheet.Cells[1,1];
Edit2.Text:=vWorkSheet.Cells[2,1];
vWorkSheet разве создан?

← →
Chainik (2003-01-08 13:32) [3]

>to asmith

да, а как это исправить?

← →
Chainik (2003-01-08 13:33) [4]

>to Наталия ©

пробую, пишет что не может найти мой файл - my.xls

← →
Chainik (2003-01-08 13:55) [5]

Ура, все получилось. Наталии огромное спасибо.
Только у меня возник очередной вопрос, вы уж извините.
У меня (Win2000)потом в диспетчере задач зависают в процессах все эти запуски Excel"я. Как тут можно освобождать память?

Задай полный путь

E.Quit;
E:=unassigned;

← →
Chainik (2003-01-08 13:59) [8]

Variant does not reference an automation object Найти похожие ветки