マクロを使ったWEBクエリでデータが正常にできない
マクロを使ったWEBクエリでデータが正常に取得できない
エクセル２０１３を使用しております。
下記ＵＲＬを参考に、マクロでＷＥＢクエリで１１６ページ分の
データ取得用マクロを作成してみたのですが、データ取得が出来ません。
マクロを使用したＷＥＢクエリをご存知の方がいらっしゃいましたら
解決方法をアドバイス頂きたいと思います。
-参考元-
http://okwave.jp/qa/q8208492.html
取得したいＷＥＢページ
http://www.walkerplus.com/spot_list/ar0300/2.html
http://www.walkerplus.com/spot_list/ar0300/3.html
...
http://www.walkerplus.com/spot_list/ar0300/117.html
取得用シートに記載したＵＲＬ
2.html
3.html
...
117.html
-作成したマクロです-
Sub WEBクエリ実行()
Dim St As Object
Dim I As Integer
Set St = ActiveSheet
Sheets.Add After:=Sheets(Sheets.Count)
For I = 1 To 116
With ActiveSheet.QueryTables.Add(Connection:="URL;http://www.walkerplus.com/spot_list/ar0300/" & Format(St.Cells(I, 1), "@"), Destination:=Range("C" & (I - 1) * 1000 + 1))
.FieldNames = True
.FillAdjacentFormulas = False
.PreserveFormatting = True
.BackgroundQuery = True
.SaveData = True
.AdjustColumnWidth = True
.WebTables = "1"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.Refresh BackgroundQuery:=False
End With
Next I
End Sub
-マクロは ここまで-
修正箇所のアドバイス もしくは、
他の方法でも、１１７ページ全て取得可能なマクロをアドバイス頂けると嬉しいです！
![その他([技術者向] コンピューター) イメージ](https://gazo.okwave.jp/okwave/spn/images/related_qa/c205_2_thumbnail_img_sm.png)
お礼
回答ありがとうございます。参考にさせていただきます。