Føj indhold til et modul fra en fil ved hjælp af VBA i Microsoft Excel

Anonim

Hvis du ikke vil tilføje et komplet modul, kan du tilføje bare de manglende procedurer
til et eksisterende modul ved hjælp af makroen herunder. Det tilføjer indholdet af en tekstfil til et eksisterende modul:

Sub ImportModuleCode (ByVal wb As Workbook, _ ByVal ModuleName As String, ByVal ImportFromFile As String) 'import code to ModuleName in wb from a textfile named ImportFromFile Dim VBCM As CodeModule If Dir (ImportFromFile) = "" Herefter Afslut Sub On Error Resume Next Indstil VBCM = wb.VBProject.VBComponents (ModuleName) .CodeModule Hvis ikke VBCM er intet, så VBCM.AddFromFile ImportFromFile Set VBCM = Intet slutter hvis ved fejl GoTo 0 End Sub

Eksempel:

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