VBA：フォルダの削除

VBAでフォルダを削除する基本

VBAでフォルダを削除する方法について学びます。このセクションでは、VBAとは何か、そしてVBAでフォルダを削除する基本的な方法について解説します。

① VBAでフォルダを削除する方法の概要

VBAでフォルダを削除するには、主にRmDir関数を使用します。RmDir関数は、指定したパスのフォルダを削除します。例えば、RmDir "C:\新しいフォルダ"というコードを実行すると、Cドライブのルートの「新しいフォルダ」という名前のフォルダが削除されます。

② VBAでフォルダを削除するための基本的なコード

VBAでフォルダを削除する基本的なコードは以下の通りです。

Sub DeleteFolder()
    RmDir "C:\新しいフォルダ"
End Sub

このコードを実行すると、Cドライブのルートの「新しいフォルダ」が削除されます。フォルダを削除する場所やフォルダ名は、自分のニーズに合わせて変更することができます。

RmDir パス

VBAでフォルダを削除する詳細な手順

VBAでフォルダを削除する詳細な手順について学びます。このセクションでは、RmDirステートメント、FileSystemObjectのDeleteFolderメソッド、FolderオブジェクトのSubFoldersプロパティを使ったフォルダ削除について解説します。

① RmDirステートメントを使ったフォルダ削除

RmDirステートメントは、指定したパスのフォルダを削除します。以下にその使用例を示します。

Sub DeleteFolderWithRmDir()
    RmDir "C:\新しいフォルダ"
End Sub

このコードを実行すると、Cドライブのルートの「新しいフォルダ」が削除されます。フォルダを削除する場所やフォルダ名は、自分のニーズに合わせて変更することができます。

② FileSystemObjectのDeleteFolderメソッドを使ったフォルダ削除

FileSystemObjectのDeleteFolderメソッドも、フォルダを削除するために使用できます。以下にその使用例を示します。

Sub DeleteFolderWithFileSystemObject()
    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    fso.DeleteFolder "C:\新しいフォルダ"
End Sub

このコードを実行すると、同様にCドライブのルートの「新しいフォルダ」が削除されます。

③ FolderオブジェクトのSubFoldersプロパティを使ったフォルダ削除

FolderオブジェクトのSubFoldersプロパティを使うと、既存のフォルダ内のサブフォルダを削除することができます。以下にその使用例を示します。

Sub DeleteSubFolderWithFolderObject()
    Dim fso As Object
    Dim folder As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set folder = fso.GetFolder("C:\既存のフォルダ")
    folder.SubFolders.Item("新しいフォルダ").Delete
End Sub

このコードを実行すると、「C:\既存のフォルダ」の下の「新しいフォルダ」が削除されます。

VBAでフォルダを削除する際の注意点とトラブルシューティング

VBAでフォルダを削除する際の注意点とトラブルシューティングについて学びます。このセクションでは、フォルダ削除時のエラーとその対処法、フォルダ削除の自動化とエラーハンドリング、VBAでフォルダ削除を効率化するためのヒントについて解説します。

① フォルダ削除時のエラーとその対処法

VBAでフォルダを削除する際には、様々なエラーが発生する可能性があります。例えば、存在しないフォルダを削除しようとするとエラーが発生します。このようなエラーを防ぐためには、Dir関数を使用してフォルダが存在するかどうかを確認することができます。

② フォルダ削除の自動化とエラーハンドリング

VBAを使用してフォルダ削除を自動化する際には、エラーハンドリングが重要になります。On Error Resume Nextステートメントを使用すると、エラーが発生してもプログラムの実行を続けることができます。また、ErrオブジェクトのNumberプロパティを使用すると、発生したエラーの番号を取得することができます。

③ VBAでフォルダ削除を効率化するためのヒント

VBAでフォルダ削除を効率化するためのヒントとして、以下のようなことが考えられます。まず、フォルダ削除のコードをサブルーチンや関数にまとめることで、コードの再利用性を高めることができます。また、ループや条件分岐を使用することで、複数のフォルダを一括で削除したり、特定の条件を満たす場合だけフォルダを削除したりすることができます。

VBAでフォルダを削除する応用例

VBAでフォルダを削除する応用例について学びます。このセクションでは、VBAで複数のフォルダを一括削除する方法、VBAでExcelのリストから複数のフォルダを一括削除する方法、VBAで特定の条件に基づいてフォルダを削除する方法について解説します。

① VBAで複数のフォルダを一括削除する方法

VBAを使用して複数のフォルダを一括で削除することも可能です。以下にその使用例を示します。

Sub DeleteMultipleFolders()
    Dim i As Integer
    For i = 1 To 5
        RmDir "C:\新しいフォルダ" & i
    Next i
End Sub

このコードを実行すると、Cドライブのルートの「新しいフォルダ1」、「新しいフォルダ2」、「新しいフォルダ3」、「新しいフォルダ4」、「新しいフォルダ5」の5つのフォルダが一括で削除されます。

② VBAでExcelのリストから複数のフォルダを一括削除する方法

Excelのリストから複数のフォルダを一括で削除することも可能です。以下にその使用例を示します。

Sub DeleteFoldersFromExcelList()
    Dim rng As Range
    Dim cell As Range
    Set rng = ThisWorkbook.Sheets("Sheet1").Range("A1:A5")
    For Each cell In rng
        RmDir "C:\" & cell.Value
    Next cell
End Sub

このコードを実行すると、Excelのシート1のA1からA5までのセルに記載されたフォルダ名で、Cドライブのルートに複数のフォルダが一括で削除されます。

③ VBAで特定の条件に基づいてフォルダを削除する方法

特定の条件を満たす場合だけフォルダを削除することも可能です。以下にその使用例を示します。

Sub DeleteFolderWithCondition()
    Dim fso As Object
    Dim folderPath As String
    folderPath = "C:\新しいフォルダ"
    Set fso = CreateObject("Scripting.FileSystemObject")
    If fso.FolderExists(folderPath) Then
        fso.DeleteFolder folderPath
    End If
End Sub

このコードを実行すると、指定したパスにフォルダが存在する場合だけ、新しいフォルダが削除されます。