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