Lisää sisältöä moduuliin tiedostosta Microsoft Excelin VBA: n avulla

Anonim

Jos et halua lisätä täydellistä moduulia, voit lisätä vain puuttuvat toimenpiteet
olemassa olevaan moduuliin alla olevan makron avulla. Se lisää tekstitiedoston sisällön olemassa olevaan moduuliin:

Sub ImportModuleCode (ByVal wb As Workbook, _ ByVal ModuleName As String, ByVal ImportFromFile As String) '' tuo koodin wodu -moduuliin ModuleName tekstitiedostosta nimeltä ImportFromFile Dim VBCM CodeModule If Dir (ImportFromFile) = "" Sitten Exit Sub On Error Resume Aseta VBCM = wb.VBProject.VBComponents (ModuleName) .CodeModule Jos ei VBCM ei ole mitään sitten VBCM.AddFromFile ImportFromFile Aseta VBCM = Ei mitään päättyy, jos on virhe GoTo 0 End Sub

Esimerkki:

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