【VBA】PDFファイルを確認メッセージを出さずに削除する方法

日々の業務の中で、大量のPDFファイルを管理している場合、一つ一つ手動で削除するのは労力がかかります。この記事では、Excel VBAを使用して、確認メッセージを表示せずにPDFファイルを素早く削除する方法を紹介します。

サンプルコード

VBA

Option Explicit
Sub DeletePDFWithoutConfirmation()
    Dim fso As Object, folderPath As String, fileName As String
    Set fso = CreateObject("Scripting.FileSystemObject")
    folderPath = "C:\path\to\your\pdfs" ' PDFファイルが存在するフォルダのパスを指定してください。
    fileName = Dir(folderPath & "*.pdf") ' フォルダ内のPDFファイル名を取得
    Application.DisplayAlerts = False ' 確認メッセージを表示しないように設定
    Do While fileName <> "" 
        fso.DeleteFile folderPath & fileName, True ' PDFファイルを削除
        fileName = Dir ' 次のファイル名を取得
    Loop
    Application.DisplayAlerts = True ' 元に戻す
End Sub

よくある質問

Q 元に戻せますか？

VBAの実行結果は「元に戻す」が効きません。必ずバックアップを取ってから実行してください。

Q エラーが出たら？

シート名や列番号が正しいか確認してください。また、ファイルパスが正しく指定されているかも確認してください。