VBAでのクエリ抽出でURL指定の中で変数使用

質問

ＶＢＡでのクエリ抽出文（下記）で、URL指定文の中で変数を使用したいのですが""で囲まれているため使用できません。なにかよい方法はないでしょうか。

With ActiveSheet.QueryTables.Add(Connection:= _
"url;http://www.○○○.com/○○「変数」", _
Destination:=Range("A101"))
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "1,2,3"
.Refresh BackgroundQuery:=False
End With

「変数」の部分で変数を使いたいのですが。

回答No.3

piroin654 · ベストアンサー

適当にデータを取り込んでいますが、以下のように
しても取り込めますが。

Sub test()
Dim str As String
str = "jp/"

With ActiveSheet.QueryTables.Add(Connection:="URL;http://finance.yahoo.co." & str, Destination:=Range("A1"))
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "2"
.Refresh BackgroundQuery:=False

End With
End Sub

& str

のところを、No1のように
　& 変数 & ""
のようにしても、最後の""は空文字ですから同じことなのですが。

お礼

ありがとうございました。

回答No.2

piroin654

以下でどうですか。
With ActiveSheet.QueryTables.Add(Connection:= _
"url;http://www.○○○.com/○○" & 変数, _

お礼

ありがとうございました。

回答No.1

piroin654

「変数」を""の外に出して変数として認識させて連結する、
ということで、たとえば

Dim 変数 As String

With ActiveSheet.QueryTables.Add(Connection:= _
"url;http://www.○○○.com/○○" & 変数 & "", _

のようなかんじ。

お礼

そうしてみたのですがダメです。
どうもAdd(Connection:=の後の部分が「"url;http://www.○○○.com/○○"」 のように「”」と「”」で囲まれていないとダメみたいです。なにか方法はないでしょうか。