Excelのマクロ(アドレス指定)

質問

回答受付中すぐに回答を！2017/07/07 14:19
Excelマクロのダイアログのアドレス指定

Excelマクロのフォルダダイアログのアドレス指定について質問です。

buf = Application.InputBox(Prompt:="号機No.を入力してください")

oya = "V:\個人\飯塚\マクロ\42360\"
ParentPath = "V:\個人\飯塚\マクロ\42360\T-P0T_No." & buf & "_"
ParentPath2 = Dir(ParentPath & "????????", vbDirectory)
MyFile = oya & ParentPath2
SetCurrentDirectory MyFile

上記は一部ですが、このマクロで特定の場所からファイルの選択を出来るようにしてあります。
？の部分は日付で、20170101など8ケタの数値が入ります。
ここまでは出来たのですが、さらにここから1階層入ってアドレスを指定したいと思っています。

現在のマクロだと上記を実行するとApplication.InputBoxで101と入力したとして
V:\個人\飯塚\マクロ\42360\T-P0T_No.101_20170101　というアドレスからスタートします。

V:\個人\飯塚\マクロ\42360\T-P0T_No.101_20170101\20170202_発手時
というアドレスから開きたい時、20170202の日付の部分を上記のような8個の？で組んでも上手く出来ませんでした。

Application.InputBoxで入力するNo.によって日付がバラバラなので
なんとかこのワイルドカード？の方法で行いたいのですがどうすればよいでしょうか？

回答No.1

SI299792 · ベストアンサー

プログラムが一部しか載っていないので、何をしたいか判りません。

????????は最初に出てきた１つだけのフォルダやファイルを指定すればいいのか、順番に該当するフォルダやファイルを全て処理するのか。
「V:\個人\飯塚\マクロ\42360\T-P0T_No.101_20170101\20170202_発手時」 はフォルダなのかファイルなのか。（多分フォルダだと思う）
「 _発手時」は固定なのか決まっていないのか

ワイルドガードが指定できるのは最下層だけで、階層の途中ではできません。
とりあえず１つだけであるならば、Dir で親フォルダ名が決まるので、もう１度Dir をすればいいと思います。
ParentPath2 = Dir(ParentPath & "????????", vbDirectory)
ParentPath3 = Dir(ParentPath & ParentPath2 & "\*", vbDirectory)
MyFile = oya & ParentPath2 & "\" & ParentPath3
とすればいいと思います。（ざっくりなので違っている可能性もあります。）

もし、該当するフォルダ全てを処理の対象にするなら、この一部のプログラムだけでは何とも言えません。

お礼

いただいたコメントをヒントに目的のことができました。

ありがとうございました。