Selles artiklis loome makro, et importida moodul aktiivsesse töövihikusse.
Me kasutame moodulina Filename.bas, mida soovime importida.
Klõpsake sisestusnuppu, et importida moodul failist Filename.bas aktiivsesse töövihikusse.
Töövihik sisaldab ainult ühte moodulit “MainModule”.
Pärast makro käivitamist imporditakse uus moodul failist Filename.bas
Loogiline seletus
Selles artiklis oleme loonud kaks makrot, InsertVBComponent ja Calling_Procedure
InsertVBComponent
See võtab sisenditeks töövihiku ja failinime ning impordib mooduli töövihikusse.
Helistamine_protseduur
Seda kasutatakse makro InsertVBComponent kutsumiseks aktiivse töövihiku ja sisendina Filename.bas.
Koodi selgitus
Kui Dir (CompFileName) "" Siis
Ülaltoodud koodi abil kontrollitakse, kas failinimi on kataloogis olemas.
wb.VBProject.VBComponents.Import CompFileName
Ülaltoodud koodi kasutatakse mooduli importimiseks aktiivsesse töövihikusse.
Palun järgige koodi allpool
Valik Explicit Sub InsertVBComponent (ByVal wb kui töövihik, ByVal CompFileName kui string) "Lisab CompFileName'i sisu töövihiku uue komponendina" CompFileName peab olema kehtiv VBA komponent, mis sobib importimiseks (eksporditud VBA komponent) eksisteerib Kui Dir (CompFileName) "" Siis "Ignoreeri tõrkeid vea korral Jätka järgmisel" lisab komponendi failist wb.VBProject.VBComponents.Import CompFileName On Error GoTo 0 End If Set wb = Nothing End Sub Sub Calling_Procedure () 'Calling InsertVBComponent procedure InsertVBComponent ActiveWorkbook, "C: \ Users \ Ramandeep \ Desktop \ Filename.bas" Lõpu alam
Kui teile see blogi meeldis, jagage seda oma sõpradega Facebookis. Lisaks saate meid jälgida Twitteris ja Facebookis.
Tahaksime sinust kuulda, andke meile teada, kuidas saaksime oma tööd paremaks muuta ja teie jaoks paremaks muuta. Kirjuta meile meilisaidile