Registriert seit: 28. Nov 2006
Ort: Marl
1.207 Beiträge
Delphi XE7 Enterprise
|
Excel-Tabelle immer in einem neuen Excel öffnen
11. Sep 2013, 10: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
|
|
Zitat
|