Pridėkite turinio prie modulio iš failo naudodami „Microsoft Excel“ VBA

Anonim

Jei nenorite pridėti viso modulio, galite pridėti tik trūkstamas procedūras
į esamą modulį naudodami toliau pateiktą makrokomandą. Tai prideda teksto failo turinį prie esamo modulio:

Sub ImportModuleCode (ByVal wb As Workbook, _ ByVal ModuleName As String, ByVal ImportFromFile As String) “importuoja kodą į„ ModuleName “wb iš teksto failo, pavadinto ImportFromFile Dim VBCM kaip CodeModule If Dir (ImportFromFile) =" "Tada išeiti iš toliau esančios klaidos Nustatykite VBCM = wb.VBProject.VBComponents (ModuleName). CodeModule, jei ne VBCM yra niekas, tada VBCM.AddFromFile ImportFromFile rinkinys VBCM = Nieko nesibaigs, jei įvyks klaida GoTo 0 End Sub

Pavyzdys:

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