엑셀 매크로 VBA] 각 시트를 pdf 파일로 저장하기

2017.04.09 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 파일로 저장된다. 




< 소스코드,  엑셀 파일 다운로드 >


sheet2pdf.txt

VBA매크로_시트들을 pdf로 저장.xlsm







저작자 표시 비영리 변경 금지
신고

또루아빠 Excel/엑셀 VBA , , , , , ,

  1. Blog Icon
    박종범

    관리자의 승인을 기다리고 있는 댓글입니다

티스토리 툴바