WEBクエリで読み取ったデータを更新したい

質問

A1には
http://table.yahoo.co.jp/t?s=8888.t&g=w
が入力されています。

下のマクロでデータを取り込みました。（1回目）
翌日、データを取り込みました。（2回目）

このとき、A1にあったURLがN1に移動しています。
また、1回目のデータがN10:U65に残っています。

3回目を試みましたが、最後まで行きませんでした。

そこで質問です。
2回目の動作後もN10:U65にデータが残ってしまうので残らないようにする方法を教えてください。

データがA10:G65の範囲で更新されるには何が不足か教えてください。

以上時間の許す方でご存知の方がいらっしゃいましたら教えてください。

Sub Macro1()

Dim myQT As QueryTable
With ActiveSheet

Set myQT = .QueryTables.Add _
(Connection:="URL;" & .Range("A1").Text, _
Destination:=.Range("A10"))
myQT.WebTables = 13
myQT.Refresh BackgroundQuery:=False
End With
End Sub

回答No.1

ki-aaa · ベストアンサー

これで、うまく行くと思う

Sub Macro111()
Dim myQT As QueryTable

Rows("10:100").Delete Shift:=xlUp

With ActiveSheet
Set myQT = .QueryTables.Add _
(Connection:="URL;" & .Range("A1").Text, _
Destination:=.Range("A10"))
myQT.WebTables = 13
myQT.Refresh BackgroundQuery:=False
End With
End Sub

お礼

ありがとうございました。参考にさせていただきます。