Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Excel-Tabelle immer in einem neuen Excel öffnen (https://www.delphipraxis.net/176505-excel-tabelle-immer-einem-neuen-excel-oeffnen.html)

HolgerCW 11. Sep 2013 09:33

Delphi-Version: 2006

Excel-Tabelle immer in einem neuen Excel öffnen
 
Hallo zusammen,

so öffne ich meine Excel-Tabelle, da ich diese anschliessend mit Daten fülle:

Delphi-Quellcode:

var
 WorkBk: _WorkBook; //  ein WorkBook deklarieren
 WorkSheet: _WorkSheet; //  ein WorkSheet deklarieren

 XLApp: TExcelApplication;
 _lcid: LCID;
begin

_lcid := GetUserDefaultLCID;

 XLApp := TExcelApplication.Create(nil);

 try

  // Zum Server TExcelApplication verbinden
  XLApp.Connect;

  try

   // WorkBooks zur ExcelApplication hinzufügen
   XLApp.Workbooks.Open(copy(Application.ExeName,1, length(Application.ExeName)-11) + 'Formulare\Kleinbestellungsformular.xls', emptyParam, TRUE,
    emptyParam, emptyParam, emptyParam, emptyParam, emptyParam,
    emptyParam, emptyParam, emptyParam, emptyParam, emptyParam,
    emptyParam, emptyParam, _lcid);

   // erstes WorkBook auswählen
   WorkBk := XLApp.WorkBooks.Item[1];
   // erstes WorkSheet definieren
   WorkSheet := WorkBk.WorkSheets.Get_Item(1) as _WorkSheet;
   //WorkSheet := Workbk.sheets['Tabelle1'] as _WorkSheet;
 
   
   Worksheet.Cells.Item[2, 7].Value := 'xyz';

   ...
   
   XLApp.Visible[0] := True;
Wie bekomme ich es nun hin, das die Tabelle sich immer in einem neuen Excel öffnet ?

Gruss

Holger

nahpets 11. Sep 2013 11:11

AW: Excel-Tabelle immer in einem neuen Excel öffnen
 
Delphi-Quellcode:
XLApp.ConnectKind := ckNewInstance;
XLApp.Connect;

HolgerCW 11. Sep 2013 11:43

AW: Excel-Tabelle immer in einem neuen Excel öffnen
 
Vielen dank, das wars ...


Alle Zeitangaben in WEZ +1. Es ist jetzt 21:42 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