Sheet von einer Excel-Datei in eine andere Exceldatei

[Jumpy]

Da ich ja bereits Zeit verschwendet habe um auf die Frage zu Antworten verschwende ich doch glatt nochmal 10 Minuten um das selber mal zu testen und siehe da, funzt doch sowohl mit Copy als auch mit Move. Das Sheet wird jeweils an letzter Stelle eingefügt.

Delphi-Quellcode:

uses [...], ComObj;

procedure TForm1.Button1Click(Sender: TObject);
var XLApp:OleVariant;
    wbSource,wbTarget:OleVariant;
    wsSource:OleVariant;
begin
  XLApp:=CreateOleObject('Excel.Application');
  //XLApp.Visible:=true;
  wbSource:=XLApp.Workbooks.Open('C:\Test\wb1.xls');
  wbTarget:=XLApp.Workbooks.Open('C:\Test\wb2.xls');
  wsSource:=wbSource.WorkSheets['Test'];
  wsSource.Copy(EmptyParam,wbTarget.WorkSheets[wbTarget.WorkSheets.Count]);
  wbTarget.Save;
  wbTarget.Close;
  wbSource.Save;
  wbSource.Close;
  XLApp.Quit;
  XLApp:=Unassigned;
end;