Legg til innhold i en modul fra en fil ved hjelp av VBA i Microsoft Excel

Hvis du ikke vil legge til en komplett modul, kan du legge til bare de manglende prosedyrene
til en eksisterende modul ved å bruke makroen nedenfor. Den legger til innholdet i en tekstfil til en 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) = "" Avslutt deretter Sub på Feil Fortsett Neste Angi VBCM = wb.VBProject.VBComponents (ModuleName) .CodeModule Hvis ikke VBCM er ingenting, så VBCM.AddFromFile ImportFromFile Sett VBCM = Ingenting slutter hvis på feil GoTo 0 End Sub

Eksempel:

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