EXEL VBA webクエリのURLに変数を使う

http://ext.nicovideo.jp/api/getthumbinfo/sm2420025
の　sm2420025　を変数にしてデータを取得したいのですが
上手くいきません
アクティブのセルに　sm2420025　と入力されている状態で

Sub Webクエリ()
Dim i As String
i = ActiveCell.Value
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://ext.nicovideo.jp/api/getthumbinfo/" & i&, _
Destination:=ActiveCell.Offset(1, 0))
…以下略

と、したのですが
コンパイルエラー
型宣言文字と宣言されたデータ型が一致しません
どこが間違っているのでしょう？

No.1 ベストアンサー 回答者： WindFaller 回答日時： 2015/02/07 18:09

こんばんは。

>型宣言文字と宣言されたデータ型
i& というのは、Long型の i 変数ということですね。
「i&」がくっついてしまうと、別の認識してしまうようです。

"URL; http://ext.nicovideo.jp/api/getthumbinfo/" & i&　←ここは、I <-> & の間を開けて、
i & _ としてください。

私なら、QueryTableではなく、XmlImportを使います。しかし、それはバージョンに依存するかもしれません。

Sub XMLInportPro()
　 ID = ActiveCell.Value
　 If ID = "" Then Exit Sub
　　ActiveWorkbook.XmlImport URL:= _
　 "http://ext.nicovideo.jp/api/getthumbinfo/" & ID, _
　 ImportMap:=Nothing, _
　　Overwrite:=True, _
　　Destination:=ActiveCell.Offset(0, 1)
End Sub

この回答へのお礼

回答ありがとうございます
何とか上手くいきました。
最初はURLに　sm　まで入れて残りの数字部分を変数にしていたので、
そのままLong型のままでしていました。

XmlImportはタダの2003なので使えませんでした、残念です

お礼日時：2015/02/07 20:44