Dacă nu doriți să adăugați un modul complet, puteți adăuga doar procedurile lipsă
la un modul existent utilizând macro-ul de mai jos. Se adaugă conținutul unui fișier text la un modul existent:
Sub ImportModuleCode (ByVal wb As Workbook, _ ByVal ModuleName As String, ByVal ImportFromFile As String) 'importă codul în ModuleName în wb dintr-un fișier text numit ImportFromFile Dim VBCM Ca CodModul Dacă Dir (ImportFromFile) = "" Apoi ieșiți din Sub pe eroare Reîncepeți Următorul Setați VBCM = wb.VBProject.VBComponents (ModuleName) .CodeModule Dacă nu VBCM nu este nimic, atunci VBCM.AddFromFile ImportFromFile Set VBCM = Nothing End If On Error GoTo 0 End Sub
Exemplu:
ImportModuleCode ActiveWorkbook, "TestModule", "C: \ FolderName \ NewCode.txt"