Adicionar conteúdo a um módulo a partir de um arquivo usando VBA no Microsoft Excel

Se você não quiser adicionar um módulo completo, pode adicionar apenas os procedimentos que faltam
para um módulo existente usando a macro abaixo. Ele adiciona o conteúdo de um arquivo de texto a um módulo existente:

Sub ImportModuleCode (ByVal wb As Workbook, _ ByVal ModuleName As String, ByVal ImportFromFile As String) 'importa o código para ModuleName em wb de um arquivo de texto denominado ImportFromFile Dim VBCM As CodeModule If Dir (ImportFromFile) = "" Em seguida, saia do Sub no erro Continuar a seguir Definir VBCM = wb.VBProject.VBComponents (ModuleName) .CodeModule If Not VBCM Is Nothing Then VBCM.AddFromFile ImportFromFile Set VBCM = Nothing End If On Erro GoTo 0 End Sub

Exemplo:

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