엑셀 시트별 PDF 일괄 변환 출력

엑셀 시트별 PDF 일괄 변환 출력

 

---

 

엑셀을 PDF 변환하는 작업이 업무중에 많이 필요하게 되는데요,,

수량산출서 등을 출력할때,, 종종 머릿말, 꼬릿말에 페이지 번호가 들어가있는 시트가 있습니다.

 

그럴때 보통하듯이 시트를 묶음 선택해서 출력, 변환을 하시면 선택된 시트의 총페이지 중의 페이지 번호로 머릿말 페이지 번호가 적용되서 반복작업을 하실때가 많은데요

(ex. 시트1(1~10p), 시트2(1~10p) 이때 시트2의 첫번째장의 머릿말 페이지 번호가 (11)로 적용되서 출력됩니다.)

 

엑셀 다른이름으로 저장(pdf) 기능을 이용한 pdf 생성 매크로 입니다.

 

D:\expdf\ 폴더에 저장되도록 만들어진것 입니다.. (아래 코드창에서 붉은 글씨를 원하는 위치로 수정해서 사용하시면 됩니다.)

위 폴더가 없다면 에러가 발생하게 됩니다.

시트별로 파일이 생성되기때문에 합쳐 주는 작업이 별도로 필요합니다.

 

 

Sub savePDF()

Dim Ws As Worksheet

    Dim PdfName00 As String

    Dim pdfname11

    Dim no As Double

    Dim order As String

    Dim tt As String

    Dim tt1 As String

    

       

    Application.ScreenUpdating = False

    For Each Ws In Worksheets

       If Ws.Visible = xlSheetVisible Then

           PdfName00 = Ws.Name

           no = no + 1

           order = no

           tt = Format(Date, "YYYYMMDD")

           tt1 = Format(time, "HHMMSS")

                               

           pdfname11 = tt + tt1 + "_" + order + "_" + PdfName00

            

            Ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Path & "d:\expdf\" & pdfname11 & ".pdf"

            

       End If

    Next Ws

    Application.ScreenUpdating = True

End Sub

이 글은 Evernote에서 작성되었습니다. Evernote는 하나의 업무 공간입니다. Evernote를 다운로드하세요.