こちらの記事はエクセルVBAをあまり知らない方でも利用できる「コピペでVBA(Excel)」としてもご活用できます。詳しくはこちらをご確認ください。
フォルダ名の一覧を取得 - マクロ解説
このコードを実行すると、任意のフォルダ内にあるフォルダ名をエクセルに書き出せます。実行するとフォルダを選択するダイアログが表示され、任意のフォルダを指定します。次に選択しているセルを起点に下方向にフォルダ名を書き出し一覧が作成されます。
フォルダ名一覧取得マクロのコード
Private Sub FolderPicker()
Dim FD As Variant, buf As String, cnt As Long
With Application.FileDialog(msoFileDialogFolderPicker)
If .Show = True Then
FD = .SelectedItems(1) & "\"
Else
Exit Sub
End If
End With
buf = Dir(FD, vbDirectory)
Do While buf <> ""
If GetAttr(FD & "\" & buf) And vbDirectory Then
If buf <> "." And buf <> ".." Then
ActiveCell.Offset(cnt, 0).Value = buf
cnt = cnt + 1
End If
End If
buf = Dir()
Loop
End Sub
※コードをコピーする時は、右上のアイコン
をクリックしてください
このマクロを使う理由
フォルダが多数ある場合などにエクセルに表示して確認するとエクスプローラより楽な場合があります。また、フォルダ名を利用してなにかデータを作成する場合などにも役に立つでしょう。
