共用方式為

Project) (Application 物件

  • 發行項

代表整個 Project 應用程式。 Application 物件包含：

  • 應用程式範圍的設定與選項 (例如，在 [工具] 功能表的 [選項] 對話方塊中的許多選項)。

  • 用來傳回最高層級物件數目的屬性，例如 ActiveCell 屬性及 ActiveProject 屬性等。

  • 作用於應用程式範圍之元素的方法，例如，檢視、選取及編輯動作等。

使用 Application 物件

使用 Application 屬性來傳回專案中的 應用程式 的物件。 下列範例將 Windows 屬性套用至應用程式物件。

Application.Windows("Project1.mpp").Activate

從另一個應用程式使用專案：晚期繫結

下列範例會建立 Microsoft Project 應用程式 物件在執行階段、 建立新的專案、 新增任務、 儲存專案，然後關閉專案。 例如，複製並貼入 ThisDocument模組 CreateProject_Late巨集在 Visual Basic 編輯器 (VBE) 的Word。

注意事項

[!注意事項] 因為應用程式只會在執行階段查詢 MSProject.Application 型別程式庫、 Microsoft IntelliSense 不提供與效能低落較與晚期繫結。 指令碼語言，例如JavaScript和 VBScript 中，需要晚期繫結。 VBScript 中支援僅將泛用 物件 及 Variant 資料類型。 VBA 和其他編譯的語言的較佳效能，您應該使用早期繫結藉由設定專案型別程式庫的參照。

Sub CreateProject_Late() 
    Dim pjApp As Object 
    Set pjApp = CreateObject("MSProject.Application") 
    pjApp.Visible = True 
    pjApp.FileNew 
    pjApp.ActiveProject.Tasks.Add "Hang clocks" 
    pjApp.FileSaveAs "Clocks.mpp" 
    pjApp.FileClose 
    pjApp.Quit 
End Sub

如果您未將 Visible 屬性設定為 True，Project 應用程式會在背景中運作，而不會顯示。

從另一個應用程式使用專案：早期繫結

因為它在設計階段載入型別程式庫早期繫結會有較佳的效能。 若要使用早期繫結，您必須設定中所使用的應用程式的 Project 應用程式的參照。 例如，就會在 VBE Word文件，在 [ 工具] 功能表上的 [ 參考、 捲動 可用的參考] 清單中，然後選擇 [ Microsoft Project 15.0 物件程式庫] 核取方塊。

下面範例從另一個應用程式例如Excel開啟專案、 工作、 新增，然後儲存並關閉專案。

Sub ModifyProject_Early() 
    Dim pjApp As MSProject.Application 
    Set pjApp = New MSProject.Application 
    pjApp.Visible = True 
    pjApp.FileOpen "Clocks.mpp" 
    pjApp.ActiveProject.Tasks.Add "Wind clocks" 
    pjApp.FileSave 
    pjApp.FileClose 
    pjApp.Quit 
End Sub

註解

重要事項

針對應用層級事件，請在設定 Application.Visible = True之後註冊事件處理常式。

如果您從另一個應用程式產生專案並登錄應用程式層級事件之後，將 [應用程式] 物件的 [可見] 屬性設為 [True]，則應用程式子物件的屬性和方法會無法運作。 例如，Application.ActiveProject.Name 無法存取。

屬性和方法會傳回最常見的使用者介面物件，例如使用中專案的許多 — 由 ActiveProject 屬性代表 — 可以使用無 應用程式 物件辨識符號。 例如，而不是撰寫 Application.ActiveProject.Visible = True您可以撰寫 ActiveProject.Visible = True

事件

方法

名稱

屬性

名稱

支援和意見反應

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