Zugriff auf MS Excel

[sputnic]

Hallo ThoPos,

ich möchte mal auf deine Ausgangsfrage:

Zitat:

Aber wie kann ich die korrekte Instanz von Excel identifizieren und als Object einbinden?

Excel speichert die offenen Instanzen in der RunningObjectTable, diese kannst Du abfragen. Ich habe dazu folgenden Code gefunden:

Delphi-Quellcode:

uses ComObj, ActiveX, Excel2000
var
  ROT: IRunningObjectTable;
  Enum: IEnumMoniker;
  Fetched: integer;
  RunningObj: IMoniker;
  Name: PWideChar;
  BindCtx: IBindCtx;
begin
  OleCheck(CreateBindCtx(0, BindCtx));
  OleCheck(GetRunningObjectTable(0, ROT));
  if ROT.EnumRunning(Enum) = S_OK then
  begin
    Enum.Next(1, RunningObj, @Fetched);
    while RunningObj <> nil do
    begin
      RunningObj.GetDisplayName(BindCtx, nil, Name);
      Memo1.Lines.Append(Name);
      Enum.Next(1, RunningObj, @Fetched);
    end;
  end;

Damit erhälst Du schon mal die Namen der offenen Arbeitsmappen. Über den Namen kannst du dann auf die Instanz zugreifen. Was Du erhälst ist dann ein Workbook Interface. Das könnte dann ungefähr so aussehen:

Delphi-Quellcode:

var
    WB: _WorkBook;
begin 
    ....
      if Name = 'Mappe2' then
      begin
        ROT.GetObject(RunningObj, App);
        App.QueryInterface(_WorkBook, WB);
        if assigned(WB) then
        begin
          ShowMessage('Done');
          WB.Application.Quit;
        end;
      end;
    ....
end;

Ich hoffe, Du kannst was damit anfangen.

Grüße
Volker