Excel schliessen ohne Speicherabfrage - PureDisphelper
Verfasst: 14.05.2008 20:43
Hallole,
ich habe mit Hilfe von dem Forum hier ein Programm geschrieben, dass sich mit Excel und PureDisphelper befasst.
Nun habe ich das Programm umgeändert. Jetzt taucht da immer die Anzeige auf mit dem Hinweis: "Ob man die Exceltabelle vor dem Schliessen speichern will"
Ich will aber das die Exceltabelle ohne speichern geschlossen wird, da ich es mit einigen Links verbunden habe, die beim Öffnen sowieso aktuallisiert werden.
Wie kann ich die Abfrage "Speichern vor dem Schliessen" verhindern da das Ganze später über einen Timer automatisch ablaufen soll. Z. B. alle 5 Minuten soll das Ganze gestartet werden, Excel starten - Werte auslesen - Werte in eine Textdatei reinschreiben Excel schliessen ohne die Abfrage:"Soll die Datei gespeichert werden"?
Habe dieses im Programm:
ich habe mit Hilfe von dem Forum hier ein Programm geschrieben, dass sich mit Excel und PureDisphelper befasst.
Nun habe ich das Programm umgeändert. Jetzt taucht da immer die Anzeige auf mit dem Hinweis: "Ob man die Exceltabelle vor dem Schliessen speichern will"
Ich will aber das die Exceltabelle ohne speichern geschlossen wird, da ich es mit einigen Links verbunden habe, die beim Öffnen sowieso aktuallisiert werden.
Wie kann ich die Abfrage "Speichern vor dem Schliessen" verhindern da das Ganze später über einen Timer automatisch ablaufen soll. Z. B. alle 5 Minuten soll das Ganze gestartet werden, Excel starten - Werte auslesen - Werte in eine Textdatei reinschreiben Excel schliessen ohne die Abfrage:"Soll die Datei gespeichert werden"?
Habe dieses im Programm:
Code: Alles auswählen
Procedure CloseWorkbook(*obj)
Protected Workbook.l
dhGetValue("%o", @Workbook, *obj, ".ActiveWorkbook")
If Workbook
dhCallMethod(Workbook, ".Close"); Excel Worksheet schliessen
dhReleaseObject(Workbook)
EndIf
EndProcedure
Procedure CloseExcelAll(*obj)
dhCallMethod(*obj, ".Quit"); Excel schliessen
dhReleaseObject(*obj):*obj = 0
EndProcedure
CloseWorkbook(ExcelApp); schliesst Excelseite um andere Seiten zu bearbeiten
ExcelVisible(ExcelApp,2) ;wenn Excel sichtbar sein soll: "1"
CloseExcelAll(ExcelApp); um Excel zu schliessen