Word Dokument In Excel einfügen

[Chemiker]

Hallo Nimmersatt,

sollte mit Excel 2007 so funktionieren.

Delphi-Quellcode:

procedure TForm1.btWordDokumentEinbettenClick(Sender: TObject);
var
  DateiName: TFileName;
  olevEXCELoffen: OLEVariant;
begin
  try
    olevEXCELoffen := CreateOleObject('Excel.Application');
  except
    ShowMessage('Excel konnte nicht gestartet werden !');
    Exit;
  end;
  olevEXCELoffen.Visible:= TRUE;
  if ExcelOpenDialog1.Execute then
  begin
    DateiName:= ExcelOpenDialog1.FileName;
  end;
  olevEXCELoffen.Workbooks.add;
  olevEXCELoffen.range['C1','C1'].Select;
  olevEXCELoffen.ActiveSheet.OLEObjects.add(Filename:= DateiName, Link:=False, DisplayAsIcon:=False).Select;

  ShowMessage('Excel schauen !');

  if  NOT VarIsEmpty(olevEXCELoffen) then
  begin
    olevEXCELoffen.Quit;
    olevEXCELoffen:= Unassigned;
  end;
end;

Bis bald Chemiker