Namespaceの引数について

質問

VBA超初心者です。

　指定したフォルダーの中のファイルの詳細をエクセルに落とすマクロを作成しているのですが、ファイルダイアログで指定したパスがNamespaceの引数にうまく渡せません。たぶん型が違うか何かだと思うのですが、ご存知の方ご教授願えれば幸いです。

　 Set SHell = CreateObject("Shell.Application")
Set Folder = SHell.Namespace("C:\Users\")
　　　　　　　　　　　　　　　　　　　↓
Set Folder = SHell.Namespace(Target_Dir)

　直接pathを書き込むと問題なく動作するのですが、変数で引き渡すとエラーになります。型が違う？初心者でもわかるように解説していただけると助かります。

回答No.1

eden3616

Sub sample()
Dim Target_Dir As Variant
Dim shell As Object
Dim Folder As Object

Target_Dir = "C:\Users"
Set shell = CreateObject("Shell.Application")
Set Folder = shell.Namespace(Target_Dir)

Debug.Print Folder.Title
End Sub

とか。

お礼

解りやすい回答ありがとうございました。