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...
The laws of physics are the canvas God laid down on which to paint his masterpiece. “Leonardo Vetra” in Dan Brown’s “Angels & Demons”