CreateObject 函數

重要:  本文係由機器翻譯而成,請參閱免責聲明。本文的英文版本請見這裡,以供參考。

附註: 如果在沙箱模式中,可避免可能不安全的運算式的評估執行的 Microsoft Jet 運算式服務,就會停用函數、 方法、 物件或在本主題中所述的屬性。如需有關沙箱模式的詳細資訊,搜尋 「 沙箱模式 」 的說明。

建立並傳回 ActiveX 物件的參考。

語法

建立物件 類別 [,伺服器名稱] )

CreateObject函數語法具有下列引數︰

引數

描述

類別

所需。variant(字串)。[應用程式名稱] 和 [建立物件的類別中。

伺服器名稱

選用。variant(字串)。建立物件的網路伺服器名稱。如果伺服器名稱是空字串 (""),使用本機電腦。


課程 引數使用語法應用程式名稱.save並包含下列部分︰

部分

描述

應用程式名稱

所需。variant(字串)。提供物件的應用程式的名稱。

save

所需。variant(字串)。類型或類別物件的建立。


註解

支援自動化每個應用程式提供至少有一個物件類型。例如,word 處理應用程式可能會提供應用程式物件、文件物件和工具列物件。

若要建立的 ActiveX 物件,指定傳回物件變數CreateObject物件︰

附註: 下列範例示範如何在 Visual Basic for Applications (VBA) 模組中使用此函數。 如需使用 VBA 的詳細資訊,請在 [搜尋] 旁的下拉式清單中選取 [開發人員參考],並在 [搜尋] 方塊中輸入一個或多個字詞。

' Declare an object variable to hold the object 
' reference. Dim as Object causes late binding.
Dim ExcelSheet As Object
Set ExcelSheet = CreateObject("Excel.Sheet")

此程式碼開始建立的應用程式的物件,在此情況下, Microsoft Office Excel 2007試算表。物件建立之後,您會參考它在程式碼中使用您所定義的物件變數。在下列範例中,您可以存取屬性和新物件使用物件變數、 ExcelSheet和其他 Excel 物件,包括Application物件和Cells集合的方法。

' Make Excel visible through the Application object.
ExcelSheet.Application.Visible = True
' Place some text in the first cell of the sheet.
ExcelSheet.Application.Cells(1, 1).Value = "This is column A, row 1"
' Save the sheet to C:\test.xls directory.
ExcelSheet.SaveAs "C:\TEST.XLS"
' Close Excel with the Quit method on the Application object.
ExcelSheet.Application.Quit
' Release the object variable.
Set ExcelSheet = Nothing

具有As Object物件變數宣告建立最多可以包含任何類型的物件參照的變數。不過,晚繫結存取透過該變數物件;就是您的程式執行時,就會發生繫結。若要建立物件變數的最早的繫結,也就是繫結時編譯程式時,物件變數宣告特定類別的識別碼。例如,您可以宣告,並建立下列 Excel 參考資料︰

Dim xlApp As Excel.Application 
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.WorkSheet
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlBook.Worksheets(1)

透過早期繫結變數參照可提供較佳的效能,但只能包含類別宣告中指定的參考。

您可以將傳遞給物件做為引數必須要有函數傳回CreateObject函數的物件。例如,下列程式碼會建立並將 Excel.Application 物件參照傳遞︰

Call MySub (CreateObject("Excel.Application"))

您可以建立遠端網路電腦上的物件,藉由建立物件伺服器名稱引數傳遞的電腦名稱。該名稱是相同的共用名稱的電腦名稱部分︰ 共用,名為 「 \\MyServer\Public 」,伺服器名稱是 「 MyServer 」。

附註: 請參閱 COM 文件 (請參閱Microsoft 開發人員網路) 的其他資訊進行遠端網路電腦上的顯示應用程式。您可能要新增應用程式的登錄機碼。

下列程式碼會傳回一個 Excel 執行個體的版本號碼在名為MyServer的遠端電腦上執行︰

Dim xlApp As Object
Set xlApp = CreateObject("Excel.Application", "MyServer")
Debug.Print xlApp.Version

如果遠端伺服器不存在,或無法使用,會發生執行階段錯誤。

附註: 建立物件時使用沒有目前執行個體的物件。如果已在執行之物件的執行個體,開始新的執行個體,並建立指定類型的物件。若要使用的目前執行個體,或若要啟動應用程式並就載入檔案,請使用GetObject函數。

如果物件具有註冊本身為單一執行個體物件,物件只有一個執行個體建立,無論CreateObject執行的次數。

範例

此範例使用設定參照 ( CreateObject函數

xlApp

) 至 Excel。將其存取 Excel 的 [可見] 屬性中使用的參照,並使用 Excel結束方法,將其關閉。最後,釋放本身的參考。

Dim xlApp As Object    ' Declare variable to hold the reference.
Set xlApp = CreateObject("excel.application")
' You may have to set Visible property to True
' if you want to see the application.
xlApp.Visible = True
' Use xlApp to access Microsoft Excel's
' other objects.
xlApp.Quit ' When you finish, use the Quit method to close
Set xlApp = Nothing ' the application, then release the reference.

附註: 機器翻譯免責聲明︰本文係以電腦系統翻譯而成,未經人為介入。Microsoft 提供此等機器翻譯旨在協助非英語系使用者輕鬆閱讀 Microsoft 產品、服務及技術相關內容。基於本文乃由機器翻譯而成,因此文中可能出現詞辭、語法、文法上之錯誤。

擴展您的技能
探索訓練
優先取得新功能
加入 Office 測試人員

這項資訊有幫助嗎?

感謝您的意見反應!

感謝您的意見反應! 我們將協助您與其中一位 Office 支援專員連絡以深入了解您的意見。

×