Ta članek vam bo pokazal, kako uporabiti metodo Ustvari objekt v VBA.
VBA je predmetno usmerjen jezik - uporablja postopke za nadzor in ustvarjanje predmetov.
Ustvari objekt
Za ustvarjanje predmeta v aplikaciji Microsoft Office lahko uporabimo metodo Create Object. Če na primer pišemo kodo VBA v Excelu in želimo odpreti kopijo Worda, lahko z metodo Ustvari objekt ustvarimo nov primerek Worda.
Na primer:
| 12345 | Sub CreateWordInstance ()Zatemni wdApp kot objektNastavite wdApp = CreateObject ("Word.Application")wdApp.Visible = ResEnd Sub |
Podobno lahko ustvarimo nov primerek PowerPointa ali Accessa.
| 12345 | Sub CreatePowerPointApplicationZatemni ppApp kot objektNastavi ppApp = CreateObject ("PowerPoint.Application")ppApp.Visible = ResEnd Sub |
Ustvarjanje predmeta lahko uporabimo tudi za ustvarjanje predmetov, ki niso predmet aplikacije. Z njim lahko na primer ustvarimo Excelov list.
| 1234567 | Sub CreateExcelSheet ()Zatemni xlSheet kot objektNastavi xlSheet = CreateObject ("Excel.Sheet")xlSheet.Application.Visible = TruexlSheet.Application.Range ("A2") = "Dobro jutro"Nastavi xlSheet = NičEnd Sub |
Vendar to dejansko ustvari nov primerek Excela - ne ustvari lista v primerku, ki je že odprt. Zaradi tega moramo aplikacijo novega lista (tj .: nov primerek Excela) nastaviti na Vidno, da vidimo predmet.
V vseh zgornjih primerih uporabljamo pozno vezavo - zato spremenljivke razglasimo kot objekte. Zgodnjo vezavo lahko uporabimo tudi tako, da v svojem projektu VBA nastavimo sklic na Word ali PowerPoint in nato napišemo podpostopek, kot je prikazano spodaj. Če želite izvedeti več o pozni in zgodnji vezavi, kliknite tukaj.
Najprej smo za zgodnje povezovanje v VBE določili sklic na Microsoft Word.
V Meni vrstica, izberite Orodja> Reference in se pomaknite navzdol, da poiščete sklic na Knjižnica objektov Microsoft Word 16.0.
Preverite, ali je referenca preverjena, nato kliknite V REDU.
OPOMBA: različica morda ni 16.0, vse je odvisno od tega, katero različico programa Microsoft Office uporabljate v računalniku!
Zdaj objekt razglasimo z uporabo zgodnje vezave - to pomeni, da namesto da wdApp razglasimo za predmet, ga razglasimo kot Word.Aplikacija. Preostala koda je enaka kot pri prejšnji uporabi Late Binding.
| 12345 | Sub CreateWordInstance ()Zatemni wdApp kot novo Word.ApplicationNastavite wdApp = CreateObject ("Word.Application")wdApp.Visible = ResEnd Sub |
