Tässä artikkelissa kerrotaan, miten Luo objekti -menetelmää käytetään VBA: ssa.
VBA on objektiorientoitu kieli - se käyttää menetelmiä objektien hallintaan ja luomiseen.
Luo objekti
Luo objekti -menetelmän avulla voimme luoda objektin Microsoft Office -sovelluksessa. Jos esimerkiksi kirjoitamme VBA -koodia Excelissä ja haluamme avata Word -kopion, voimme luoda uuden Word -esiintymän Luo objekti -menetelmän avulla.
Esimerkiksi:
| 12345 | Sub CreateWordInstance ()Dim wdApp objektinaAseta wdApp = CreateObject ("Word.Application")wdApp.Visible = TottaEnd Sub |
Samoin voimme luoda uuden PowerPoint- tai Access -esiintymän.
| 12345 | Sub CreatePowerPointApplicationDim ppApp objektinaAseta ppApp = CreateObject ("PowerPoint.Application")ppApp.Visible = TottaEnd Sub |
Voimme myös luoda Luo objekti luoda muita kohteita kuin sovellusobjekti. Voimme käyttää sitä esimerkiksi Excel -taulukon luomiseen.
| 1234567 | Sub CreateExcelSheet ()Dim xlSheet objektinaAseta xlSheet = CreateObject ("Excel.Sheet")xlSheet.Application.Visible = TottaxlSheet.Application.Range ("A2") = "Hyvää huomenta"Aseta xlSheet = Ei mitäänEnd Sub |
Tämä luo kuitenkin itse uuden Excel -ilmentymän - se ei luo arkkia ilmentymässä, joka on jo avoinna. Tästä syystä meidän on asetettava uuden taulukon (eli Excelin uuden esiintymän) Sovellus -asetukseksi Visible, jotta voimme nähdä objektin.
Kaikissa yllä olevissa esimerkeissä käytämme Late Binding -sovellusta, joten muuttujat ilmoitetaan objekteiksi. Voimme myös käyttää Early Binding -sovellusta asettamalla viittauksen Wordiin tai PowerPointiin VBA -projektissamme ja kirjoittamalla sitten alimenettely alla esitetyllä tavalla. Saat lisätietoja myöhäisestä ja varhaisesta sidonnasta napsauttamalla tätä.
Ensinnäkin varhaisen sitomisen yhteydessä VBE: ssä asetimme viittauksen Microsoft Wordiin.
Kohteessa Valikko palkki, valitse Työkalut> Viitteet ja vieritä alas löytääksesi viittauksen Microsoft Word 16.0 -objektikirjasto.
Varmista, että viite on valittu, ja napsauta sitten OK.
HUOMAUTUS: versio ei ehkä ole 16.0, kaikki riippuu siitä, mitä Microsoft Office -versiota käytät tietokoneellasi!
Nyt julistamme objektin käyttämällä Early Binding -sovellusta - tämä tarkoittaa, että sen sijaan, että olisimme julistaneet wdAppin objektina, ilmoitamme sen Sana. Sovellus. Loput koodista ovat samat kuin silloin, kun käytimme yllä Late Bindingia.
| 12345 | Sub CreateWordInstance ()Dim wdApp kuin uusi sana. SovellusAseta wdApp = CreateObject ("Word.Application")wdApp.Visible = TottaEnd Sub |
