【2026年7月最新】VBAのKillステートメント完全ガイド｜ファイル削除・一括削除・エラー処理まで実践コード付きで解説

この記事の内容

1. 01VBAのファイル操作の全体像
2. 02Killステートメントの基本構文と単一ファイル削除
3. 03ワイルドカードで複数ファイルを一括削除する
4. 04Dir関数でファイル存在確認してから削除する
5. 05エラー処理付きの安全なファイル削除パターン
6. 06フォルダの削除（RmDir・再帰的削除）
7. 07KillとFileSystemObject（FSO）の比較
8. 08業務での実践活用パターン
9. 09よくある失敗とデバッグのポイント
10. 10Claude CodeでVBAファイル削除コードを自動生成
11. 11まとめ
12. FAQよくある質問

📚 用語解説

Killステートメント：VBA組み込みのファイル削除命令。「Kill ファイルパス」の1行でWindowsファイルシステム上のファイルを削除します。削除されたファイルはごみ箱には入らず完全削除されます。そのため削除前に「本当に削除していいか」の確認や、バックアップを取る処理と組み合わせることを推奨します。ワイルドカード（*・?）も使えます。

Killステートメントで削除したファイルはWindowsのごみ箱に入らず、完全削除されます。「誤って削除してしまった」という事故を防ぐため、Killを使う前には「削除対象のファイル一覧をログに記録する」または「DeleteToRecycleBin（FileSystemObjectのDeleteFileの引数でごみ箱送りにする）を使う」などの対策を検討してください。

' === Killの基本構文 ===
Kill "ファイルのフルパス"

' === パスの指定パターン ===

' 1. 絶対パスで直接指定
Kill "C:\Data\old_report.xlsx"

' 2. 変数にパスを入れて指定
Dim filePath As String
filePath = "C:\Data\temp_output.csv"
Kill filePath

' 3. ThisWorkbook.Pathを使って現在のファイルと同じフォルダのファイルを削除
Kill ThisWorkbook.Path & "\backup.xlsx"

' 4. バックスラッシュを確実に付けるためにApplication.PathSeparatorを使う
Kill ThisWorkbook.Path & Application.PathSeparator & "log.txt"
' ※Application.PathSeparatorはWindowsでは"\"、Macでは"/"を返す

' 削除確認ダイアログを表示してからKill
Sub DeleteWithConfirmation()
    Dim filePath As String
    filePath = ThisWorkbook.Path & "\monthly_report_old.xlsx"

    ' ファイルの存在確認
    If Dir(filePath) = "" Then
        MsgBox "ファイルが見つかりません: " & filePath, vbExclamation
        Exit Sub
    End If

    ' 確認ダイアログ
    Dim answer As Integer
    answer = MsgBox("以下のファイルを削除しますか？" & vbCrLf & filePath, _
                    vbYesNo + vbQuestion, "削除確認")

    If answer = vbYes Then
        Kill filePath
        MsgBox "削除しました: " & filePath, vbInformation
    Else
        MsgBox "キャンセルしました", vbInformation
    End If
End Sub

📚 用語解説

ワイルドカード（Kill/Dirで使用）：ファイルパスの指定で使える特殊文字。「*（アスタリスク）」は0文字以上の任意の文字列にマッチ（"*.xlsx"はxlsx拡張子の全ファイル）、「?（クエスチョン）」は1文字の任意の文字にマッチ（"data_??.csv"は"data_01.csv"など）。Killでのワイルドカードはフォルダ内の直接の子ファイルにのみ適用されます（サブフォルダは対象外）。

' ワイルドカードを使った一括削除

' 1. 拡張子で絞り込んで一括削除（フォルダ内の全csvファイルを削除）
Kill "C:\Temp\*.csv"

' 2. ファイル名の先頭で絞り込む（tempで始まる全ファイルを削除）
Kill "C:\Data\temp*.*"

' 3. 全ファイルを削除（フォルダ内の全ファイル）
Kill "C:\Temp\*.*"

' 4. 特定パターンのファイル名（backup_YYMMDD形式の6桁日付）
Kill "C:\Backup\backup_??????.xlsx"

' 5. 特定のフォルダ配下の全xlsxファイル
Kill ThisWorkbook.Path & "\output\*.xlsx"

' 注意: ワイルドカードで一致するファイルが存在しない場合はエラー53が発生
' → 必ずDir+On Error Resumeで存在確認してから使う

' ワイルドカードでの安全な一括削除
Sub SafeWildcardDelete()
    Dim folderPath As String
    Dim pattern As String
    folderPath = "C:\Temp\"
    pattern = "*.csv"

    ' ワイルドカードに一致するファイルが存在するか確認
    If Dir(folderPath & pattern) = "" Then
        MsgBox folderPath & " に " & pattern & " ファイルはありません", vbInformation
        Exit Sub
    End If

    ' 存在する場合のみ削除
    On Error GoTo DeleteError
    Kill folderPath & pattern

    MsgBox folderPath & " の全 " & pattern & " を削除しました", vbInformation
    Exit Sub

DeleteError:
    MsgBox "削除中にエラー: " & Err.Description, vbCritical
End Sub

