Excel: Workbooks.Open schlägt fehl

**Mamphil**

Hallo,

ich verwende eine TExcelApplication (ExcelApplication), um eine Excel-Tabelle mit Delphi 7 zu öffnen und Daten zu extrahieren. Auf meinem Rechner (Entwicklungsumgebung, Excel XP installiert) funktioniert auch alles einwandfrei.

Auf einem zweiten Rechner (keine Entwicklungsumgebung, Excel 2000) gibt es mit dem Verbinden zu Excel per XLApp.Connect; kein Problem, erst das Öffnen mit XLApp.Workbooks.Open(...) bricht mit einer Fehlermeldung "Zugriffsverletzung bei Adresse 00000000. Lesen von Adresse 00000000 fehlgeschlagen." ab bzw. bleibt im try-except-Block hängen.

Hier der verwendete Code:

zusammenfalten · markieren

Delphi-Quellcode:

			try

  XLApp.Connect;

except

  MessageDlg('Excel konnte nicht gestartet werden!', mtError, [mbOK], 0);

  Application.Terminate;

end;

try

  XLApp.Workbooks.Open(XLDialog.FileName, EmptyParam, EmptyParam, EmptyParam,

    EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam,

    EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, GetUserDefaultLCID());

except

  MessageDlg('Die Datei konnte nicht geöffnet werden!', mtError, [mbOK], 0);

  Application.Terminate;

end;

XLApp.Quit;

XLApp.Disconnect;

MessageDlg('Datei wurde geöffnet!', mtInformation, [mbOK], 0);

Ich würde mich freuen, wenn ihr Hinweise zur Fehlersuche habt!

Vielen Dank und viele Grüße,
Mamphil

PS: Da ich keinen direkten Zugriff auf den Problemrechner habe, habe ich den problembehafteten Code aus dem eigentlichen Programm herauskopiert und hoffe, dass der Fehler auf dem Gerät trotzdem auftreten würde...

Excel: Workbooks.Open schlägt fehl

Excel: Workbooks.Open schlägt fehl

Forumregeln