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
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