📚 用語解説

Dir関数：ファイル・フォルダの存在確認と一覧取得に使うVBA組み込み関数。「Dir(パス)」でパスのファイルが存在すればファイル名を返し、存在しなければ空文字("")を返します。ワイルドカードも使えます。Dir(パス, vbDirectory)でフォルダの存在確認もできます。

' Dir関数でファイル存在確認してからKillする基本パターン

' ===== パターン1: If Dir() <> "" Then Kill =====
Sub DeleteIfExists_Simple()
    Dim filePath As String
    filePath = "C:\Data\report.xlsx"

    If Dir(filePath) <> "" Then
        Kill filePath
        Debug.Print "削除完了: " & filePath
    Else
        Debug.Print "ファイルなし（スキップ）: " & filePath
    End If
End Sub

' ===== パターン2: 関数化して再利用しやすく =====
Function DeleteFileIfExists(filePath As String) As Boolean
    If Dir(filePath) <> "" Then
        On Error Resume Next
        Kill filePath
        Dim success As Boolean
        success = (Err.Number = 0)
        On Error GoTo 0
        DeleteFileIfExists = success
    Else
        DeleteFileIfExists = False  ' ファイルなし
    End If
End Function

' 使い方
Sub TestDeleteFile()
    If DeleteFileIfExists("C:\Data\old.xlsx") Then
        MsgBox "削除成功"
    Else
        MsgBox "削除失敗またはファイルなし"
    End If
End Sub

Dir関数は最初の呼び出し後に引数なしでDir()と呼ぶと次のファイル名を返します（ループ用）。これを使って「削除対象ファイルの一覧を先に取得して確認する」という安全策を実装できます。

' Dir関数のループで削除対象ファイル一覧を取得してから削除
Sub PreviewAndDelete()
    Dim folderPath As String
    folderPath = "C:\Backup\"
    Dim pattern As String
    pattern = "*.xlsx"

    ' まず一覧を取得
    Dim fileList As String
    Dim fileName As String
    fileName = Dir(folderPath & pattern)
    Dim count As Integer
    count = 0

    Do While fileName <> ""
        fileList = fileList & fileName & vbCrLf
        count = count + 1
        fileName = Dir()  ' 次のファイル名
    Loop

    If count = 0 Then
        MsgBox "削除対象なし", vbInformation
        Exit Sub
    End If

    ' 確認ダイアログで一覧表示
    Dim answer As Integer
    answer = MsgBox(count & "件のファイルを削除します:" & vbCrLf & fileList, _
                    vbOKCancel + vbExclamation, "削除確認")
    If answer = vbOK Then
        Kill folderPath & pattern
        MsgBox count & "件削除完了", vbInformation
    End If
End Sub

' 本番マクロで使える安全なファイル削除テンプレート
Sub SafeDeleteTemplate()
    Dim filePath As String
    filePath = "C:\Data\monthly_temp.xlsx"

    ' 存在確認
    If Dir(filePath) = "" Then
        ' ファイルが存在しない場合はスキップ（エラーにしない）
        Debug.Print "スキップ（存在なし）: " & filePath
        Exit Sub
    End If

    On Error GoTo DeleteError

    Kill filePath
    Debug.Print "削除完了: " & filePath
    Exit Sub

DeleteError:
    Select Case Err.Number
        Case 70  ' Permission denied（他アプリで開かれている）
            MsgBox "ファイルが他のアプリで開かれています。" & vbCrLf & _
                   "閉じてから再実行してください: " & filePath, vbExclamation
        Case 76  ' Path not found（フォルダが存在しない）
            MsgBox "フォルダが見つかりません: " & filePath, vbCritical
        Case Else
            MsgBox "削除エラー（" & Err.Number & "）: " & Err.Description & vbCrLf & _
                   "対象: " & filePath, vbCritical
    End Select
End Sub

📚 用語解説

RmDir（リムーブ・ディレクトリ）：VBAでフォルダ（ディレクトリ）を削除する組み込み命令。「RmDir フォルダパス」で指定したフォルダを削除します。RmDirが機能するのは空のフォルダのみです。ファイルやサブフォルダが残っているフォルダを削除しようとするとエラー75「Path/File access error」が発生します。

' フォルダを中身ごと削除する2ステップパターン
Sub DeleteFolderWithContents()
    Dim folderPath As String
    folderPath = "C:\Temp\work_folder"

    ' フォルダが存在するか確認
    If Dir(folderPath, vbDirectory) = "" Then
        MsgBox "フォルダが見つかりません: " & folderPath, vbExclamation
        Exit Sub
    End If

    On Error GoTo DeleteError

    ' Step 1: フォルダ内の全ファイルを削除
    If Dir(folderPath & "\*.*") <> "" Then
        Kill folderPath & "\*.*"
    End If

    ' Step 2: 空になったフォルダを削除
    RmDir folderPath

    MsgBox "フォルダを削除しました: " & folderPath, vbInformation
    Exit Sub

DeleteError:
    MsgBox "フォルダ削除エラー（" & Err.Number & "）: " & Err.Description, vbCritical
End Sub

