See õpetus selgitab, mis on viide ja kuidas neid VBA redaktoris kasutada
Kui töötate Exceli VBA -s ja soovite töötada teises rakenduses saadaolevate objektidega, näiteks Microsoft Wordiga, peate lisama viite selle rakenduse objektiteekile.
Lisades viite oma VBA Project
VBE Window, klõpsa Tööriistad menüü ja seejärel klõpsake Viited…
Kerige viidete loendit alla, et leida soovitud viide. Sel juhul Microsoft Word 16.0 objektide kogu.
Klõpsake nuppu OKEI.
Objektide kogu vaatamine
Kui olete andmebaasi viite lisanud, saate kasutada objekte, mis on seotud rakendusega, millele olete viidanud. The OBJEKTI RAAMATUKOGU selle konkreetse rakenduse jaoks on nüüd Excelis kasutamiseks saadaval.
Klõpsake Objekti brauser nuppu nupul Standard tööriistariba.
VÕI
Klõpsake Vaade menüüst ja valige Objekti brauser.
Valige Sõna ripploendist
Nüüd saate vaadata kõiki objekte, samuti nende meetodeid ja atribuute, mida saate nüüd kasutada oma Exceli VBA -koodis.
Viite kasutamine Exceli protseduuris
Kui olete viite loonud, saate Excelis oma VBA -koodi objektide raamatukogu objekte kasutada. Allolev protseduur loob uue Wordi dokumendi ja muudab Wordi ekraanil nähtavaks.
| 123456789101112 | Sub CreateWordDocument ()Dim wdApp Nagu Word.ApplicationDim wdDoc kui Word.Document'avatud sõnaMäära wdApp = Uus sõna. Rakendus"looge dokumentMäära wdDoc = wdApp.Documents.Add'kirjuta mõned asjadwdApp.Selection.TypeText "Tere hommikust, Melanie!"'Näita sõna ekraanilwdApp.Visible = TrueEnd Sub |
Varajane ja hiline sidumine
Viite lisamine oma projekti objektide kogule on tuntud kui Varajane sidumine. See teeb kõik selle objektiteegi objektid kättesaadavaks, et neid saaks VBA projektis programmiliselt kasutada. Kuna olete ülaltoodud protseduuris juba lisanud viite Microsoft Wordi objektiraamatukogule, saame muutujate wdApp ja wdDoc deklareerimisel otse Wordi rakendusele ja Wordi dokumendile viidata. Uus meetod.
Siiski saate siiski kasutada mõne muu rakenduse objektiteeki, lisamata sellele koodi. Peaksite deklareerima muutujad wdApp ja wdDoc objektidena ning seejärel kasutama CreateObject meetod, mitte Uus meetod luua uus eksemplar Microsoft Word.
| 123456789101112 | Sub CreateWordDocument ()Dim wdApp objektinaDim wdDoc kui objekt'avatud sõnaMäära wdApp = CreateObject ("Word.Application")"looge dokumentMäära wdDoc = wdApp.Documents.Add"tippige mõni tekstwdApp.Selection.TypeText Text: = "Tere hommikust, Melanie!"'Näita sõna ekraanilwdApp.Visible = TrueEnd Sub |
Hiline sidumine on kasulik, kui loodavat programmi kasutatakse mitmel masinal. Kui kasutajal on teistsugune Microsoft Office'i versioon kui teil, ei pruugi tal arvutis olla objektiraamatuks sobivat faili. Näiteks kui kasutate Exceli versiooni 16, kuid nad kasutavad Exceli versiooni 15, võivad need lõpuks puududa.
Selle saate hõlpsalt parandada, eemaldades puuduva viite kõrval oleva linnukese ja kerides seejärel alla, et leida õige viide ja märkida see.
