Страница 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
эм.. на этой строчке

Код: Выделить всё

   s:=XLApp.sheets[1].cells[1,0].text;

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
&quot писал(а):а почему у меня то ошибка возникает? я так и не понял..
найдите десять отличий:
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
&quot писал(а):Как просмотреть файл excel на формк
Открываю файл и он отображается у меня на форме
используй TOleContainer