如何只建立一個 Excel 應用程式物件

procedure Button1Click(Sender: TObject);
var
  Unknown: IUnknown;
  Excel: _Application;
begin
  try
    OleCheck(GetActiveObject(CLASS_Application_, nil, Unknown));
    OleCheck(Unknown.QueryInterface(Application_, Excel));
  except
    Excel := CoApplication_.Create;
  end;
end;

    Source: geocities.com/huanlin_tsai/faq

               ( geocities.com/huanlin_tsai)