Lägg till innehåll till en modul från en fil med VBA i Microsoft Excel

Anonim

Om du inte vill lägga till en komplett modul kan du bara lägga till de saknade procedurerna
till en befintlig modul med hjälp av makrot nedan. Det lägger till innehållet i en textfil till en befintlig 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) = "" Stäng sedan Sub på fel Återuppta nästa Ange VBCM = wb.VBProject.VBComponents (ModuleName) .CodeModule Om inte VBCM är ingenting Då är VBCM.AddFromFile ImportFromFile Set VBCM = Inget slut om det vid fel GoTo 0 End Sub

Exempel:

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