Wie in Excel nur 1 Sheet speichern?

[madina]

Hallo,

mit folgenden SourceCode öffne ich eine mit bestimmten Formaten erstellten Excel Test.xls Datei und speichere ihn aus Delphi aus unter Test1.xls und nehme den Paßwort weg. Dabei besteht die Test.xls aus 3 WorkSheets. ich will aber nur 1 gewählten WorkSheet unter Test1.xls speichern, leider speichert er alle WorkSheets beim Test1.xls.

Wie kann ich dies realisieren ?

Delphi-Quellcode:

var xls, xlw: OleVariant;
try
  xls:= CreateOleObject('Excel.Application');
  xls.Visible:= true;

  xls.WorkBooks.Open(FileName:='c:\Test.xls' , Password:='', ReadOnly:= True); 
  xlw:= xls.Sheets[1]; 
  // speichern unter neuen Namen
  xlw.Protect('', false, false); 
  xlw.SaveAs(FileName:= ExtractFileDir('c:\Test1.xls', Pssword:=''); 
  xls.Application.Quit; 

  {unload MS Excel} 
  xls.Quit;
  xlw:= UnAssigned; 
  xls:= UnAssigned; 
except
  ShowMessage('Excel may not be installed or cannot start');
  Exit;
end

mfg