Kill *.* でサブフォルダは削除できません。フォルダにサブフォルダが含まれる場合は「再帰的削除（全サブフォルダを順に処理）」か「FileSystemObjectのDeleteFolder（ Force:=True）」を使う必要があります。業務で深い階層のフォルダを削除する場合はFileSystemObjectを使う方が簡単です。

📚 用語解説

FileSystemObject（FSO）：Microsoft Scripting Runtimeが提供するファイルシステム操作オブジェクト。DeleteFile・DeleteFolder・CopyFile・MoveFile・CreateFolder・FileExistsなど豊富なメソッドを提供します。「ごみ箱に送る（DeleteFile path, Force:=True）」はできませんが、Killよりエラーメッセージが分かりやすく、フォルダを再帰的に削除するDeleteFolderが使えます。VBEの参照設定でMicrosoft Scripting Runtimeを追加するか、CreateObject("Scripting.FileSystemObject")で使います。

' FileSystemObjectでのファイル削除
Sub DeleteWithFSO()
    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")

    Dim filePath As String
    filePath = "C:\Data\old_report.xlsx"

    ' ファイル存在確認（FSOのFileExistsメソッド）
    If fso.FileExists(filePath) Then
        fso.DeleteFile filePath
        MsgBox "削除完了", vbInformation
    Else
        MsgBox "ファイルが存在しません", vbExclamation
    End If

    Set fso = Nothing  ' オブジェクトを解放
End Sub

ワイルドカードで複数ファイルを一括削除したい場合はKillを使います。サブフォルダを含むフォルダ全体を削除したい場合や、FileExists/FolderExistsなどの便利なメソッドを使いたい場合はFSOが適しています。1つのマクロで両方使い分けることも問題ありません。

' 30日以上古いバックアップファイルを削除
Sub DeleteOldBackups()
    Dim backupFolder As String
    backupFolder = "C:\Backup\"

    Dim cutoffDate As Date
    cutoffDate = Date - 30  ' 30日前の日付

    Dim fileName As String
    fileName = Dir(backupFolder & "*.xlsx")

    Dim deletedCount As Integer
    Dim skippedCount As Integer

    Do While fileName <> ""
        Dim fullPath As String
        fullPath = backupFolder & fileName

        ' ファイルの更新日時を確認
        Dim fileDate As Date
        fileDate = FileDateTime(fullPath)

        If fileDate < cutoffDate Then
            ' 30日以上古い → 削除
            On Error Resume Next
            Kill fullPath
            If Err.Number = 0 Then
                deletedCount = deletedCount + 1
                Debug.Print "削除: " & fileName & " (" & Format(fileDate, "yyyy/mm/dd") & ")"
            Else
                Debug.Print "削除失敗: " & fileName & " - " & Err.Description
                Err.Clear
            End If
            On Error GoTo 0
        Else
            skippedCount = skippedCount + 1
        End If

        fileName = Dir()  ' 次のファイル
    Loop

    MsgBox "完了: 削除=" & deletedCount & "件 / 保持=" & skippedCount & "件", vbInformation
End Sub

' 処理中に一時ファイルを作り、処理完了後に削除するテンプレート
Sub ProcessWithTempFile()
    Dim tempPath As String
    tempPath = ThisWorkbook.Path & "\temp_" & Format(Now, "yyyymmddHHmmss") & ".xlsx"

    On Error GoTo CleanupAndError

    ' Step 1: 一時ファイルを作成
    Dim tempWb As Workbook
    Set tempWb = Workbooks.Add
    tempWb.SaveAs tempPath

    ' Step 2: 一時ファイルを使った処理
    tempWb.Sheets(1).Cells(1, 1).Value = "処理データ"
    ' ...（データ処理）...

    ' Step 3: 処理完了後に一時ファイルを閉じて削除
    tempWb.Close False
    Set tempWb = Nothing

    If Dir(tempPath) <> "" Then
        Kill tempPath
        Debug.Print "一時ファイル削除完了"
    End If

    MsgBox "処理完了", vbInformation
    Exit Sub

CleanupAndError:
    Dim errMsg As String
    errMsg = "エラー(" & Err.Number & "): " & Err.Description

    ' エラー時もファイルをクリーンアップ
    On Error Resume Next
    If Not tempWb Is Nothing Then tempWb.Close False
    If Dir(tempPath) <> "" Then Kill tempPath
    On Error GoTo 0

    MsgBox "エラーが発生しました。" & vbCrLf & errMsg, vbCritical
End Sub

' 読み取り専用ファイルを削除するための属性クリア
Sub DeleteReadOnlyFile()
    Dim filePath As String
    filePath = "C:\Data\readonly_file.xlsx"

    If Dir(filePath) = "" Then
        MsgBox "ファイルが見つかりません", vbExclamation
        Exit Sub
    End If

    ' 読み取り専用属性を確認
    If GetAttr(filePath) And vbReadOnly Then
        ' 読み取り専用を解除してから削除
        SetAttr filePath, vbNormal
    End If

    Kill filePath
    MsgBox "削除完了（読み取り専用を解除して削除）"
End Sub

NEXT STEP

この記事の内容を、あなたのビジネスで
実践してみませんか？