Tässä opetusohjelmassa selitetään, mikä viite on ja miten sitä käytetään VBA -editorissa
Jos käytät Excel VBA: ta ja haluat työskennellä eri sovelluksessa - esimerkiksi Microsoft Wordissa - olevien objektien kanssa, sinun on lisättävä viittaus kyseisen sovelluksen objektikirjastoon.
Viittauksen lisääminen VBA -projektiin
Napsauta VBE -ikkunassa Työkalut valikko ja napsauta sitten Viitteet…
Selaa viittausluetteloa alaspäin löytääksesi haluamasi. Tässä tapauksessa Microsoft Word 16.0 -objektikirjasto.
Klikkaus OK.
Objektikirjaston tarkastelu
Kun olet lisännyt viittauksen tietokantaan, voit käyttää objekteja, jotka liittyvät sovellukseen, johon olet viitannut. The OBJEKTIKIRJASTO kyseinen sovellus on nyt käytettävissäsi Excelissä.
Klikkaa Objektiselain -painiketta Vakio työkalurivi.
TAI
Klikkaa Näytä ja valitse Objektiselain.
Valitse Sana pudotusvalikosta
Voit nyt tarkastella kaikkia objekteja sekä niiden menetelmiä ja ominaisuuksia, joita voit nyt käyttää Excel VBA -koodissasi.
Viitteen käyttäminen Excel -menettelyssä
Kun olet luonut viittauksen, voit käyttää Excel -VBA -koodisi objektikirjaston objekteja. Alla oleva menettely luo uuden Word -asiakirjan ja näyttää Wordin näytölläsi.
| 123456789101112 | Sub CreateWordDocument ()Dim wdApp kuten Word.ApplicationDim wdDoc Kuten Word.Document'avoin sanaAseta wdApp = New Word.Application'luo asiakirjaAseta wdDoc = wdApp.Documents.Add'kirjoita jotainwdApp.Selection.TypeText "Hyvää huomenta Melanie!"'näytä sana näytölläwdApp.Visible = TottaEnd Sub |
Varhainen vs. myöhäinen sidonta
Viittauksen lisääminen projektikirjastoon tunnetaan nimellä Varhainen sitominen. Tämä tekee kaikki kyseisen objektikirjaston objektit käytettäväksi ohjelmallisesti VBA -projektissasi. Koska olet jo lisännyt viittauksen Microsoft Word -objektikirjastoon yllä olevassa menettelyssä, voimme viitata suoraan Word -sovellukseen ja Word -asiakirjaan, kun ilmoitamme wdApp- ja wdDoc -muuttujat käyttämällä Uusi menetelmä.
Voit kuitenkin edelleen käyttää toisen sovelluksen objektikirjastoa lisäämättä siihen viittausta koodiin. Sinun on ilmoitettava wdApp- ja wdDoc -muuttujat objekteiksi ja sitten sinun on käytettävä CreateObject menetelmä pikemminkin kuin Uusi tapa luoda uusi Microsoft Wordin esiintymä.
| 123456789101112 | Sub CreateWordDocument ()Dim wdApp objektinaDim wdDoc objektina'avoin sanaAseta wdApp = CreateObject ("Word.Application")'luo asiakirjaAseta wdDoc = wdApp.Documents.Add'Kirjoita tekstiäwdApp.Selection.TypeText Text: = "Hyvää huomenta Melanie!"'näytä sana näytölläwdApp.Visible = TottaEnd Sub |
Late Binding -toiminnon käyttäminen on hyödyllistä, jos luomasi ohjelmaa käytetään useilla koneilla. Jos käyttäjällä on erilainen Microsoft Office -versio kuin sinulla, hänellä ei ehkä ole oikeaa tiedostoa tietokoneellaan objektikirjastoa varten. Jos käytät esimerkiksi Excel -versiota 16, mutta he käyttävät Excel -versiota 15, viittaus saattaa puuttua.
Voit korjata tämän helposti poistamalla puuttuvan viitteen vieressä olevan valintamerkinnän ja etsimällä oikean viitteen vierittämällä alas ja valitsemalla sen sijaan.
