ETC - 엑셀 시트별 파일저장

Topic =  엑셀 1개 파일에 시트가 여러개 있을때 따로 잘라서 파일로 저장할 필요가 있음 이때 사용하기 위한 방법

Step - 1 - Alt + F11 - Microsoft Visual Basic 열기

=좌측에 sheet확인

Step - 2 - 삽입-> 모듈 클릭

Step - 3 - 코드 입력창 확인

Step - 4 - 하단 코드입력후 F5 누름

============================

Sub Separate_Tab()

Dim Directory_Path As String

Directory_Path = Application.ActiveWorkbook.Path

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

===================================

Step - 5 - 파일 확인