＊でファイル名を指定し、Workbooks.Openするとエラーが出ます。

Question

VBA初心者です。回答よろしくお願い致します。

##（１）説明
Sub test4()
MsgBox Dir("C:\データ\フォルダ\1.xlsx")
Workbooks.Open "C:\データ\フォルダ\1.xlsx"
End Sub

上記コードを実施すると
１、メッセージボックスに『1.xlsx』と表示されます
２、『1.xlsx』ファイルが開きます

##（２）説明
Sub test5()
MsgBox Dir("C:\データ\フォルダ*")
Workbooks.Open "C:\データ\フォルダ*"
End Sub

上記コードは、（１）の『1.xlsx』を『*』に置き換えたコードです。
これを実施すると
１、メッセージボックスに『1.xlsx』と表示されます
２、Workbooks.Openのコードでエラー文が出ます
『実行時エラー‘1004’:　申し訳ございません。C:\データ\フォルダ*.xlsxが見つかりません。名前が変更されたか、移動削除が行われた可能性があります。』

##（３）まとめ

コードの工程	（１）のコード	（２）のコード
-	ファイル名を文字列で入力	ファイル名を＊で入力
MSGBOX	○作動	○作動
Workbooks.Open	○作動	×エラー

##（４）問い
ファイル名を『＊』で入力すると
Workbooks.Openの工程でエラーが出ます。なぜでしょうか。

回答よろしくお願い致します。

Answer 1

こんな例を出したら、余計混乱しますか？

Sub test6()
 Dim fn
 fn = Dir("C:\データ\フォルダ*")
 MsgBox fn
 Workbooks.Open fn
End Sub

Comments

[ta-]

回答ありがとうございます。
このコードなら作動しますね！

Answer 2

Dir関数はファイルを検索するもので、ワイルドカード(* とか ?)に対応している。

Workbooks.Open は指定したファイル名のブックを開く命令。ワイルドカードで検索する機能はもっていない。
実際に存在するファイルのパスを指定する必要がある。

仕様の違いです。

Comments

[ta-]

ありがとうございます。
仕様の違いなのですね！

Answer 3

Workbooks.Openの場合は、具体的な実存するファイル名を指定しないとエラーになります。
".xls"というファイル名は存在しない為、エラーになります。
メッセージボックスに".xls"を表示してエラーにならないのは、".xls"という文字を表示しているだけだからです。（".xls"というファイル名があるかないかは問題にしていません）

Comments

[ta-]

ありがとうございます。
Workbooks.Openはワイルドカードが使用できない事を知りませんでした。

Answer 4

そもそも、存在しないファイルを指定したらエラーになるのが当たり前です

この場合、なぜエラーにならないのか、それは
MsgBoxがえらいんではありません。Dir関数がえらいんです。
その関数がなにをするか、ぐぐって調べてみてはどうでしょう

Comments

[ta-]

回答ありがとうございます。