Hallo AEMehser,
normalerweise sollte das SaveAs normal funktionieren. Der Fehler tritt in der Regel dann auf, wenn das Workbook nicht spezifiziert wird.
Beispiel:
Delphi-Quellcode:
var
DateiName: TFileName;
olevEXCELoffen: OLEVariant;
begin
try
olevEXCELoffen := GetActiveOleObject('Excel.Application');
except
ShowMessage('Excel ist nicht geöffnet !');
Exit;
end;
olevEXCELoffen.Visible:= TRUE;
olevEXCELoffen.Cells[2,1]:= '100';
if ExcelSaveDialog.Execute then
begin
DateiName:= ExcelSaveDialog.FileName;
end;
olevEXCELoffen.Workbooks[1].SaveAs(Filename:=DateiName, FileFormat:=xlNormal);
if NOT VarIsEmpty(olevEXCELoffen) then
begin
olevEXCELoffen.Quit;
olevEXCELoffen:= Unassigned;
end;
Bis bald Chemiker