[VBA 코드] 시트별로 파일 저장 하기
시트별로 파일 저장하는 VBA 코드 입니다.
Sub Split_book()
Dim xPath As String
xPath = Application.ActiveWorkbook.Path
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each xWs In ThisWorkbook.Sheets
xWs.Copy
Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & xWs.Name & ".xlsx"
Application.ActiveWorkbook.Close False
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
MsgBox "작업 완료.! 남은 하루 보람차게...(zzz)", vbInformation, FE
End Sub
VBA 코드 실행 하는 법은 아래 포스팅 참고 하세요!
2020/06/28 - [칼퇴를 도와주는 엑셀 꿀팁] - 엑셀 VBA 코드 작성 및 실행 하기
엑셀 VBA 코드 작성 및 실행 하기
1. 엑셀 실행 후 Alt - F11 눌러 주세요! 그러면 MS VBA Applications 가 실행 됩니다. 여기에서 삽입 - 모듈을 선택 합니다. 그럼 다음과 같이 코드 입력 창이 나옵니다. 그럼 여기에 코드를 붙여 넣으시면
klovek.tistory.com
시트별 저장, 시트별로 파일 저장하지, 시트제목으로 파일 저장, 여러시트 파일로 저장, 파일로저장
출처: https://citrusshell.tistory.com/78?category=848665 [슬기로운 투자 생활을 위한 Financial Data Bank]