搭配 Application 物件使用事件

  • 發行項

您必須先建立類別模組，並宣告具有事件之 Application 類型的物件，才能搭配Application 物件使用事件。 例如，假設建立了新的類別模組，且其名稱為 EventClassModule。 新的類別模組包含下列程式碼：

Public WithEvents App As Application

使用事件宣告新的 物件之後，它會出現在類別模組的 [ 物件 ] 清單方塊中，而且您可以撰寫新物件的事件程序。 (當您在 [ 物件 ] 方塊中選取新物件時，該物件的有效事件會列在 [ 程式 ] 清單方塊中。)

不過，在執行程序之前，必須將類別模組中宣告的物件與 Application 物件連接。 您可以在任何模組中使用下列程式碼做到這點。

範例

Dim X As New EventClassModule 
 
Sub InitializeApp() 
 Set X.App = Application 
End Sub

在執行 InitializeApp 程序之後，類別模組中的 App 物件將指向 Microsoft Excel Application 物件，而且當事件發生時便會執行在類別模組中的事件程序。

請參閱

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。