Hab mich zu früh gefreut... Es sind nicht genug parameter da. Mein quelltext:
Code:
procedure TForm1.Button1Click(Sender: TObject);
var
xls, xlw: Variant;
begin
{load MS Excel}
xls := CreateOLEObject('Excel.Application');
{open your xls-file}
xlw := xls.WorkBooks.Open(FileName := 'c:\book1.xls', Password := '', ReadOnly := True);
{save with other file name}
xlw.Protect('lala',true,true,true);
xlw.SaveAs(FileName := 'c:\book3.xls', Password := 'test');
{unload MS Excel}
xlw := UnAssigned;
xls := UnAssigned;
end;
Aber wenn ich auf den Button klicken, tritt ein fehler auf.
Welche paremeter gibts bzw. wo kann ich das nachgucken?
Danke!