Dodajte vsebino modulu iz datoteke z uporabo VBA v Microsoft Excelu

Če ne želite dodati celotnega modula, lahko dodate le manjkajoče postopke
na obstoječi modul s spodnjim makrom. Obstoječemu modulu doda vsebino besedilne datoteke:

Sub ImportModuleCode (ByVal wb kot delovni zvezek, _ ByVal ime modula kot niz, ByVal ImportFromFile kot niz) 'uvozi kodo v ime modula v wb iz besedilne datoteke z imenom ImportFromFile Dim VBCM kot CodeModule Če Dir (ImportFromFile) = "" Nato zapustite naslednji pod Nastavite VBCM = wb.VBProject.VBComponents (ModuleName) .CodeModule Če ne VBCM je nič, potem VBCM.AddFromFile ImportFromFile Nastavite VBCM = Nič konca, če je vklopljeno Napaka Pojdi 0 Konec pod

Primer:

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