VBAでフォルダを自動作成する方法とエラー解決法

VBAでフォルダを自動作成する際に「パスが見つかりません」というエラーが出る場合、原因は複数考えられます。この問題を解決するためには、VBAのコードとパスの設定方法を見直す必要があります。以下に、問題を解決するためのステップを紹介します。

フォルダを自動作成する基本的なVBAコード
エラーの原因と解決方法
フォルダがすでに存在する場合の対処方法
まとめ

フォルダを自動作成する基本的なVBAコード

まず、シンプルにフォルダを自動作成するためのコードを確認します。質問にあるコードは正しく設定されていますが、パスに問題がある可能性が高いです。

Sub フォルダ分け()
Dim folderpath As String
folderpath = ThisWorkbook.Path & "\書類"
Dim savefoldernamelist As Variant
savefoldernamelist = Array("確認リスト", "議事録", "実績表", "報告書")
Dim savefoldername As Variant
For Each savefoldername In savefoldernamelist
    MkDir folderpath & "\" & savefoldername
Next savefoldername
End Sub

上記のコードでは、ファイルパスが現在のワークブックの場所に基づいて設定されています。

エラーの原因と解決方法

「パスが見つかりません」というエラーが発生する主な原因として考えられるのは、指定したパスにフォルダが作成できない場合です。特に以下の点に注意して修正を行いましょう。

パスに誤りがないか確認（特にバックスラッシュ）
指定された場所にすでにフォルダが存在する場合、エラーが発生することがあります。これを回避するには、フォルダがすでに存在しないか確認するコードを追加します。
ネットワークドライブやアクセス権限が制限された場所に保存しようとすると、エラーが発生することがあります。

フォルダがすでに存在する場合の対処方法

同じ名前のフォルダがすでに存在する場合に備えて、フォルダ作成の前に存在チェックを行うコードを追加することができます。

Sub フォルダ分け()
Dim folderpath As String
folderpath = ThisWorkbook.Path & "\書類"
Dim savefoldernamelist As Variant
savefoldernamelist = Array("確認リスト", "議事録", "実績表", "報告書")
Dim savefoldername As Variant
For Each savefoldername In savefoldernamelist
    If Dir(folderpath & "\" & savefoldername, vbDirectory) = "" Then
        MkDir folderpath & "\" & savefoldername
    End If
Next savefoldername
End Sub

このコードでは、指定されたパスにフォルダがすでに存在している場合には、新たにフォルダを作成しません。