엑셀 - 각 시트별로 파일 만들기 매크로

 

1. 시트를 분리할 엑셀파일 실행

 

2. Alt + F11 

 

  이런 VBA(Visual Basic for Applications) 창이 실행 됨 

 

 

 2.1. 파일을 분리할 엑셀 파일 선택 후 우측 마우스 클릭

 2.2. 삽입 > 모듈

 

 

 

3. Module에 다음 코드 삽입

 

Sub Separate_Tab()


Dim Directory_Path As String

Directory_Path = Application.ActiveWorkbook.Path


If Directory_Path = vbNullString Or Right$(Directory_Path & "\" & "exports", 1) <> "\" Then
Else
MkDir (Directory_Path & "\" & "exports")
End If

Directory_Path = Directory_Path & "\" & "exports"


Application.ScreenUpdating = False
Application.DisplayAlerts = False


For Each Tab_name In ThisWorkbook.Sheets
    Tab_name.Copy
    Application.ActiveWorkbook.SaveAs Filename:=Directory_Path & "\" & Tab_name.Name & ".xlsx"
    Application.ActiveWorkbook.Close False
Next


Application.DisplayAlerts = True
Application.ScreenUpdating = True


End Sub

 

 

4. F5 실행

 

 실행하면 현재 엑셀파일이 있는 디렉토리를 기준으로 exports라는 디렉토리를 생성한 후, 각 시트별로 .xlsx라는 확장자의 파일들이 생성 됨