Wenn Sie kein vollständiges Modul hinzufügen möchten, können Sie einem vorhandenen Modul mithilfe des folgenden Makros nur die fehlenden Prozeduren hinzufügen. Es fügt den Inhalt einer Textdatei einem vorhandenen Modul hinzu:

Sub ImportModuleCode(ByVal wb As Workbook, _

ByVal ModuleName As String, ByVal ImportFromFile As String)

' imports code to ModuleName in wb from a textfile named ImportFromFile

Dim VBCM As CodeModule

If Dir(ImportFromFile) = "" Then Exit Sub

On Error Resume Next

Set VBCM = wb.VBProject.VBComponents(ModuleName).CodeModule

If Not VBCM Is Nothing Then

VBCM.AddFromFile ImportFromFile

Set VBCM = Nothing

End If

On Error GoTo 0

End Sub

Beispiel:

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