Bu makale, VBA'da Nesne Oluştur yöntemini nasıl kullanacağınızı gösterecektir.
VBA, Nesne Yönelimli bir Dildir - Nesneleri kontrol etmek ve oluşturmak için prosedürleri kullanır.
Nesne Oluştur
Bir Microsoft Office uygulamasında bir Nesne oluşturmak için Nesne Oluştur yöntemini kullanabiliriz. Örneğin, Excel'de VBA kodu yazıyorsak ve Word'ün bir kopyasını açmak istiyorsak, yeni bir Word örneği oluşturmak için Nesne Oluştur yöntemini kullanabiliriz.
Örneğin:
| 12345 | Alt CreateWordInstance()Nesne olarak wdApp'i karartwdApp = CreateObject("Word.Application") olarak ayarlayınwdApp.Visible = DoğruAlt Bitiş |
Benzer şekilde, yeni bir PowerPoint veya Access örneği oluşturabiliriz.
| 12345 | Alt CreatePowerPointApplicationNesne olarak ppApp'i karartppApp = CreateObject("PowerPoint.Application") olarak ayarlayınppApp.Visible = DoğruAlt Bitiş |
Uygulama Nesnesi dışında nesneler oluşturmak için Nesne Oluştur'u da kullanabiliriz. Örneğin bir Excel Sayfası oluşturmak için kullanabiliriz.
| 1234567 | Alt CreateExcelSheet()Nesne Olarak Dim xlSheetSet xlSheet = CreateObject("Excel.Sheet")xlSheet.Application.Visible = DoğruxlSheet.Application.Range("A2") = "Günaydın"xlSheet'i ayarla = Hiçbir şeyAlt Bitiş |
Ancak, bu aslında Excel'in yeni bir örneğini oluşturur - sayfayı zaten açık olan örnekte oluşturmaz. Bu nedenle, nesneyi görmek için yeni sayfanın (yani: Excel'in yeni örneği) Uygulamasını Görünür olarak ayarlamalıyız.
Yukarıdaki örneklerin tümünde Geç Bağlama kullanıyoruz - bu nedenle değişkenleri Nesneler olarak ilan ediyoruz. VBA Projemizde Word veya PowerPoint'e bir referans ayarlayarak ve ardından Alt Prosedürü aşağıda gösterildiği gibi yazarak Erken Bağlama'yı da kullanabiliriz. Geç ve Erken ciltleme hakkında daha fazla bilgi için burayı tıklayın.
İlk olarak Early Binding için VBE içinde Microsoft Word'e bir referans belirledik.
İçinde Menü çubuk, seç Araçlar > Referanslar ve referansı bulmak için aşağı kaydırın Microsoft Word 16.0 Nesne Kitaplığı.
Referansın kontrol edildiğinden emin olun ve ardından TAMAM.
NOT: sürüm 16.0 olmayabilir, bu tamamen bilgisayarınızda hangi Microsoft Office sürümünü çalıştırdığınıza bağlıdır!
Şimdi, Nesneyi Early Binding kullanarak ilan ediyoruz - bu, wdApp'i bir Nesne olarak ilan etmek yerine onu bir Nesne olarak ilan ettiğimiz anlamına gelir. Word.Uygulama. Kodun geri kalanı, yukarıda Geç Bağlama kullandığımız zamankiyle aynıdır.
| 12345 | Alt CreateWordInstance()Dim wdApp As New Word.ApplicationwdApp = CreateObject("Word.Application") olarak ayarlayınwdApp.Visible = DoğruAlt Bitiş |
