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