Einzelnen Beitrag anzeigen

HolgerCW

Registriert seit: 28. Nov 2006
Ort: Marl
1.207 Beiträge
 
Delphi XE7 Enterprise
 
#1

Excel-Tabelle immer in einem neuen Excel öffnen

  Alt 11. Sep 2013, 09:33
Delphi-Version: 2006
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
  Mit Zitat antworten Zitat