엑셀 매크로 VBA] 각 시트를 pdf 파일로 저장하기
2017. 4. 9. 13:15
이전 블로그 글에서 특정 컬럼을 기준으로 별도의 시트로 만드는 방법과 여러개의 시트를 하나씩 별도의 엑셀 파일로 만드는 매크로 VBA에 대해 정리했었다.
이번 글에서는 각각의 시트를 저장할 때 xls 형식의 엑셀파일로 저장하는게 아니라 pdf 파일로 저장하는 매크로에 대해 알아본다.
매크로는 각각의 시트를 엑셀로 저장하는 매크로와 거의 유사하고 파일을 pdf로 저장하기 위해서 export type을 xlTypePDF로 정해주는 부분이 다르다.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 | Sub sheet2pdf() Dim xPath As String xPath = Application.ActiveWorkbook.Path Application.ScreenUpdating = False Application.DisplayAlerts = False For Each xWs In ThisWorkbook.Sheets xWs.ExportAsFixedFormat _ Type:=xlTypePDF, _ Filename:=xPath & "\" & xWs.Name & ".pdf", _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False Next Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub | cs |
해당 매크로 VBA를 실행시키면 현재 열려있는 엑셀 파일과 같은 폴더에 각각의 엑셀시트가 개별 pdf 파일로 저장된다.
'Excel > 엑셀 VBA' 카테고리의 다른 글
엑셀 매크로 VBA] 워크시트 이름 셀 텍스트로 가져오기 (0) | 2017.04.30 |
---|---|
엑셀 매크로 VBA] 워크시트 이름을 셀 내용으로 자동으로 바꾸기 (8) | 2017.04.29 |
엑셀 매크로 VBA] 각 시트를 pdf 파일로 저장하기 (5) | 2017.04.09 |
엑셀 매크로 VBA] 열 너비와 행 높이 다른 시트에 적용하기 (3) | 2016.12.05 |
엑셀 매크로 VBA] 초보자용 VBA 사용 방법 (17) | 2016.12.04 |
엑셀 매크로 VBA] 각 시트를 별도 파일로 저장하기 (1) | 2016.12.03 |
엑셀 매크로 VBA] 열 데이터에 따라 각각의 시트로 분리하기 (17) | 2016.12.02 |
엑셀 매크로 VBA] 병합한 셀 해제하고 셀 내용 채우기 (0) | 2016.11.30 |
엑셀 매크로 VBA] 같은 내용일 때 셀 병합하기 (0) | 2016.11.29 |
엑셀 매크로 VBA] 셀 안의 영어와 한글, 숫자 분리 추출하는 매크로 VBA (0) | 2016.11.06 |
엑셀 매크로 VBA] 그림(사진) 쉽게 삽입하는 매크로 VBA (9) | 2016.11.05 |
pdf로 만들고 보니 A4사이즈를 넘어서 그런지 3장으로 되던데
인쇄 할때처럼 한페이지에 시트 맞추기를 하려면 어떻게 해야되나요??ㅜㅜ
좋은 정보 정말 감사합니다.^^ 많이 배워 갑니다.
각 시트가아닌 지정시트는 불가능 한가요
관리자의 승인을 기다리고 있는 댓글입니다
관리자의 승인을 기다리고 있는 댓글입니다