VBA：テキストファイルのパスを、変数に置き換え

質問

エクセルに、CSVファイルを取り込むため、マクロ記録をしました。↓

With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\Users\hatena\Desktop\新しいフォルダ\ID\21008689.CSV", Destination:=Range("$A$1"))
.Name = "21008689_4"
.FieldNames = True
.RowNumbers = False
以下省略

End With

そこで、コード2行目の「"TEXT;C:\Users\hatena\Desktop\新しいフォルダ\ID\21008689.CSV",」
の部分を、変数に記録されたパスに置き換えたいのですが、どうすればよいでしょうか？

変数に「C:\Users\hatena\Desktop\新しいフォルダ\ID\21008689.CSV」を代入して
「TEXT;」の後に変数名を記述しても、色々試しましたがどうもうまくいきません。

そもそも、このようなことはできないのでしょうか？

有識者の方々、どうぞよろしくご教授お願いいたします。

回答No.1

kokorone · ベストアンサー

変数に「C:\Users\hatena\Desktop\新しいフォルダ\ID\21008689.CSV」を代入して
「TEXT;」の後に変数名を記述しても

どのような記述をされましたか？
一般的に文字列の連結・結合は
Ａ＝Ｂ＆Ｃ　　とか　Ａ＝”ＴＥＸＴ”＆Ｂ
で記述します。
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;" & file_path, Destination:=Range("$A$1"))
.Name = "21008689_4"
.FieldNames = True
.RowNumbers = False

file_pathが変数名です。
これでいかがですか？

お礼

できました！！！色々試しましたが→"TEXT;　の後に"がないのが原因でしたorz
5時間考えた挙句、質問しまいたが、うまくいきました。全くふがいないです。
どうもありがとうございました！！！