如何只建立一個 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;