Lost Information!

엑셀 VBA 기초 - 엑셀시트를 PDF로 저장하기 본문

개인브랜드블로그를 만들어 보자/엑셀VBA

엑셀 VBA 기초 - 엑셀시트를 PDF로 저장하기

Lostinformation 2020. 12. 18. 21:23

모두가 칼퇴하는 그날까지~

 

지난 글에서는 

데이터 유효성 검사로

누락되거나 숫자를

문자로 적었을 경우

알려주는 방법에 대해

알려드렸습니다.

 

만일 저번 내용을 모르시거나

기억이 나질 않으신다면

밑에 글을 참고해주세요.

red-s.tistory.com/2467

 

엑셀 VBA 기초 - 데이터 유효성에 대해서 - 2편

모두가 칼퇴하는 그날까지~ 지난 글에서는 데이터 유효성 검사에 필요한 SUB와 FUNCTION의 차이를 알려드렸는데요. 만일 저번 내용을 모르시거나 기억이 나질 않으신다면 밑에 글을 참고해주세

red-s.tistory.com

 

 

이번 글에서는

회사에서 많이 사용하시는

엑셀 시트를 PDF로 저장하는

방법을 알려드리겠습니다.

 

상당히 많이 사용하는 

기능인데 모르시는 분들이

많으니 끝까지 봐주세요.

 

그럼 엑셀을 실행하고 

ALT + F11을 눌러주세요.

 

 

그리고 이렇게 

적어주시면 바로 

사용 가능하십니다.

 

매크로에 대해 

설명해드리면

 

Sub PDF_Save()

PDF_Save()라는

매크로를 만들게


Dim strPath     As String

strPath라는 변수를

설정하고 

(저장할 경로를

지정하기 위해 )


Dim strFile     As String

strFile라는 변수를

설정하고 

(파일명을 지정하기 위해)


Dim strSave     As String

strSave라는 변수를 

설정해주세요.

(최종적으로 파일명과

경로를 설정하기 우해)
    
strPath = "C:\Users\00111\Desktop\"

strPath는 

바탕화면에 저장해줘

(바탕화면 위치에 대한

주소를 적어주셔야 합니다.)

 

strFile = "테스트 PDF_" & Format(Date, "YYMMDD")

strFile의 이름은

테스트 PDF 뒤에

현재 날짜까지 적어줘

 

strSave = strPath & strFile & ". pdf"

최종적으로 strSave는 

strPath에 저장하고

strFile 이름으로

. PDF 형식으로 저장해줘 

   
Sheet1.ExportAsFixedFormat _

시트 1을 어떤 형식으로

내보낼 건데


Type:=xlTypePDF, _

그 파일 타입은

PDF타입이야


Filename:=strSave, _

파일 이름은 strSave고


Quality:=xlQualityStandard, _

품질은 엑셀 기본으로 하고


IncludeDocProperties:=True, _

속성을 포함시킬 거고


IgnorePrintAreas:=True, _

프린트할 영역을

선택할 거야


From:=1, _

1페이지부터


To:=1, _

1페이지까지만

(원하는 영역을

설정하실 수 있습니다.)

 

OpenAfterPublish:=False  

미리보기는 안 할 거야.          

 

Sheet1.DisplayPageBreaks = False

PDF 저장이 되고 나서 

페이지 구분선을 보지 않을 거야
    
End Sub

 

이렇게 적고 F5로 실행하면

 

 

이렇게 바탕화면에

엑셀 파일이 PDF 파일로 

저장된 것을 확인할 수 있습니다.

 

만약 이해가 안 가신다면

 

Sub PDF_Save()

    Dim strPath     As String
    Dim strFile     As String
    Dim strSave     As String
    
    strPath = "C:\Users\00111\Desktop\"
    strFile = "테스트 PDF_" & Format(Date, "YYMMDD")
    strSave = strPath & strFile & ". pdf"
    
    Sheet1.ExportAsFixedFormat _
           Type:=xlTypePDF, _
           Filename:=strSave, _
           Quality:=xlQualityStandard, _
           IncludeDocProperties:=True, _
           IgnorePrintAreas:=True, _
           From:=1, _
           To:=1, _
           OpenAfterPublish:=False
            
    Sheet1.DisplayPageBreaks = False
    
End Sub

 

복사하셔서 저장 경로만

수정하시고 변환할 페이지만

설정하신 후에 F5 버튼으로 

손쉽게 PDF 파일로 변환하세요.

 

그럼 여기까지 궁금하신 점은

댓글에 남겨주시고

공감구독도 부탁드립니다.

Comments