Hinzufügen von Inhalten zu einem Modul aus einer Datei mit VBA in Microsoft Excel
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"