엑셀 VBA 시트별로 다른 파일로 저장하기, 엑셀 VBA 시트 각각 저장하기

여러개의 시트가 있는 엑셀 파일에서

각각의 시트를 각각의 파일로

나누어 저장하는 방법을 알아보겠습니다.

 

아래 그림처럼 [ A반, B반, C반 ]이 세개의 시트로

나누어져 있습니다.

.

이 시트들을 

각각의 파일로 저장하는 코드는

아래와 같습니다.

Sub 시트별_별도파일_저장()
Dim i As Long
Dim ws As Worksheet

Application.ScreenUpdating = False
Application.DisplayAlerts = False

For Each ws In ThisWorkbook.Sheets
    ws.Copy
    With ActiveWorkbook
        .SaveAs ThisWorkbook.Path & "\" & ws.Name & ".xlsx"
        .Close
    End With
Next ws

Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

 

728x90

반응형

 

현재 폴더에는

하나의 파일이 있습니다.

이 파일은 [  A반, B반, C반 ]으로 구성된

세개의 시트가 있습니다.

 

위 코드를 실행하면

아래 그림과 같이 

각 시트별로 별개의 파일이 만들어지게 됩니다.

 

야근하지 맙시다!