아래 매크로를 사용하면 한 통합 문서에서 anaother로 모듈을 복사 할 수 있습니다.

Sub CopyModule(SourceWB As Workbook, strModuleName As String, _

TargetWB As Workbook)

' copies a module from one workbook to another

' example:

' CopyModule Workbooks("Book1.xls"), "Module1", _

Workbooks("Book2.xls")

Dim strFolder As String, strTempFile As String

strFolder = SourceWB.Path

If Len(strFolder) = 0 Then strFolder = CurDir

strFolder = strFolder & "\"

strTempFile = strFolder & "~tmpexport.bas"

On Error Resume Next

SourceWB.VBProject.VBComponents(strModuleName).Export strTempFile

TargetWB.VBProject.VBComponents.Import strTempFile

Kill strTempFile

On Error GoTo 0

End Sub