Not: Microsoft Jet İfade Hizmeti korumalı alan modunda çalışıyorsa, bu konuda açıklanan işlev, yöntem, nesne veya özellik devre dışı bırakılır ve bu da güvenli olabilecek ifadelerin değerlendirilmesini engeller. Korumalı alan modu hakkında daha fazla bilgi için Yardım'da "korumalı alan modu" araması yapın.
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:
|
Bağımsız değişken |
Açıklama |
|
sınıf |
Gerekli. Değişken (Dize). Oluşturulacak nesnenin uygulama adı ve sınıfı. |
|
Sunucuadı |
İsteğe bağlı. Değişken (Dize). Nesnenin oluşturulacağı ağ sunucusunun adı. Sunucu adı boş bir dize ("") ise, yerel bilgisayar kullanılır. |
sınıf bağımsız değişken appname söz dizimini kullanır.objecttype ve şu bölümlere sahiptir:
|
Bölüm |
Açıklama |
|
Uygadı |
Gerekli. Değişken (Dize). Nesnesini sağlayan uygulamanın adı. |
|
Nesnetürü |
Gerekli. Değişken (Dize). Oluşturulacak nesnenin türü veya sınıf. |
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:
Not: Aşağıdaki örneklerde, bu işlevin Visual Basic for Applications (VBA) modülünde kullanımı gösterilir. VBA ile çalışma hakkında daha fazla bilgi için, rama'nın yanındaki açılan listede Geliştirici Başvurusu'nu seçin ve arama kutusuna bir veya birden çok terim yazı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.
Not: Bir uygulamayı uzak ağa bağlı bir bilgisayarda görünür hale getirme hakkında ek bilgi için COM belgelerine bakın (bkz. Microsoft Geliştirici Ağı). Uygulamanız için bir kayıt defteri anahtarı eklemeniz gerekebilir.
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.
Not: Nesnenin geçerli bir örneği olmadığında CreateObject kullanın. Nesnenin bir örneği zaten çalışıyorsa, yeni bir örnek başlatılır ve belirtilen türde bir nesne oluşturulur. Geçerli örneği kullanmak veya uygulamayı başlatmak ve bir dosya yüklemesini sağlamak için GetObject işlevini kullanın.
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.
Örnek
Bu örnek, başvuru ayarlamak için CreateObject işlevini kullanır (
xlApp
) öğesini seçin. Başvuruyu kullanarak Excel'in Visible özelliğine erişip kapatmak için Excel Quit yöntemini kullanır. Son olarak, başvurunun kendisi serbest bırakılır.
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.
