CreateObject 函數

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

語法

CreateObject ( class [， servername] )

CreateObject 函數語法具有下列自變數：

班級 引數 使用語法 appname。objecttype ，並具有下列部分：

註解

每個支援自動化的應用程式都會提供至少一種類型的物件。 例如，字處理應用程式可能會提供 Application 物件、 檔案 物件和 工具列 物件。

若要建立 ActiveX 物件，請將 CreateObject 傳回的物件指派給 物件變數：

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

在此範例中，我們將會從 Access 資料庫中自動化 Excel 電子表格物件。 這個程式代碼會啟動應用程式，以建立物件，在此情況下是 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”。

下列程式代碼會傳回在名為 MyServer的遠端電腦上執行之 Excel 實例的版本號碼：

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

如果遠端伺服器不存在或無法使用，就會發生運行時間錯誤。

如果對象已註冊為單一實例物件，則無論 執行 CreateObject 多少次，只會建立一個對象實例。