Offenes Excel Spreadsheet übernehmen

[AEMehser]

Hi,

ich arbeite zwar schon eine ganze Weile aus Delphi heraus mit Excel, aber jetzt stehe ich vor der Aufgabe ein schon geöffnetes Spreadsheet nur zu übernehmen.

Wenn ich das mit GetActiveOLEObject mache kann ich weder mit SaveCopyAs noch mit SaveAs speichern.
Fehlermeldung:
Die Methode SaveAs wird vom Automatisierumgsobjekt nicht unterstützt.
Wenn ich das Excel mit CreateOLEObject starte, gibts dieses Problem nicht ...

Wär super wenn mir da jemand einen Hint geben könnte, wie ich das anstelle!

Vielen Dank
Alex Mehser

[Chemiker]

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