1. 아별툴
  2. 아별툴 패밀리
  3. 엑셀 질문하기
  4. 엑셀 강좌
  5. 엑셀 팁
  6. 엑셀 자료실
  7. 엑셀 연구과제
  8. 엑셀 북마크
  9. 관련 프로그램 소개

[VBA] 엑셀 파일을 PDF로 저장(EXPORT) 시키기

기타 조회 수 7345 추천 수 0 2015.01.21 09:48:54

회사 인사팀에서 문의가 있어 알려준 다음,

간단한 팁이라 간단히 기록해놓습니다.


엑셀 2007부터 PDF로 저장하는 기능이 생겼습니다.

엑셀 2007 초기 버전은 자체 기능이 아니라 추가 기능을 설치해야 사용할 수 있었던 것 같은 기억이 납니다.

엑셀 2010버전 이상 부터는 기본적으로 사용할 수가 있습니다.


아래 코들 참고하세요..

현재 시트의 인쇄 영역을 PDF로 저장해주는 코드입니다.


Sub abExportAsPDF()

    Dim sFileName As String: sFileName = "C:\ProgramData\abyul\Excel\Exported\abyulExportedPDF1.pdf"

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sFileName, Quality:=xlQualityStandard, _

        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

End Sub



[ 이하 퍼옴 ]


---------------------------------------------------------------

출처 : 엑셀장인님 네이버 카페

       http://cafe.naver.com/xlwhy/7270

---------------------------------------------------------------

현재 시트를 pdf 문서 형식으로 저장해주는 매크로(VBA)입니다


Sub sSavAsPDF()

   x = Environ("commonprogramfiles")

   y = "\Microsoft Shared\OFFICE" & Val(Application.Version)

   If Dir(x & y & "\EXP_PDF.DLL") = "" Then

      MsgBox "PDF add-in 설치되있지 않네요, 아래 링크를 눌러 설치하세요"

      Exit Sub

   End If

   pat = ThisWorkbook.Path

   srfile = "엑셀장인PDF파일"

   ActiveSheet.ExportAsFixedFormat _

         Type:=xlTypePDF, _

         Filename:=pat & "\" & srfile & ".pdf", _

         Quality:=xlQualityStandard, _

         IncludeDocProperties:=True, _

         IgnorePrintAreas:=False, _

         OpenAfterPublish:=False

End Sub

 

pdf 저장 애드인이 없는 경우에, 우선 아래 링크로 가서 설치하세요

http://www.microsoft.com/ko-kr/download/details.aspx?id=9943

바로 설치하세요.

힘내세요!

---------------------------------------------------------------



댓글 '1'

[레벨:1]아주막강한

2015.10.27 11:50:37
*.241.128.171

아하 엑셀도 애드인만 설치하면 pdf로 간단 변환이 되는군요.

좋은거 또하나 배웠네요 ㅎ

문서 첨부 제한 : 0Byte/ 2.00MB
파일 제한 크기 : 2.00MB (허용 확장자 : *.*)
List of Articles
번호 제목 글쓴이 날짜 조회 수
공지 기타 엑셀 VBA 간단한 팁 모아놓기.. +_+ [레벨:30]아별 2007-01-24 33819