excel vba でファイルの読み込み失敗

タイトルの通り、ファイルの読み込みがうまくいきません。

Dim objStrm As Object
Dim strTmp As String
Dim i As Integer
Const ReadLine As Integer = -2, ReadAll As Integer = -1
Set objStrm = CreateObject("ADODB.Stream")

Set xlAPP = Application
' 「ファイルを開く」のダイアログでファイル名の指定を受ける
xlAPP.StatusBar = "読み込むファイル名を指定して下さい。"
vntFileName = xlAPP.GetOpenFilename(FileFilter:=cnsFILTER, Title:=cnsTITLE)

With objStrm
.Charset = "UTF-8" 'charsetを変える？ISO-2022-JP→shift-jis→utf-8
.LineSeparator = -1 'CR=13, LF=10, CRLF=-1
.Open
'.LoadFromFile "C:\＊＊＊＊" 'ここの値を直接取得する←これはうまくいく
.LoadFromFile "vntFileName" 'ここの値をダイアログで取得する←エラー
End With

Do Until objStrm.EOS
i = i + 1
Cells(i, 1) = objStrm.ReadText(ReadLine)
Loop
objStrm.Close: Set objStrm = Nothing

色々教えて頂きまして、プログラムを組んだのですが、ダイアログの読み込み部分がうまくいきません。
直接データアドレスを入力すると、上手くいきます。
何とかダイアログから読み込めるようにできないでしょうか？

よろしくお願いします。

No.3 ベストアンサー 回答者： nicotinism 回答日時： 2012/05/18 21:14

.LoadFromFile "vntFileName"

変数なので
.LoadFromFile vntFileName
でお試しを。

この回答へのお礼

ありがとうございます！
できました＾＾

お礼日時：2012/05/19 15:51

No.2 回答者： utun01 回答日時： 2012/05/18 17:02

xlAPP.GetOpenFilename

のところで
MultiSelect:=False
を指定していないから、戻り値が配列になっているのでは？
.Open辺りでブレークして、イミディエイトウィンドウでvntFileNameがどうなっているのか見てみるといいかもしれません。

No.1 回答者： ShowMeHow 回答日時： 2012/05/18 15:49

ファイルのパスが必要とか？