Folgendes funktioniert:

Excel wird angezeigt und die Tabelle2 ist aktiv.

zusammenfalten · markieren

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

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

Hallo,

vielleicht hilft das weiter:

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

Bis bald Chemiker

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