Excel mit SendMessage ohne Speicher-Nachfrage beenden

[Ykcim]

Hallo Zusammen,

ich mache eine Tabellen-Ausdruck mit Excel und möchte nach dem Ausdruck Excel wieder schließen. Dazu suche ich mir das entsprechende Fenster und gebe dann über SendMessage den Schliesse-Befehl.

Jetzt habe ich aber das Problem, dass Excel fragt, ob die Datei gespeichert werden soll. Kann ich das mit SendMessage umgehen?

Delphi-Quellcode:

procedure TExcelExport.ShowTemp(Pfad: string; Drucken: boolean);
var   h: hwnd;
begin
   OpenTemp;
   FExcelApp.Workbooks.open(pfad);
   if Drucken then begin
      FExcelApp.Worksheets.PrintOut;
      h := FindWindowByTitle(copy(pfad, Length(pfad)-25,21)); //Hier wird das entsprechende Fenster gesucht
      if h <> 0 then 
         SendMessage(h, WM_SYSCOMMAND, SC_CLOSE, 0)  // und hier schließe ich es. Gibt es hier einen Parameter, der die Speicherfrage unterdrückt?
      else
         ShowMessage('not found.');
   end
   else begin
      FExcelApp.Visible := True;
   end;
end;

Vielen Dank
Patrick

[Neutral General]

Wahrscheinlich nur hart mit TerminateProcess

[jfheins]

Hat dein Excel Workbook eventuell eine Close Methode?

Delphi-Quellcode:

FExcelApp.Workbooks.Close(false)

?

https://docs.microsoft.com/en-us/off...workbook.close

[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]

Delphi-Quellcode:

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:

Zitat von Forensiker (Beitrag 1438815)

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

Delphi-Quellcode:

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;