Добавете съдържание към модул от файл, използвайки VBA в Microsoft Excel

Ако не искате да добавите пълен модул, можете да добавите само липсващите процедури
към съществуващ модул, като използвате макроса по -долу. Той добавя съдържанието на текстов файл към съществуващ модул:

Sub ImportModuleCode (ByVal wb Като работна книга, _ ByVal ModuleName As String, ByVal ImportFromFile As String) 'импортира кода в ModuleName в wb от текстов файл с име ImportFromFile Dim VBCM като CodeModule Ако Dir (ImportFromFile) = "" След това излезте след Sub On Error Задайте VBCM = wb.VBProject.VBCcomponents (ModuleName) .CodeModule Ако не VBCM е нищо, тогава VBCM.AddFromFile ImportFromFile Задайте VBCM = Нищо не свършва, ако е включено Грешка GoTo 0 End Sub

Пример:

ImportModuleCode ActiveWorkbook, "TestModule", "C: \ Име на папка \ NewCode.txt"