Dodajte sadržaj modulu iz datoteke pomoću VBA u Microsoft Excelu

Ako ne želite dodati cijeli modul, možete dodati samo procedure koje nedostaju
na postojeći modul pomoću dolje navedene makronaredbe. Dodaje sadržaj tekstualne datoteke u postojeći modul:

Sub ImportModuleCode (ByVal wb Kao radna knjiga, _ ByValNaziv modula kao niz, ByVal ImportFromFile Kao niz) 'uvozi kôd u ModuleName u wb iz tekstualne datoteke pod nazivom ImportFromFile Dim VBCM kao CodeModule Ako Dir (ImportFromFile) = "" Zatim izađite Sljedeći greškom Postavi VBCM = wb.VBProject.VBComponents (ModuleName) .CodeModule Ako nije VBCM je ništa Tada VBCM.AddFromFile ImportFromFile Postavi VBCM = Ništa završi ako je pogreška Idi na 0 Prebaci Sub

Primjer:

ImportModuleCode ActiveWorkbook, "TestModule", "C: \ Ime mape \ NewCode.txt"