일 | 월 | 화 | 수 | 목 | 금 | 토 |
---|---|---|---|---|---|---|
1 | 2 | |||||
3 | 4 | 5 | 6 | 7 | 8 | 9 |
10 | 11 | 12 | 13 | 14 | 15 | 16 |
17 | 18 | 19 | 20 | 21 | 22 | 23 |
24 | 25 | 26 | 27 | 28 | 29 | 30 |
31 |
- 동영상유포협박
- 카톡 영상 협박
- 랜덤채팅 사기
- 영상 사기
- 사이버범죄구제업체
- 몸캠피싱
- 라인 영상통화 사기
- 메신저톡 사기
- 카카오톡 협박
- 카카오톡 사기
- 몸캠피씽
- 엑셀#직장인칼퇴#칼퇴#직장인엑셀#VBA 배열#배열변수
- 라바웨이브
- 영상통화 협박
- 사이버범죄구제
- 카톡 영상 유출
- 영상사기
- 영통사기
- 영통 협박
- 라인 동영상 유포
- 영통협박
- 영상유출
- 카톡 영상 사기
- 영상통화 유출
- 라인 영상통화 협박
- 영상통화 사기
- 사이버 범죄 구제 업체
- 영상통화사기
- 팀카시아
- 동영상 사기
- Today
- Total
Lost Information!
엑셀 VBA 기초 - 엑셀시트를 PDF로 저장하기 본문
모두가 칼퇴하는 그날까지~
지난 글에서는
데이터 유효성 검사로
누락되거나 숫자를
문자로 적었을 경우
알려주는 방법에 대해
알려드렸습니다.
만일 저번 내용을 모르시거나
기억이 나질 않으신다면
밑에 글을 참고해주세요.
이번 글에서는
회사에서 많이 사용하시는
엑셀 시트를 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 파일로 변환하세요.
그럼 여기까지 궁금하신 점은
댓글에 남겨주시고
공감과 구독도 부탁드립니다.