Ez a cikk bemutatja, hogyan kell használni az Objektum létrehozása metódust a VBA -ban.
A VBA objektumorientált nyelv - eljárásokat használ az objektumok vezérlésére és létrehozására.
Objektum létrehozása
Az Objektum létrehozása módszerrel objektumot hozhatunk létre egy Microsoft Office alkalmazásban. Például, ha VBA -kódot írunk az Excelben, és szeretnénk megnyitni egy Word -példányt, akkor az Objektum létrehozása módszerrel új Word -példányt hozhatunk létre.
Például:
12345 | Sub CreateWordInstance ()Dim wdApp objektumkéntA wdApp = CreateObject beállítása ("Word.Application")wdApp.Visible = IgazEnd Sub |
Hasonlóképpen létrehozhatunk egy új PowerPoint vagy Access példányt.
12345 | Sub CreatePowerPointApplicationDim ppApp objektumkéntÁllítsa be a ppApp = CreateObject ("PowerPoint.Application")ppApp.Visible = IgazEnd Sub |
Az Objektum létrehozása funkcióval az alkalmazásobjektumtól eltérő objektumokat is létrehozhatunk. Használhatjuk például Excel -táblázat létrehozására.
1234567 | Sub CreateExcelSheet ()Dim xlSheet objektumkéntSet xlSheet = CreateObject ("Excel.Sheet")xlSheet.Application.Visible = IgazxlSheet.Application.Range ("A2") = "Jó reggelt"Set xlSheet = SemmiEnd Sub |
Ez azonban valójában egy új Excel -példányt hoz létre - nem hozza létre a lapot a már megnyitott példányban. Ezért az objektum megtekintéséhez az Új lap alkalmazását (azaz: az Excel új példányát) Láthatóra kell állítanunk.
A fenti példák mindegyikében késői kötést használunk - ezért a változókat objektumként deklaráljuk. A korai kötést úgy is használhatjuk, hogy a VBA -projektünkben referenciát állítunk be a Word -re vagy a PowerPointra, majd megírjuk az al -eljárást az alábbiak szerint. Ha többet szeretne megtudni a késői és korai kötésről, kattintson ide.
Először is a korai kötéshez a VBE -ben a Microsoft Word -re hivatkoztunk.
Ban,-ben Menü sáv, válassza a lehetőséget Eszközök> Hivatkozások és görgessen lefelé a hivatkozás megkereséséhez Microsoft Word 16.0 objektumkönyvtár.
Győződjön meg arról, hogy a hivatkozás be van jelölve, majd kattintson a gombra RENDBEN.
MEGJEGYZÉS: előfordulhat, hogy a verzió nem 16.0, minden attól függ, hogy a Microsoft Office milyen verzióját használja a számítógépen!
Most az Early Binding használatával deklaráljuk az objektumot - ez azt jelenti, hogy a wdApp objektumként való deklarálása helyett azt a Word. Alkalmazás. A kód többi része megegyezik a fenti Late Binding funkcióval.
12345 | Sub CreateWordInstance ()Dim wdApp új szóként. AlkalmazásA wdApp = CreateObject beállítása ("Word.Application")wdApp.Visible = IgazEnd Sub |