Excel VBA 質問スレ Part83 (925ﾚｽ)
上下前次1-新
抽出解除 ﾚｽ栞

---

ﾘﾛｰﾄﾞ規制です｡10分ほどで解除するので､他のﾌﾞﾗｳｻﾞへ避難してください｡

---

417(3): 2025/07/17(木) 08:47:01.58 ID:sGHKyXGW(1)調 AAS
>>410
Dirでワイルドカードが使えるので、こんな感じに仕上げてみた
※ヒットするパスの例 → C:\Documents\A001\B000X1\Excel\20250717\FileABC001.xlsx

HomePath = "C:\Documents"
SearchPath = "A???\B*\Excel\2025????\File*.xlsx"

ResultPath = HomePath
SearchPathList = Split(SearchPath, "\")
For I = 0 To UBound(SearchPathList)
　If Dir(ResultPath) <> "" Then
　　ResultPath = "ファイルの下は何もないよ！"
　　Exit For
　End If
　FolderName = Dir(ResultPath & "\" & SearchPathList(I), vbDirectory)
　If FolderName = "" Then
　　ResultPath = "そんなパスはないよ！"
　　Exit For
　End If
　ResultPath = ResultPath & "\" & FolderName
Next
MsgBox "これかな？" & vbCrLf & ResultPath

---

419: 2025/07/17(木) 20:37:37.93 ID:zBpNwhAR(2/4)調 AAS
>>417
正規表現の様な事ができたのでしょうか？

---

421: 2025/07/17(木) 21:05:30.67 ID:zBpNwhAR(4/4)調 AAS
>>417
本当に複数の階層で部分一致できますでしょうか？

---

426: 2025/07/18(金) 08:22:30.72 ID:avd6O0J8(1)調 AA×
>>417

---

上下前次1-新書関写板覧索設栞歴

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ

---

ぬこの手 ぬこTOP 0.061s