CreateObject İşlevi

ActiveX nesnesine başvuru oluşturur ve döndürür.

Söz dizimi

CreateObject ( sınıf [, sunucuadı] )

CreateObject işlevinin söz diziminde şu bağımsız değişkenler bulunur:

sınıf bağımsız değişken appname söz dizimini kullanır.objecttype ve şu bölümlere sahiptir:

Notlar

Otomasyonu destekleyen her uygulama en az bir nesne türü sağlar. Örneğin, sözcük işleme uygulaması bir Application nesnesi, bir Document nesnesi ve bir Toolbar nesnesi sağlayabilir.

ActiveX nesnesi oluşturmak için CreateObject tarafından döndürülen nesneyi bir nesne değişkeni atayın:

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

Bu örnekte, Access veritabanının içinden bir Excel elektronik tablosu nesnesini otomatikleştireceğiz. Bu kod, bir Microsoft Excel elektronik tablosu olan nesneyi oluşturan uygulamayı başlatır. Bir nesne oluşturulduktan sonra, tanımladığınız nesne değişkenini kullanarak kodda bu nesneye başvurursunuz. Aşağıdaki örnekte, ExcelSheetnesne değişkenini ve Application nesnesi ve Cells koleksiyonu da dahil olmak üzere diğer Excel nesnelerini kullanarak yeni nesnenin özelliklerine ve yöntemlerine erişeceksiniz.

' 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 yan tümcesi ile bir nesne değişkeni bildirilmesi, herhangi bir nesne türüne başvuru içerebilen bir değişken oluşturur. Ancak, bu değişken aracılığıyla nesneye erişim geç bağlıdır; yani, bağlama programınız çalıştırıldığında gerçekleşir. Erken bağlama, yani program derlendiğinde bağlama ile sonuçlanan bir nesne değişkeni oluşturmak için nesne değişkenini belirli bir sınıf kimliğiyle bildirin. Örneğin, aşağıdaki Excel başvurularını bildirebilir ve oluşturabilirsiniz:

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)

Erken bağlanan değişken aracılığıyla yapılan başvuru daha iyi performans verebilir, ancak yalnızca bildirim içinde belirtilen sınıf başvuru içerebilir.

CreateObject işlevi tarafından döndürülen bir nesneyi bağımsız değişken olarak nesne bekleyen bir işleve geçirebilirsiniz. Örneğin, aşağıdaki kod bir Excel.Application nesnesi oluşturur ve bir başvuru geçirir:

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

Uzak ağa bağlı bir bilgisayarda, bilgisayarın adını CreateObject'insunucu adı bağımsız değişkenine geçirerek bir nesne oluşturabilirsiniz. Bu ad, paylaşım adının Makine Adı bölümüyle aynıdır: "\\MyServer\Public" adlı bir paylaşım için sunucu adı "MyServer"dır.

Aşağıdaki kod, MyServeradlı uzak bilgisayarda çalışan bir Excel örneğinin sürüm numarasını döndürür:

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

Uzak sunucu yoksa veya kullanılamıyorsa bir çalışma zamanı hatası oluşur.

Bir nesne kendisini tek örnekli bir nesne olarak kaydettiyse, CreateObject'in kaç kez yürütülürse yürütülürse yürütülür, nesnenin yalnızca bir örneği oluşturulur.