Pridajte obsah do modulu zo súboru pomocou jazyka VBA v programe Microsoft Excel

Ak nechcete pridať kompletný modul, môžete pridať iba chýbajúce postupy
do existujúceho modulu pomocou makra nižšie. Pridá obsah textového súboru do existujúceho modulu:

Sub ImportModuleCode (ByVal wb As Workbook, _ ByVal ModuleName As String, ByVal ImportFromFile As String) 'importuje kód do ModuleName v wb z textového súboru s názvom ImportFromFile Dim VBCM ako CodeModule If Dir (ImportFromFile) = "" Potom ukončiť Sub pri chybe Pokračovať ďalej Nastaviť VBCM = wb.VBProject.VBComponents (ModuleName) .CodeModule Ak nie VBCM nie je nič, potom VBCM.AddFromFile ImportFromFile Nastaviť VBCM = Nič Končiť Ak sa vyskytne chyba GoTo 0 End Sub

Príklad:

ImportModuleCode ActiveWorkbook, „TestModule“, „C: \ FolderName \ NewCode.txt“