フォルダを選択しファイル名を取得したい

Question

こんにちわ。
ExcelでVBAをかいています。

まず実現したいこと
・現在テキストファイルを選択できるダイアログが開きますが、ファイルを選択するダイアログにしたい
・選択するフォルダには「東京」か「大阪」の文字がファイル名についたテキストファイルが複数あります。それらすべてのテキストファイルを開き、ファイル名に「東京」がついているものと「大阪」のついているもので処理を変えたいです。

都道府県フォルダを選択し、そのなかにある「01東京.txt」「02東京.txt」「大阪02.txt」「000大阪.txt」のファイルを全て開き違った処理を行いたいため、ファイル名を取得しif文で分岐させたいといったものです。
結果的には「東京」の名の付くテキストファイルは処理により必要な部分を抜き出し「東京.csv」に、
「大阪」の名の付くテキストファイルは処理により必要な部分を抜き出し「大阪.csv」に出力させたいです。

今は以下のように単純にマクロ自身がいる場所のフォルダを開きテキストファイルを選択させます。

ChDir ThisWorkbook.Path & "\"
OpenFileName = Application.GetOpenFilename("テキストファイル,*.txt")

これを、自身が存在する同じファイルを開きフォルダを選択させたいです。

この時フォルダ内にあるファイルの名前を取得させたいです。
今はOpenFileNameにファイル名が入ってくるので

If InStr(OpenFileName, "東京") <> 0 Then
　A処理
Else
　B処理
End if

で分岐させています。

フォルダを選択し、フォルダ内のファイル一つひとつを開き「東京」ならAの処理「大阪」ならBの処理とするにはどうかけばよいのでしょうか？

フォルダを開くダイアログを調べたのですが、たくさんあって今回の場合どれを選べばいいのかよくわかりません…。

アドバイス、よろしくお願いいたします

追記

    Set folderName = Application.FileDialog(msoFileDialogFolderPicker)
    folderName.Show
    
    'ファイルを開くダイアログ
    Set objFS = CreateObject("Scripting.FileSystemObject")
    Set objFD = objFS.GetFolder(folderName)
    
    For Each OpenFileName In objectFD.Files
    Next

For Each OpenFileName In objectFD.Filesでどうしてもエラーが出ます
パスが見つかりませんとでます
フォルダのパスがうまくとれていないのでしょうか？

Answer 1

一番簡単なのはFileDialogを「msoFileDialogFolderPicker」指定で使う方法ではないでしょうか。

Dim Dialog As FileDialog
Set Dialog = Application.FileDialog(msoFileDialogFolderPicker)
Dialog.Show
Debug.Print (Dialog.SelectedItems(1))

上記の例だと、選択したフォルダ1個をVBA開発環境の出力エリアに表示します（Debug.Printで表示している）。

これでフォルダ選択＆指定ができるので、あとはsysjojoさんの回答にある方法で、対象フォルダに入っているファイルの一覧を取得。それぞれについて処理をすれば解決しそうですがどうですか？

Comments

[pro-poke5]

ありがとうございます。
フォルダの選択はできようになりました。

Answer 2

この時フォルダ内にあるファイルの名前を取得させたいです。

ここだけ。
ヒント
都道府県ごとにサブフォルダがあるようならこの辺も参考になるかと。

Comments

[pro-poke5]

ありがとうございます。
真似して書いているのですが、サイトでいう
For Each objFile In objFolder.Files
の部分の.Fileでコンパイルエラーが発生いたします。
メソッドまたはデータメンバが見つかりませんといったものです。
なぜでしょうか…？

[pro-poke5]

すみません、ひとまず上記のエラーは解消しました

[sysjojo]

> Set objFD = objFS.GetFolder(folderName)
はbackyardさんの回答に準ずれば
Set objFD = objFS.GetFolder(folderName.SelectedItems(1))
では？
他にも変数名間違いがあるので、コードの先頭に「Option Explicit」つけると未定義エラーで悩むことが減っていいですよ。

[pro-poke5]

ありがとうございます。
小さなミスをなくすように心がけます、アドバイスありがとうございました。