Excel 에서 여러 통합 문서를 내보내는 방법

한 통합 문서에서 다른 통합 문서로 여러 매크로 VBA 코드를 내보내야 하는 경우 일반적으로 한 번에 하나씩 복사할 수 있습니다. 하지만 시간이 걸립니다. 이 문서에서는 모든 매크로를 한 통합 문서에서 다른 통합 문서로 빠르게 내보내고 매크로 파일을 특정 폴더에 저장하는 방법에 대해 설명하겠습니다.

VBA 코드를 사용하여 모든 매크로를 한 통합 문서에서 다른 통합 문서로 내보냅니다.

VBA 코드를 사용하여 모든 매크로를 한 통합 문서에서 다른 통합 문서로 내보냅니다.

한 Excel 파일에서 다른 Excel 파일로 모든 매크로 VBA 코드를 내보내려면 다음 단계를 수행합니다.

1. 먼저 두 개의 통합 문서를 동시에 열어야 합니다. 하나는 매크로를 포함하고 다른 하나는 매크로를 내보낼 통합 문서입니다. 스크린 샷 참조:

2. ALT+F 1 1 을 눌러 Microsoft visual basic for applications 창을 엽니다.

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

VBA 코드: 한 통합 문서에서 다른 통합 문서로 모든 매크로를 내보냅니다.

하위 ExportAndImportModule ()

Dim xStrSWSName, xSreDWSName 을 문자열로 사용

Xsw, xDWS 를 통합 문서로 사용

XStrSWSName = "기존 통합 문서"

XSreDWSName = "new-workbook "

Dim xFilePath 를 문자열로 사용

Dim xObjFD As FileDialog

XObjFD = Application 을 설정합니다. 파일 대화상자 (msoFileDialogFolderPicker)

XObjFD 사용

。 AllowMultiSelect = False

。 표시

If .SelectedItems.Count & gt 그렇게 0

Xfilepath =. selecteditems.item (1)

기타

출구 커넥터

만약 ... 끝날거야

로 끝맺다

오류 발생 시 Err 1

Set xsws = workbooks (xstrswsname & ".xlsm") 을 참조하십시오

Set xdws = workbooks (xsredwsname & ".xlsm") 을 참조하십시오

Xvbap = xSWS 를 설정합니다. Vb 프로젝트

XVBC = xvbap 를 설정합니다. VB 구성 요소

XSWS 의 각 모듈에 대해 다음을 수행합니다. VBProject.VBComponents

중간 주파수 모듈. Type = vbext_ct_StdModule

모듈. 내보내기 (xFilePath & amp”& amp 모듈). 이름과 이름. ".bas") 를 참조하십시오

XDWS. Vbproject.vbcomponents.import "& 모듈. 이름과 이름. ".bas") 를 참조하십시오

만약 ... 끝날거야

다음 모듈

출구 커넥터

Err 1:

MsgBox 는 "허사가 되었다!"

끝단 접합

참고: 위 코드에서 "기존 통합 문서" 는 매크로를 내보낼 통합 문서의 이름이고 "새 통합 문서" 는 매크로를 가져올 통합 문서입니다. 너는 이름을 너의 것으로 바꿔야 한다. 두 통합 문서 모두 XLSM 파일 형식이어야 합니다.

4. 위 코드를 붙여넣은 후 F5 키를 눌러 코드를 실행하면 찾아보기 창이 나타납니다. 내보낸 매크로 파일을 저장할 폴더를 선택하십시오 (스크린샷 참조).

5. 그런 다음 확인 버튼을 클릭하면 모든 매크로가 지정된 통합 문서에서 다른 Excel 파일로 내보내지고 매크로 파일도 특정 폴더에 저장됩니다. 스크린샷 보기:

참고: 이 코드는 일반 모듈에서만 매크로를 내보낼 수 있습니다.