Einzelnen Beitrag anzeigen

Benutzerbild von Mamphil
Mamphil

Registriert seit: 17. Jul 2004
Ort: Garching b. München
149 Beiträge
 
Delphi 7 Professional
 
#1

Excel: Workbooks.Open schlägt fehl

  Alt 14. Jul 2007, 22:09
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:
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...
Angehängte Dateien
Dateityp: zip excelproblem_904.zip (227,2 KB, 7x aufgerufen)
The laws of physics are the canvas God laid down on which to paint his masterpiece. “Leonardo Vetra” in Dan Brown’s “Angels & Demons”
  Mit Zitat antworten Zitat