Excel mit SendMessage ohne Speicher-Nachfrage beenden

[Ykcim]

Ich habe mich für die SendMessage-Variante entschieden, weil ich verhindern wollte, dass dem User andere geöffnete Excel-Applikationen ungefragt geschlossen werden. Sonst hätte ich das über das Workbook gemacht. Aber die Nachfrage killt meinen Plan, weil das nicht handlebar für den Benutzer ist, immer erst in Excel auf "NEIN" zu klicken...

[Forensiker]

SendMessage(h, WM_DESTROY, 0, 0) ?

[Bernhard Geyer]

Dann schließe halt nur das gewünschte Workbook

Delphi-Quellcode:

  FWorkBook := FExcel.WorkBooks.Open(FileName, False, True);   
  ...
  FWorkBook.Close(SaveChanges:=False);

[Forensiker]

Zitat:

Dann schließe halt nur das gewünschte Workbook

Zitat:

Jetzt habe ich aber das Problem, dass Excel fragt, ob die Datei gespeichert werden soll.

Dann kommt die abfrage später, spätestens dann wenn Exel geschlossen wird.

[Bernhard Geyer]

Zitat von Forensiker:

Zitat:

Dann schließe halt nur das gewünschte Workbook

Zitat:

Jetzt habe ich aber das Problem, dass Excel fragt, ob die Datei gespeichert werden soll.

Dann kommt die abfrage später, spätestens dann wenn Exel geschlossen wird.

Also wir nutzen das mit

FWorkBook.Close(SaveChanges:=False); schon Jahrelang und haben noch nie eine Nachfrage gesehen.

Hast du denn auch SaveChanges:=False drin in deinem Code?

[Forensiker]

http://www.office-loesung.de/ftopic55819_0_0_asc.php
https://groups.google.com/forum/#!to...el/hXokhMegNuc

[ghubi01]

Hallo,

um andere Excel-Anwendungen nicht in die Quere zu kommen, öffne doch kurzzeitig einene neue Instanz von Excel die nach dem Drucken wieder geschlossen wird.

Delphi-Quellcode:

procedure TExcelExport.ShowTemp(Pfad: string; Drucken: boolean);
var
  ExcelApp: OleVariant;
begin
  ExcelApp:=CreateOleObject('Excel.Application');
  ExcelApp.Visible:=True;
  ExcelApp.WorkBooks.open(Pfad);

  //Hier drucken oder auch nicht

  ExcelApp.DisplayAlerts:=False; // schaltet die unerwünschte Nachfrage ab
  //ExcelApp.WorkBooks.close;  // schliesst nur das Workbook
  ExcelApp.Quit; // schliesst die Excel-Inszanz wieder
end;

[Ykcim]

Kurze Frage:

Zitat:

FWorkBook := FExcel.WorkBooks.Open(FileName, False, True);
...
FWorkBook.Close(SaveChanges:=False);

Was sind FWorkbook und FExcel für Typen? OleVariant?
Den Befehl Close(SaveChanges...) habe ich nämlich nicht...

Danke Patrick

[Bernhard Geyer]

Zitat von Ykcim:

Kurze Frage:

Zitat:

FWorkBook := FExcel.WorkBooks.Open(FileName, False, True);
...
FWorkBook.Close(SaveChanges:=False);

Was sind FWorkbook und FExcel für Typen? OleVariant?
Den Befehl Close(SaveChanges...) habe ich nämlich nicht...

Danke Patrick

Ja. Bei später Bindung ist es identisch. Nur das hier dann "SaveChanges" evtl. der 5te Parameter der Close-Methode ist und du die 4 zuvor passend belegen musst.