Você pode adicionar código a um módulo sem usar um arquivo de texto separado que contém o código.
A macro abaixo mostra como isso pode ser feito. A macro deve ser personalizada para conter o código que você deseja adicionar:
Sub InsertProcedureCode (ByVal wb As Workbook, ByVal InsertToModuleName As String) 'insere um novo código no módulo denominado InsertModuleName em wb' precisa de personalização dependendo do código para inserir Dim VBCM As CodeModule Dim InsertLineIndex As Long On Erro Resume Next Definir VBCM = wb.VBProject .VBComponents (InsertToModuleName) .CodeModule If Not VBCM Is Nothing Then Com VBCM InsertLineIndex = .CountOfLines + 1 'personaliza as próximas linhas dependendo do código que você deseja inserir .InsertLines InsertLineIndex, "Sub NewSubName ()" & Chr (13) InsertLineIndex = InsertLineIndex + 1 .InsertLines InsertLineIndex, _ "Msgbox" "Hello World!" ", VbInformation," "Título da caixa de mensagem" "" & Chr (13) InsertLineIndex = InsertLineIndex + 1 .InsertLines InsertLineIndex, "End Sub" & Chr ( 13) 'não há necessidade de mais personalização End With Set VBCM = Nothing End If On Error GoTo 0 End Sub
Exemplo:
Pastas de trabalho InsertProcedureCode ("WorkBookName.xls"), "Módulo1"