Dodaj zawartość do modułu z pliku za pomocą VBA w programie Microsoft Excel

Anonim

Jeśli nie chcesz dodawać całego modułu, możesz dodać tylko brakujące procedury
do istniejącego modułu za pomocą poniższego makra. Dodaje zawartość pliku tekstowego do istniejącego modułu:

Sub ImportModuleCode(ByVal wb As Workbook, _ ByVal ModuleName As String, ByVal ImportFromFile As String) ' importuje kod do ModuleName w wb z pliku tekstowego o nazwie ImportFromFile Dim VBCM As CodeModule If Dir(ImportFromFile) = "" Then Exit Sub On Error Resume Next Ustaw VBCM = wb.VBProject.VBComponents(ModuleName).CodeModule Jeśli nie VBCM to nic, to VBCM.AddFromFile ImportFromFile Ustaw VBCM = nic, koniec, jeśli na błąd GoTo 0 End Sub

Przykład:

ImportModuleCode ActiveWorkbook, „TestModule”, „C:\FolderName\NewCode.txt”