実現したいこと
- ファイルの存在有無により分岐をさせたいです。
発生している問題・エラーメッセージ
エラーは出ていないのですが、Thisworkbook.pathで指定しているパスとは全く関係のないドキュメントフォルダが返ってきます。
具体的には、下記のような結果となります。
①ファイルが存在しないため、MsgBoxは「""」を返す(想定通り)
②ファイルが存在しているが、MsgBoxはドキュメントフォルダの全く関係ないとあるファイルを返す(本来であればpathの結果を返してほしい)
該当のソースコード
VBA
1For i = 1 To maxNum 2 fileName = "hoge" & "_*.xlsx" 3 path = Dir(ThisWorkbook.path & "\" & fileName) 4 5 '①存在なしの場合 6 If Dir(path) = "" Then 7 MsgBox "①Dir(path)=" & Dir(path) 8 '②存在ありの場合 9 Else 10 MsgBox "②Dir(path)=" & Dir(path) 11 End If 12Next i
試したこと
実際にファイルを置いたり置かなかったりのパターンで試しました。

回答1件
あなたの回答
tips
プレビュー
下記のような回答は推奨されていません。
このような回答には修正を依頼しましょう。
また依頼した内容が修正された場合は、修正依頼を取り消すようにしましょう。
2023/05/24 10:05