엑셀에서 시트 파일로 저장하기

엑셀에서 alt + F11눌러서

아래 코드를 삽입 후, 실행해보세요~!

파일이 해당 위치에 시트별로 만들어집니다~

'엑셀에서 시트 파일로 저장하기

Sub Split_sheet()

Dim path As String

path = Application.ActiveWorkbook.Path
Application.ScreenUpdating = False
Application.DisplayAlerts = False

For Each sheet In ThisWorkbook.Sheets

sheet.Copy
Application.ActiveWorkbook.SaveAs Filename:=path & "\" & sheet.Name & ".xlsx"
Application.ActiveWorkbook.Close False

Next

Application.DisplayAlerts = True
Application.ScreenUpdating = True

End Sub

활용결과

[적용전]

[적용후]