V tomto článku vytvoríme makro na import modulu do aktívneho zošita.
Ako modul budeme používať súbor Filename.bas, ktorý chceme importovať.
Kliknutím na tlačidlo Vložiť importujete modul z Filename.bas do aktívneho zošita.
Zošit obsahuje iba jeden modul „MainModule“.
Po spustení makra bude zo súboru Filename.bas importovaný nový modul
Logické vysvetlenie
V tomto článku sme vytvorili dve makrá, InsertVBComponent a Calling_Procedure
Vložte komponent VBC
Ako vstupy vezme názov zošita a názov súboru a modul importuje do zošita.
Calling_Procedure
Používa sa na volanie makra InsertVBComponent s aktívnym zošitom a vstupmi ako Filename.bas.
Vysvetlenie kódu
Ak Dir (CompFileName) "" Potom
Vyššie uvedený kód slúži na kontrolu, či v adresári existuje názov súboru.
wb.VBProject.VBComponents.Import CompFileName
Vyššie uvedený kód sa používa na import modulu do aktívneho zošita.
Pri kódovaní postupujte podľa nižšie uvedených pokynov
Možnosť Explicitná čiastková vložkaVBComponent (ByVal wb ako zošit, ByVal CompFileName ako reťazec) „Vloží obsah CompFileName ako nový komponent do zošita“ CompFileName musí byť platným komponentom VBA vhodným pre „import (exportovaný komponent VBA)“ Kontrola, či súbor CompFileName existuje If Dir (CompFileName) "" Then 'Ignore errors On Error Resume Next' Vloží komponent zo súboru 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“ End Sub
Ak sa vám tento blog páčil, zdieľajte ho so svojimi priateľmi na Facebooku. Môžete nás tiež sledovať na Twitteri a Facebooku.
Budeme radi, ak sa nám ozvete, dajte nám vedieť, ako môžeme zlepšiť našu prácu a zlepšiť ju pre vás. Napíšte nám na emailovú stránku