AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Sprachen und Entwicklungsumgebungen Sonstige Fragen zu Delphi Excel mit SendMessage ohne Speicher-Nachfrage beenden
Thema durchsuchen
Ansicht
Themen-Optionen

Excel mit SendMessage ohne Speicher-Nachfrage beenden

Ein Thema von Ykcim · begonnen am 1. Aug 2019 · letzter Beitrag vom 2. Aug 2019
Antwort Antwort
Benutzerbild von Chemiker
Chemiker

Registriert seit: 14. Aug 2005
1.859 Beiträge
 
Delphi 11 Alexandria
 
#1

AW: Excel mit SendMessage ohne Speicher-Nachfrage beenden

  Alt 1. Aug 2019, 22:59
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
wer gesund ist hat 1000 wünsche wer krank ist nur einen.
  Mit Zitat antworten Zitat
Ykcim

Registriert seit: 29. Dez 2006
Ort: NRW
856 Beiträge
 
Delphi 12 Athens
 
#2

AW: Excel mit SendMessage ohne Speicher-Nachfrage beenden

  Alt 2. Aug 2019, 11:23
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
Patrick
  Mit Zitat antworten Zitat
Delphi.Narium

Registriert seit: 27. Nov 2017
2.598 Beiträge
 
Delphi 7 Professional
 
#3

AW: Excel mit SendMessage ohne Speicher-Nachfrage beenden

  Alt 2. Aug 2019, 13:28
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.

Geändert von Delphi.Narium ( 2. Aug 2019 um 17:42 Uhr)
  Mit Zitat antworten Zitat
Forensiker
(Gast)

n/a Beiträge
 
#4

AW: Excel mit SendMessage ohne Speicher-Nachfrage beenden

  Alt 2. Aug 2019, 16:27
Zitat:
Die Zeile ExcelApp.DisplayAlerts:=False;brachte den gewünschten Erfolg.
Glückwunsch.
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 15:20 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz