Innholdsfortegnelse
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"
