Страница 1 из 2
Чтение из Excel
Добавлено: 20 мар 2007, 10:59
matroskin
Подскажите плз что не так делаю..
Запускается, запускает эксель и... выкидывает ошибку "OLE Error 800A03EC"
Код: Выделить всё
...
function ReadExcel(FileName: string): Boolean;
var XLApp: Variant;
s:string;
begin
XLApp:=CreateOleObject('Excel.Application');
XLApp.Visible:=True;
try
XLApp.WorkBooks.open(filename);
except
XLApp.Quit;
ShowMessage('Cant open Excel file');
end;
s:=XLApp.sheets[1].cells[1,0].text;
XLApp.quit;
end;
..
Re: Чтение из Excel
Добавлено: 20 мар 2007, 12:02
Игорь Акопян
в каком месте ошибка возникает?
Re: Чтение из Excel
Добавлено: 20 мар 2007, 12:25
matroskin
Re: Чтение из Excel
Добавлено: 21 мар 2007, 08:09
LAngel
мне кажется, что cells(1,0) надо с круглыми скобками
Добавлено: 21 мар 2007, 10:02
Dr_Grizzly
Нет, скобки должны быть [ , ]
Вот тебе рабочий пример:
var
serv:variant;
begin
SerV:=CreateOleObject('Excel.Application');
If vartype(Serv)=varDispatch then
If OpenDialog1.Execute then
Serv.Workbooks.Open(OpenDialog1.FileName);
If vartype(Serv)=varDispatch then
Serv.visible:=true;
Edit1.text:=Serv.Workbooks[1].Worksheets[1].Cells[1,1];
If vartype(Serv)=varDispatch then
begin
Serv.Displayalerts:=false;
Serv:=Unassigned;
end;
end;
(просто редактируешь сообщение и всё
ИА)
Re: Чтение из Excel
Добавлено: 21 мар 2007, 14:36
matroskin
Dr_Grizzly, лан, пасиб попробую!=)
а почему у меня то ошибка возникает? я так и не понял..
Re: Чтение из Excel
Добавлено: 21 мар 2007, 14:41
SergeyS
" писал(а):а почему у меня то ошибка возникает? я так и не понял..
найдите десять отличий:
1. Edit1.text:=Serv.Workbooks[1].Worksheets[1].Cells[1,1];
2. s:=XLApp.sheets[1].cells[1,0].text;
Re: Чтение из Excel
Добавлено: 22 мар 2007, 13:12
Лелик_1044
Как просмотреть файл excel на формк
Открываю файл и он отображается у меня на форме
Re: Чтение из Excel
Добавлено: 29 мар 2007, 12:28
Dr_Grizzly
Цитата:
Открываю файл и он отображается у меня на форме
Не совсем пойму, как это ты так открываешь файл??? Кинь код программы, поглядим.
Re: Чтение из Excel
Добавлено: 29 мар 2007, 14:14
SergeyS
" писал(а):Как просмотреть файл excel на формк
Открываю файл и он отображается у меня на форме
используй TOleContainer