V tem članku bomo ustvarili makro za uvoz modula v aktivni delovni zvezek.
Filename.bas bomo uporabljali kot modul, ki ga želimo uvoziti.
Če želite uvoziti modul iz Filename.bas v aktivni delovni zvezek, kliknite gumb za vstavljanje.
Delovni zvezek vsebuje samo en modul "MainModule".
Po zagonu makra bo iz Filename.bas uvožen nov modul
Logična razlaga
V tem članku smo ustvarili dva makra, InsertVBComponent in Calling_Procedure
Vstavi komponento VBC
Za vhodne podatke vzame ime delovnega zvezka in ime datoteke, modul pa uvozi v delovni zvezek.
Calling_Procedure
Uporablja se za klic makra InsertVBComponent z aktivnim delovnim zvezkom in Filename.bas kot vhodi.
Razlaga kode
Če Dir (CompFileName) "" Potem
Zgornja koda se uporablja za preverjanje, ali ime datoteke obstaja v imeniku.
wb.VBProject.VBComponents.Import CompFileName
Zgornja koda se uporablja za uvoz modula v aktivni delovni zvezek.
Za kodo sledite spodaj
Možnost Eksplicitna podvstavka VBComponent (ByVal wb kot delovni zvezek, ByVal CompFileName kot niz) "Vstavi vsebino CompFileName kot novo komponento v delovnem zvezku" CompFileName mora biti veljavna komponenta VBA, primerna za "uvoz (izvožena komponenta VBA)" Preverjanje, ali je datoteka CompFileName obstaja Če Dir (CompFileName) "" Potem "Prezri napake pri napaki Nadaljuj naprej" Vstavi komponento iz datoteke wb.VBProject.VBComponents.Import CompFileName On Error GoTo 0 End If Set wb = Nothing End Sub Sub Calling_Procedure () 'Calling InsertVBComponent procedure InsertVBComponent InsertV ActiveWorkbook, "C: \ Users \ Ramandeep \ Desktop \ Filename.bas" End Sub
Če vam je bil ta blog všeč, ga delite s prijatelji na Facebooku. Prav tako nam lahko sledite na Twitterju in Facebooku.
Radi bi slišali od vas, nam sporočite, kako lahko izboljšamo svoje delo in ga izboljšamo za vas. Pišite nam na spletnem mestu e -pošte