하나의 워크북에서 다른 워크북으로 모든 매크로를 내보내는 방법은 무엇인가요？

여러 매크로 VBA 코드를 하나의 워크북에서 다른 워크북으로 내보내야 하는 경우 일반적으로 하나씩 복사할 수 있습니다。 하지만 이는 시간이 많이 소요됩니다。 본 문서에서는 하나의 워크북에서 다른 워크북으로 모든 매크로를 신속하게 내보내고 해당 매크로 파일을 특정 폴더에 저장하는 방법을 설명합니다。

VBA 코드를 사용하여 하나의 워크북에서 다른 워크북으로 모든 매크로 내보내기

---

VBA 코드를 사용하여 하나의 워크북에서 다른 워크북으로 모든 매크로 내보내기

하나의 Excel 파일에서 다른 파일로 모든 매크로 VBA 코드를 내보내려면 다음 단계를 따르세요：

1。 먼저 매크로가 포함된 워크북과 매크로를 내보낼 대상 워크북을 동시에 열어야 합니다。 아래 스크린샷 참조：

Office Tab-단일 탭 창에서 여러 Office 문서를 열고， 읽고， 편집하며 관리하기 Office Tab 은(는) Microsoft Office 애플리케이션의 탭 기반 탐색, 편집 및 관리를 가능하게 합니다. 인터넷 익스플로러 8/9/10, Firefox, Google Chrome 과 같은 브라우저를 사용할 때처럼 단일 탭 창에서 여러 문서/파일을 열 수 있습니다。지금 다운로드하고 무료 체험하세요！

2.ALT + F11키를 누른 상태로 유지하여Microsoft Visual Basic for Applications창을 엽니다。

3.삽입>모듈을 클릭한 후 다음 매크로를모듈창에 붙여넣습니다。

VBA 코드： 하나의 워크북에서 다른 워크북으로 모든 매크로 내보내기：

Sub ExportAndImportModule()
Dim xStrSWSName, xSreDWSName As String
Dim xSWS, xDWS As Workbook
xStrSWSName = "old-workbook"
xSreDWSName = "new-workbook"
Dim xFilePath As String
Dim xObjFD As FileDialog
Set xObjFD = Application.FileDialog(msoFileDialogFolderPicker)
 With xObjFD
        .AllowMultiSelect = False
        .Show
        If .SelectedItems.Count > 0 Then
            xFilePath = .SelectedItems.Item(1)
        Else
            Exit Sub
        End If
End With
On Error GoTo Err1
Set xSWS = Workbooks(xStrSWSName & ".xlsm")
Set xDWS = Workbooks(xSreDWSName & ".xlsm")
Set xvbap = xSWS.VBProject
Set xVBC = xvbap.VBComponents
For Each Module In xSWS.VBProject.VBComponents
If Module.Type = vbext_ct_StdModule Then
Module.Export (xFilePath & "\" & Module.Name & ".bas")
xDWS.VBProject.VBComponents.Import (xFilePath & "\" & Module.Name & ".bas")
End If
Next Module
Exit Sub
Err1:
    MsgBox "come to nothing!"
End Sub

참고： 위 코드에서 “old-workbook”은(는) 매크로를 내보내려는 워크북 이름이고， “new-workbook”은(는) 매크로를 가져오려는 워크북입니다。 자신의 워크북 이름으로 변경해야 합니다。 두 워크북 모두xlsm파일 유형 형식이어야 합니다。

4。 위 코드를 붙여넣은 후F5키를 눌러 코드를 실행하면찾아보기창이 표시됩니다。 내보낸 매크로 파일을 저장할 폴더를 선택하세요。 아래 스크린샷 참조：

5。 그런 다음확인버튼을 클릭하면 지정한 워크북에서 다른 Excel 파일로 모든 매크로가 내보내지고， 매크로 파일도 해당 폴더에 함께 저장됩니다。 아래 스크린샷 참조：

참고： 이 코드는 일반 모듈의 매크로만 내보낼 수 있습니다。