Excel mit SendMessage ohne Speicher-Nachfrage beenden

[Chemiker]

Hallo Ykcim,

hier eine Routine die das Workbook ausdruckt, ich habe nur die Seitenansicht angestellt. Da eine neue Excel - Instanz geöffnet wird sind keine Probleme mit anderen Excel - Instanzen die geöffnet sind zu erwarten.

Delphi-Quellcode:

procedure Excel_Export(DateiName: TFileName; Drucken: boolean);
var
  oEXCEL : OLEVariant;
begin
  try
    oEXCEL := CreateOleObject('Excel.Application');
  except
    ShowMessage('Excel konnte nicht gestartet werden !');
    Exit;
  end;
  oEXCEL.Visible:= TRUE;
  oEXCEL.Workbooks.Open (Filename:=DateiName,ReadOnly:=TRUE);
  if Drucken then
  begin
    oExcel.ActiveSheet.PrintOut (Preview:=TRUE); //Seitenansicht angestellt
  end;
  if  NOT VarIsEmpty(oEXCEL) then
  begin
    oEXCEL.ActiveWorkBook.Saved:= TRUE;
    oEXCEL.Quit;
    oEXCEL:= Unassigned;
  end;
end;

Bis bald Chemiker

[Ykcim]

Hallo Zusammen,

vielen Dank für die Hilfe. Ich konnte es damit lösen.
Die Zeile ExcelApp.DisplayAlerts:=False; brachte den gewünschten Erfolg.

So sieht die ganze Procedure aus:

Delphi-Quellcode:

procedure TExcelExport.ShowTemp(Pfad: string; Drucken: boolean);
var   h: hwnd;
begin
   OpenTemp;
   FWorkBook :=FExcelApp.Workbooks.open(pfad);
   if Drucken then begin
      FExcelApp.Worksheets.PrintOut;
      FExcelApp.DisplayAlerts:=False;
      h := FindWindowByTitle(copy(pfad, Length(pfad)-25,21));
      if h <> 0 then 
         SendMessage(h, WM_SYSCOMMAND, SC_CLOSE, 0)
      else
         ShowMessage('not found.');
   end
   else begin
      FExcelApp.Visible := True;
   end;
end;

Vielen Dank
Patrick

[Delphi.Narium]

Zitat von Ykcim:

Hallo Zusammen,

vielen Dank für die Hilfe. Ich konnte es damit lösen.
Die Zeile ExcelApp.DisplayAlerts:=False; brachte den gewünschten Erfolg.

So sieht die ganze Procedure aus:

Delphi-Quellcode:

procedure TExcelExport.ShowTemp(Pfad: string; Drucken: boolean);
var   h: hwnd;
begin
   OpenTemp;
   FWorkBook :=FExcelApp.Workbooks.open(pfad);
   if Drucken then begin
      FExcelApp.Worksheets.PrintOut;
      FExcelApp.DisplayAlerts:=False;
      h := FindWindowByTitle(copy(pfad, Length(pfad)-25,21));
      if h <> 0 then 
         SendMessage(h, WM_SYSCOMMAND, SC_CLOSE, 0)
      else
         ShowMessage('not found.');
   end
   else begin
      FExcelApp.Visible := True;
   end;
end;

Vielen Dank
Patrick

Das mag ja sein, dass das jetzt für Dich funktioniert, wenn aber der Anwender mal Excel schließt und vergessen hat, da irgendwas zu speichern, bekommt er wohl auch keine Meldung mehr. Ist das wirklich erwünscht?

Zumindest solltest Du dann am Ende Deiner Routine FExcelApp.DisplayAlerts wieder auf den Ursprungswert setzen.

Bernhard Geyer Lösungsvorschlag ist allerdings der deutlich intelligentere.

Was ich sehr befremdlich finde: Du hast die Excelinstanz, mit der Du arbeitest im Zugriff. Und um die zu beenden suchst Du sie mittels "irgendwelcher Stringmanipulation", in der Hoffnung, dass die auch immer so funktioniert, um die bekannte und im Zugriff befindliche Excelinstanz zu schließen. Und wenn das nicht klappt bekommt der Anwender ein überaus aussagefähiges "not found." zu Gesicht, auf das er sicherlich absoulut sinnvoll reagieren kann?

Keine Chance, dies bei uns durch den Test und die Qualitätssicherung zu bekommen.

[Forensiker]

Zitat:

Die Zeile ExcelApp.DisplayAlerts:=False;brachte den gewünschten Erfolg.

Glückwunsch.