엑셀 VBA로 엑셀 각 시트를 PDF 출력

4010 단어 PDF 출력ExcelVBA

개요



엑셀의 각 시트 각각을 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

    좋은 웹페이지 즐겨찾기