CreateObject 函數

附註: 我們想要以您的語言,用最快的速度為您提供最新的說明內容。 本頁面是經由自動翻譯而成,因此文中可能有文法錯誤或不準確之處。 讓這些內容對您有所幫助是我們的目的。 希望您能在本頁底部告訴我們這項資訊是否有幫助。 此為英文文章出處,以供參考。

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

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

語法

CreateObject 類別 [、伺服器名稱] )

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

引數

描述

類別

必要。 variant字串)。 應用程式名稱,並且建立物件的類別。

伺服器名稱

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


類別 引數使用語法appname.save並包含下列部分:

部分

描述

應用程式名稱

必要。 variant字串)。 提供物件的應用程式名稱。

save

必要。 variant字串)。 型別或類別物件的建立。


註解

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

若要建立的 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")

在這個範例中,我們就會自動化 Excel 試算表中的物件內的 Access 資料庫。 這個程式碼啟動應用程式建立的物件,在此情況下,Microsoft Excel 試算表。 一旦建立物件時,您在使用您所定義的物件變數的程式碼中參考它。 在下列範例中,您可以存取的新物件使用物件變數、 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"))

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

附註:  請參閱 COM 文件 (請參閱Microsoft Developer Network) 的讓應用程式顯示可見的遠端網路的電腦上的其他相關資訊。 您可能必須新增您的應用程式的登錄機碼。

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

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

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

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

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

範例

這個範例中為參考 (使用CreateObject函數

xlApp

) 至 Excel。 它使用參考來存取 Excel 的Visible屬性,然後再使用 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.
增進您的 Office 技巧
探索訓練
優先取得新功能
加入 Office 測試人員

這項資訊有幫助嗎?

感謝您的意見反應!

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

×