エクセル2002で取り込むWEB上の表

質問

エクセル2002以降のバージョンではWEB上の任意の表（テーブル）を取り込むことができるようになりました。セルに入力されたURLを変数として表を取得できると思いました。下記のような質問もあったのですが、どうしてもうまくいきません。

１　A1に取得したい表のあるURLが入力されている
２　A10から下の部分に表の内容を表示させる

とした場合どのようにVBAを組んだらよいのでしょうか？2002からの新機能なのでとても気になっています。

【参考にした質問】

http://oshiete1.goo.ne.jp/kotaeru.php3?q=1043635

回答No.1

papayuka

参考質問に回答したのは私ですね。

> どうしてもうまくいきません。

何が上手く行かないのでしょう？
Excel2002は持っておらず、WebQueryも殆ど使った事ないので外しているかも知れません。
Excel2000ですが、セル A1 に下記のURLがある場合、

http://biz.yahoo.co.jp/ranking/volume/day/all.html

下記で表が取れますけど、質問はそういう事では無い？

Sub Test()
Dim myQT As QueryTable
　With ActiveSheet
　　For Each myQT In .QueryTables
　　　　myQT.Delete
　　Next myQT
　　.Range("A10").CurrentRegion.Delete
　　Set myQT = .QueryTables.Add _
　　　　(Connection:="URL;" & .Range("A1").Text, _
　　　　 Destination:=.Range("A10"))
　　myQT.WebTables = 11
　　myQT.Refresh BackgroundQuery:=False
　End With
End Sub

お礼

ありがとうございます。解決できました。