Вы можете добавить код в модуль, не используя отдельный текстовый файл, содержащий код.

Макрос ниже показывает, как это можно сделать. Макрос необходимо настроить так, чтобы он содержал код, который вы хотите добавить:

Sub InsertProcedureCode(ByVal wb As Workbook, ByVal InsertToModuleName As String)

' inserts new code in module named InsertModuleName in wb

' needs customizing depending on the code to insert

Dim VBCM As CodeModule

Dim InsertLineIndex As Long

On Error Resume Next

Set VBCM = wb.VBProject.VBComponents(InsertToModuleName).CodeModule

If Not VBCM Is Nothing Then

With VBCM

InsertLineIndex = .CountOfLines + 1

' customize the next lines depending on the code you want to insert

.InsertLines InsertLineIndex, "Sub NewSubName()" & Chr(13)

InsertLineIndex = InsertLineIndex + 1

.InsertLines InsertLineIndex, _

"    Msgbox ""Hello World!"",vbInformation,""Message Box Title""" & Chr(13)

InsertLineIndex = InsertLineIndex + 1

.InsertLines InsertLineIndex, "End Sub" & Chr(13)

' no need for more customizing

End With

Set VBCM = Nothing

End If

On Error GoTo 0

End Sub

Пример:

InsertProcedureCode Workbooks("WorkBookName.xls"), "Module1"