VBA フォルダー内のシートを一括PDF保存

フォルダー内のシートを一括PDF保存

Sub test()

      ’　フォルダー内のシートを一括PDF保存

    Dim myPath As String
    Dim myFileName As String
    Dim WS As Worksheet
    
    Set WS = ThisWorkbook.Sheets("Sheet1")
    
    myPath = ThisWorkbook.Path & "\" & WS.Range("C2").Value & "\"
    myFileName = Dir(myPath & "*.xls*")
    
    'ファイルを開く
    Do While myFileName <> ""
        Workbooks.Open myPath & myFileName
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
                Filename:=myPath & myFileName & ".PDF"
        
        myFileName = Dir()
    Loop
End Sub

End Sub

― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじ へ戻る

『VBA　指定フォルダー内の全ファイルを開く』

『VBA ブックを閉じる（Closeメソッド）』

『VBA 条件付き書式をクリアする』

『VBA　条件付き書式で１行おき色塗り』