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

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

기타 조회 수 3389 추천 수 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 25519
64 기타 오피스2010 64bit(64비트)를 위한 API Declare 방법 _ 윈도우 도움말 file [레벨:30]아별 2017-04-21 394
63 기타 [VBA] 컴퓨터 이름 알아내기 등 PC 환경 변수 읽오이기.. Environ [레벨:30]아별 2015-04-08 1314
» 기타 [VBA] 엑셀 파일을 PDF로 저장(EXPORT) 시키기 [1] [레벨:30]아별 2015-01-21 3389
61 기타 [펌] 추가 기능 개발시 리본메뉴에 넣을 MSO Image 쉽게 확인하기 imagefile [레벨:30]아별 2015-01-09 852
60 기타 엑셀 2013에서 웹 브라우저 컨트롤(ActiveX, web browser)을 시트에 삽입할 수 없는 문제.. imagefile [레벨:30]아별 2014-01-19 2036
59 기타 [ VBA Tip ] 엑셀 VBA로 사진(JPG)의 EXIF 정보(GPS 포함) 불러 들이기.. imagefile [6] [레벨:30]아별 2012-02-27 4891
58 기타 VBA로 인디언식 이름 만들어주는 사용자 정의 함수 만들기.. imagefile [1] [레벨:30]아별 2012-01-11 3057
57 기타 오피스2010 64bit(64비트)를 위한 API Declare 방법 file [2] [레벨:30]아별 2011-10-05 5480
56 기타 [펌] VBA 공부를 시작하시는분들에게 추천하는 강의자료 imagefile [4] [레벨:30]아별 2011-03-21 10917
55 기타 VBA _ 레지스트리 다루기 ( registry control ) imagefile [레벨:30]아별 2011-03-19 4880
54 기타 엑셀에서 소리 내기(재생) _ sound play file [1] [레벨:30]아별 2010-12-13 4564
53 기타 헷갈리기 쉬운 워크시트 함수와 VBA함수 비교표 imagefile [레벨:30]아별 2010-10-05 4340
52 기타 기본 제공 대화 상자 실행하면 초기 값 설정 imagefile [레벨:30]아별 2010-08-25 3752
51 기타 [펌] 엑셀 VBA 총정리 _ Excel 개체 모델 참조 등 image [2] [레벨:30]아별 2010-03-09 10697
50 기타 [링크] VBA로 파일을 다루는 방법에 대한 강좌들을 모아놓은 겁니다. [레벨:30]아별 2010-03-03 7193
49 현재 엑셀 파일의 색상표(Color Chart) 확인용 코드 [레벨:30]아별 2009-12-24 5255
48 [펌] Visual Basic (비쥬얼 베이직) 함수 정리 imagefile [레벨:30]아별 2009-11-27 15317
47 엑셀 사용자 정의 수식(UDF)에 도움말 넣는 방법. [레벨:30]아별 2009-11-11 3948
46 Excel에서 메뉴 및 메뉴 모음을 사용자 지정하는 방법 image [레벨:30]아별 2009-11-04 5150
45 기타 엑셀 기본 제공 대화 상자 인수 목록 file [레벨:30]아별 2009-11-04 5822