개요

엑셀의 각 시트 각각을 PDF로 출력하고 싶다는 것이 있었다. 출력 버튼을 누르면 각 시트가 PDF로 출력되는 것을 만들었습니다. PDF 파일 이름은 시트 이름입니다.

환경

Excel 2016

준비

리본에 개발 탭 표시

개발 탭 표시

코드

vba

    'デスクトップへのパスを取得
    Dim strDesktopFullPath As String
    Dim varWSShell As Variant
    Set varWSShell = CreateObject("WScript.Shell")
    strDesktopFullPath = varWSShell.SpecialFolders("Desktop") & "\"
    Set varWSShell = Nothing

    '出力フォルダ(=デスクトップ)
    Dim strOutputFolder As String
    strOutputFolder = strDesktopFullPath

    'ファイル名の設定およびpdf出力(Sheet2以降)
    Dim strFileName As String
    For n = 2 To Worksheets.Count
        'セル(A2)が空のシートはpdf出力しない
        If Worksheets(n).Cells(2, 1).Value <> "" Then

            'ファイル名(=シート名)
            strFileName = Worksheets(n).Name

            'PDFに変換する
            Worksheets(n).ExportAsFixedFormat Type:=xlTypePDF, Filename:=strOutputFolder & "\" & strFileName & ".pdf"

        End If
    Next

xlsm 파일은 아래 GitHub로 업되어 있습니다.
htps : // 기주 b. 이 m/이치아키/에 x세 l과 Pdf. 기 t