V tomto článku vytvoříme makro pro import modulu do aktivního sešitu.
Jako modul použijeme Filename.bas, který chceme importovat.
Kliknutím na tlačítko Vložit importujete modul z Filename.bas do aktivního sešitu.
Sešit obsahuje pouze jeden modul „MainModule“.
Po spuštění makra bude ze souboru Filename.bas importován nový modul
Logické vysvětlení
V tomto článku jsme vytvořili dvě makra, InsertVBComponent a Calling_Procedure
Vložte VBComponent
Jako vstupy vezme název sešitu a název souboru a modul importuje do sešitu.
Calling_Procedure
Používá se k volání makra InsertVBComponent s aktivním sešitem a Filename.bas jako vstupy.
Vysvětlení kódu
If Dir (CompFileName) "" Then
Výše uvedený kód slouží ke kontrole, zda název souboru v adresáři existuje.
wb.VBProject.VBComponents.Import CompFileName
Výše uvedený kód slouží k importu modulu do aktivního sešitu.
Pro kód prosím postupujte níže
Volba Explicitní Sub InsertVBComponent (ByVal wb jako sešit, ByVal CompFileName jako řetězec) 'Vloží obsah CompFileName jako novou součást do sešitu' CompFileName musí být platnou komponentou VBA vhodnou pro 'import (exportovaná komponenta VBA)' Kontrola, zda soubor CompFileName existuje If Dir (CompFileName) "" Then 'Ignore errors On Error Resume Next' Inserts component from file 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
Pokud se vám tento blog líbil, sdílejte ho se svými přáteli na Facebooku. Také nás můžete sledovat na Twitteru a Facebooku.
Rádi bychom od vás slyšeli, dejte nám vědět, jak můžeme zlepšit naši práci a zlepšit ji pro vás. Napište nám na e -mail