【VBA】CSVファイルを安全に削除する方法

日々の業務で大量のCSVファイルを扱う場合、手動でのファイル管理は労力と時間を消費します。この記事では、VBAを使用して特定のCSVファイルを安全に削除する方法を紹介します。エラー処理も実装することで、安心して使用できます。

サンプルコード

VBA

Option Explicit
Sub DeleteCSVFile()
    Dim fso As Object
    Dim folderPath As String
    Dim fileName As String
    
    ' CSVファイルのパスを指定
    folderPath = "C:\Users\YourName\Documents"
    fileName = "example.csv"
    
    Set fso = CreateObject("Scripting.FileSystemObject")
    On Error GoTo ErrorHandler
    If fso.FileExists(folderPath & Application.PathSeparator & fileName) Then
        ' ファイルが存在する場合、削除します。
        fso.DeleteFile folderPath & Application.PathSeparator & fileName, True
        MsgBox "CSVファイルを削除しました。", vbInformation
    Else
        MsgBox "指定したCSVファイルは存在しません。", vbExclamation
    End If
    
Exit Sub
ErrorHandler:
    MsgBox Err.Description, vbCritical
End Sub

よくある質問

Q 元に戻せますか？

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

Q エラーが出たら？

ファイルパスやファイル名が正しいか確認してください。また、ファイルが使用中の場合、削除できない可能性があります。