タイトルの通り、ファイルの読み込みがうまくいきません。
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.2
- 回答日時:
xlAPP.GetOpenFilename
のところで
MultiSelect:=False
を指定していないから、戻り値が配列になっているのでは?
.Open辺りでブレークして、イミディエイトウィンドウでvntFileNameがどうなっているのか見てみるといいかもしれません。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・「I love you」 をかっこよく翻訳してみてください
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・昔のあなたへのアドバイス
- ・かっこよく答えてください!!
- ・あなたが好きな本屋さんを教えてください
- ・スタッフと宿泊客が全員斜め上を行くホテルのレビュー
- ・【大喜利】【投稿~8/27】 こんなガソリンスタンド二度と来るか!なぜそう思った?
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・【お題】動物のキャッチフレーズ
- ・【お題】甲子園での思い出の残し方
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・「それ、メッセージ花火でわざわざ伝えること?」
- ・自分用のお土産
- ・人生で一番お金がなかったとき
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・ちょっと先の未来クイズ第1問
- ・ゴリラ向け動画サイト「ウホウホ動画」にありがちなこと
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【Excel VBA】取り込んだファイ...
-
0バイトのテキストファイル
-
ファイル作成日時と更新日時を...
-
<input type="file" で初期値...
-
VBS ファイルマージ処理
-
HTMLテキストリンクでExcelファ...
-
VBAで、JPG写真の撮影日時を読...
-
Javaで名前付きパイプ
-
main関数のコマンドライン引数...
-
VB6.0のメモリリークについて
-
【VBA】印刷マクロのループ処理...
-
msgget()で指定するkey値について
-
Perlで2GBを超える大きいファイ...
-
JavaでPDFファイルに変換するに...
-
Javaのファイルダウンロードに...
-
vbaの構文の修正相談(xmlファ...
-
J2EE1.3の頃のチュートリアルの...
-
HTMLまたはJavaScriptでフ...
-
Eclipseで検索ができなくなった
-
vb.netでのExcel表示
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【Excel VBA】取り込んだファイ...
-
0バイトのテキストファイル
-
Eclipseで検索ができなくなった
-
VBAで、JPG写真の撮影日時を読...
-
HTMLテキストリンクでExcelファ...
-
サイトマップにサブドメインを...
-
【VBA】複数CSVの特定範囲を1つ...
-
C++によるファイル送受信プログ...
-
C++.NET 2003 「空のドキュメ...
-
HTMLまたはJavaScriptでフ...
-
main関数のコマンドライン引数...
-
BASP21のファイルアップロード...
-
2GB以上のファイルを扱う方法
-
ファイル作成日時と更新日時を...
-
openglで音楽を再生する
-
MusicXMLファイル作り方教えて...
-
vbaの構文の修正相談(xmlファ...
-
VB6.0のメモリリークについて
-
Javaのファイルダウンロードに...
-
ディレクトリのサイズの取得
おすすめ情報