Excel spreadsheet ändern mit OLE - Fehler-handling

Excel spreadsheet ändern mit OLE - Fehler-handling

Hallo,

Ich habe ein kleines Programm geschrieben, das in einer Excel Datei eine Zelle ändern soll. Es funktioniert auch gut - ich habe nur ein Problem, wenn die Datei gerade mit Excel geöffnet ist.

Natürlich kann ich dann die Änderung nicht durchführen, und das Programm liefert auch die entsprechende Fehlermeldung. Aber wenn ich anschließend Excel schließe, kommt folgendes Popup hoch:

Test.xls ist jetzt zum Bearbeiten verfügbar.
Wählen Sie Lesen-Schreiben, um die Datei zum Bearbeiten zu öffnen.

Ich kann aber gar nichts wählen, nur den Excel-Prozeß schließen. Wie kann ich dieses Popup unterdrücken?

Hier der wesentliche Teil des Codes:

create object h_excel 'Excel.Application'.
set property of h_excel 'Visible' = excel_false.
call method of h_excel 'Workbooks' = h_book.
call method of h_book 'OPEN' exporting #1 = p_file.
get property of h_excel 'ACTIVEWORKBOOK' = h_book.
get property of h_book 'ReadOnly' = locked.
if locked = excel_false.
call method of h_excel 'CELLS' = zelle
exporting #1 = zeile #2 = p_spalte.
set property of zelle 'VALUE' = wert_teuro.
free object zelle.
call method of h_book 'Save'.
else. .
write: 'Die Mappe ist durch einen anderen Benutzer gesperrt'.
endif.
free object h_book.
call method of h_excel 'Quit'.
free object h_excel.

Hallo Andreas,

Das Problem mit dem Doppelclick habe ich auch. Offensichtlich läßt das Programm noch einen Prozeß excel.exe im NT zurück. Wenn ich den im Task-Manager stoppe, ist alles wieder ok - unbefriedigend, aber immerhin schneller als Durchstarten des PC.

Danke Hans-Herrmann,

-> klappt
ich hatte alle free-Befehle gesetzt, außer den auf h_save.


lg Andreas