Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi [TExcelApplication] Unterschiede 97 / XP (2000) (https://www.delphipraxis.net/75547-%5Btexcelapplication%5D-unterschiede-97-xp-2000-a.html)

Igotcha 21. Aug 2006 10:31


[TExcelApplication] Unterschiede 97 / XP (2000)
 
Hallo zusammen,

ich habe in meiner Anwendung Funktionalitäten, die mir Excel-Sheets erstellen. Bisher habe ich unter D7 Prof. mit der 97er-Office-Komponenten gearbeitet. Beim Umstieg auf BDS2006 stehen mir ja nur 2000 oder XP bei der Installation zur Verfügung. Leider verhält sich meine Anwendung beim Generieren der Excel-Sheets jetzt anders.

Bisher konnte der Anwender Excel-Sheets in der Form generieren, dass nach erfolgter Erstellung Excel mit dem erstellten Sheet sichtbar am Bildschirm war (was dann der Anwender damit macht - speichern oder drucken - ist ihm überlassen).

Unter BDS2006 mit OfficeXP-Unterstützung ist es jetzt so, dass Excel nach erfolgter Erstellung nicht mehr sichtbar wird.

Grundsätzlich verwende ich TExcelApplication und Co. so:

Delphi-Quellcode:
procedure CreateMISExcel(aVTIST: TVirtualStringTree;aTitel: String; aExApp: TExcelApplication; aExBook:TExcelWorkbook; aExSheet: TExcelWorksheet);
var
 ...
begin
    strPath:=ExtractFilePath(Application.ExeName)+'Vorlagen\blanko.xls';
    OpenExcel(aExApp);
    aExApp.Workbooks.Open(strPath,EmptyParam,EmptyParam,EmptyParam,
                                  EmptyParam,EmptyParam,EmptyParam,EmptyParam,
                                  EmptyParam,EmptyParam,EmptyParam,EmptyParam,
                                  EmptyParam,EmptyParam,EmptyParam,FLCID);
    aExSheet.ConnectTo(aExApp.Sheets.item[1] as _WorkSheet);
    aExSheet.Cells.Item[1,1]:=aTitel;
    ...
    aExApp.Visible[FLCID] := true;
    CloseExcel(aExApp, aExBook, aExSheet);
end;

mit

procedure OpenExcel(aExApp: TExcelApplication);
begin
  FLCID:=GetUserDefaultLCID;
  aExApp.Connect;
  aExApp.Visible[FLCID] := False;
  aExApp.UserControl := False;
  aExApp.DisplayAlerts[FLCID]:=False;
  aExApp.AskToUpdateLinks[FLCID]:=False;
end;

und

procedure CloseExcel(aExApp: TExcelApplication; aExBook:TExcelWorkbook; aExSheet: TExcelWorksheet);
begin
  aExApp.Disconnect;
end;
Diese Lösung war bisher auch auch "sauber", also keine Excel-Instanzen mehr im Taskmanager o.ä.

Die Einzige Änderung, die ich in meinem Projekt bei der Portierung vornehmen musste, war 2 "EmptyParam"-Werte zusätzlich in
Delphi-Quellcode:
aExApp.Workbooks.Open(strPath,EmptyParam,EmptyParam,EmptyParam,
                                  EmptyParam,EmptyParam,EmptyParam,EmptyParam,
                                  EmptyParam,EmptyParam,EmptyParam,EmptyParam,
                                  EmptyParam,EmptyParam,EmptyParam,FLCID);
einzufügen, da sich offenbar die Definition geändert hat. Da ich keine Dokumentation zu den Parametern in der BDS-Hilfe finden kann, kann dieses Verhalten evtl. auch mit den neuen Parametern zusammenhängen.

Igotcha

Bernhard Geyer 21. Aug 2006 10:42

Re: [TExcelApplication] Unterschiede 97 / XP (2000)
 
Wenn du noch D7 zur verfügung hast so nimm doch diese TLB's/Pasdateien und arbeite weiter auf "Office-97-Level"

Igotcha 21. Aug 2006 12:08

Re: [TExcelApplication] Unterschiede 97 / XP (2000)
 
Zitat:

Zitat von Bernhard Geyer
Wenn du noch D7 zur verfügung hast so nimm doch diese TLB's/Pasdateien und arbeite weiter auf "Office-97-Level"

Nein, das möchte ich nicht. Zumal Office2000 im eingesetzten Unternehmen, eh Minimal-Ausstattung ist.

Gruß
Igotcha

Bernhard Geyer 21. Aug 2006 18:52

Re: [TExcelApplication] Unterschiede 97 / XP (2000)
 
Zitat:

Zitat von Igotcha
Nein, das möchte ich nicht. Zumal Office2000 im eingesetzten Unternehmen, eh Minimal-Ausstattung ist.

OK, genehmigt.
Wenn Du Doku zur Excel-Schnittstelle benötigst so ist dafür der Hersteller der Anwendung - hier MS - zuständig. Und diese haben in der MSDN jede Menge Dokus. Das einzige Problem mit der MSDN ist das man für solche alte Versionen (2000) auf ältere MSDN's zugreifen muss da in der aktuellen praktisch nur die aktuellen Office-Versionen beschrieben werden.

Igotcha 21. Aug 2006 21:50

Re: [TExcelApplication] Unterschiede 97 / XP (2000)
 
Ich konnte mir die Parameter aus der Excel-VBA-Hilfe holen. Die 2 neuen Parameter beziehen sich auf "korrupte Dateien" und deren Anzeigedialoge.

Ich möchte doch nur, dass es so funktioniert wie vorher ;-)

Alle anderen Excel-Funktionalitäten in meinem Programm wie das Schreiben und Speichern in Excel-Dateien funktioniert ja auch wie bisher.

Nur will es mir mit dem bisherigen Code nicht mehr gelingen, eine Excel-Arbeitsmappe zu laden, Daten reinzuschreiben und diese anzeigen zu lassen - aber so, dass das Delphi-Excel-Objekt freigegeben und trotzdem noch die Arbeitsmappe danach am Bildschirm angezeigt wird (um manuell zu Editieren, Speichern oder zu Drucken).

Gruß
Igotcha


Alle Zeitangaben in WEZ +1. Es ist jetzt 03:26 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz