Inhoud toevoegen aan een module vanuit een bestand met VBA in Microsoft Excel

Als u geen volledige module wilt toevoegen, kunt u alleen de ontbrekende procedures toevoegen
naar een bestaande module met behulp van de onderstaande macro. Het voegt de inhoud van een tekstbestand toe aan een bestaande module:

Sub ImportModuleCode (ByVal wb As Workbook, _ ByVal ModuleName As String, ByVal ImportFromFile As String) ' importeert code naar ModuleName in wb uit een tekstbestand met de naam ImportFromFile Dim VBCM As CodeModule If Dir (ImportFromFile) = "" Sluit vervolgens af bij fout Hervatten Volgende Set VBCM = wb.VBProject.VBComponents(ModuleName).CodeModule Indien niet VBCM is niets dan VBCM.AddFromFile ImportFromFile Set VBCM = Nothing End If On Error GoTo 0 End Sub

Voorbeeld:

ImportModuleCode ActiveWorkbook, "TestModule", "C:\FolderName\NewCode.txt"