OleContainer und Variant in einem möglich?

[BAMatze]

Also nach ein wenig Experimentieren hab ich nun eine Lösung gefunden. Für alle die eventuell mal ähnliche Probleme haben, hier meine Lösung zu der gestellten Frage:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtnrs, ComObj;

type
  TForm1 = class(TForm)
    OleContainer1: TOleContainer;
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  excel: Variant;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  // Öffnet Excel seperat und schreibt eine 1 in die obere rechte Ecke
  {excel := CreateOleObject('Excel.Application');
  excel.visible := true;
  wObj := excel.Application.Workbooks.add;
  excel.Worksheets['Tabelle1'].Activate;
  Excel.Worksheets['Tabelle1'].Cells[1,1] := 1;  }

  // Öffnet das in der Form über einen OleContainer eingebundene Excel und
  // schreibt in die obere rechte Ecke die 1
  OleContainer1.DoVerb(ovUIActivate);
  excel := OleContainer1.OleObject;
  excel.Worksheets[1].Cells[1,1] := 1;

end;

end.

Bis dann
BAMatze