시트별로 파일 저장하는 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]
'회사 생활 > 칼퇴를 도와주는 엑셀 꿀팁' 카테고리의 다른 글
| [VBA 코드] 항목별로 시트 분리 하기 (0) | 2020.06.28 |
|---|---|
| [VBA 코드] 여러 시트 데이터 하나의 시트로 모으기 (0) | 2020.06.28 |
| 월이 바뀌면 자동으로 구분선 그리기 (0) | 2020.06.28 |
| 특정 종류의 문자만 선택적으로 추출 하기 (4) | 2020.06.28 |
| 엑셀 시트 정렬 및 관리 템플릿 (0) | 2020.06.28 |
