Lisage moodulisse sisu failist, kasutades Microsoft Excelis VBA -d

Kui te ei soovi täielikku moodulit lisada, saate lisada ainult puuduvad protseduurid
olemasoleva mooduli juurde, kasutades allolevat makro. See lisab olemasoleva mooduli tekstifaili sisu:

Sub ImportModuleCode (ByVal wb kui töövihik, _ ByVal ModuleName As String, ByVal ImportFromFile As String) 'impordib koodi WB -sse ModuleName tekstifailist nimega ImportFromFile Dim VBCM kui CodeModule If Dir (ImportFromFile) = "" Siis väljuge järgmiselt Määra VBCM = wb.VBProject.VBComponents (ModuleName) .CodeModule Kui mitte VBCM pole midagi, siis VBCM.AddFromFile ImportFromFile Set VBCM = Ei lõpe, kui viga ilmub GoTo 0 End Sub

Näide:

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