Wbk.sheets.Add für Excel 2013

[Alfredo]

Folgendes funktioniert:

Excel wird angezeigt und die Tabelle2 ist aktiv.

Delphi-Quellcode:

Var
Wbk: _Workbook;
WS1: _Worksheet;
WS2: _Worksheet;
lcid: Integer;

procedure Tform1.Button1.Click(Sender: TObject);

begin

ExcelApplication1.Connect;
Excelapplication1.Visible[GetUserDefaultlcid] := True;

Wbk := ExcelApplication1.Workbooks.Open('X:\firebird30\FBexport_1.xls',
False,Flase,EmptyParam,'',False, False, EmptyParam, EmptyParam,
False,False,EmptyParam,EmptyParam,EmptyParam,False,0);

WS1 := Wbk.Worksheets.ITEM['FBexport_1'] as _Worksheet;
WS2 := Wbk.Worksheets.ITEM['Tabelle2'] as _Worksheet;
WS2.Activate(lcid);

end;

mit

Delphi-Quellcode:

Wbk.Sheets.Add(NULL,NULL,NULL,EmptyParam,lcid);

wird an erster Stelle eine neue Tabelle eingefügt.
Was laut Definition wenn Before und After nicht angegeben sind so richtig ist.

Eine Tabelle rechts anfügen bekomme ich jedoch nicht hin.

Gruß
Alfred

[Delphi.Narium]

Doku? https://docs.microsoft.com/de-de/off...cel.sheets.add

[Chemiker]

Hallo,

vielleicht hilft das weiter:

https://www.delphipraxis.net/190397-excel-sheets.html

Bis bald Chemiker

[Alfredo]

Vielen Dank für eure Hinweise.

Die Doku passt leider für ExcelXP nicht.
Laut automatischer Ergänzung sind es 5 Parameter.
Beim 1. Beispiel fehlt m.E. eine '( )'.
Das 2. Beispiel wird zwar kompiliert, liefert aber einen Laufzeitfehler "Exception der Klasse OELSysError
mit der Meldung 'Mitglied nicht gefunden' aufgetreten".

Ich dachte ich bräuchte für Excel2013 ExcelApplication1.

ComObj in die uses und alles funktioniert wieder wie in alten Tagen.

Gruß
Alfred