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