Excel Webクエリ　複数サイトについて

よろしくお願いします。

現在，Excel VBAを用いて気象庁HPから複数データを取得しようとしています。

しかし，現在接続しているのとは異なるurl上のデータを取得しようとすると，

データが取得されないという現象が起っています。

Web クエリについて詳しく知らないため，原因がわかりません。

どなたか，知っていらっしゃっる方はいませんか？

使用しているのは，Excel2016です。

[追記]
情報が不足していました。すみません。

書いてみたコードの中で，クエリに関する箇所は以下のようなものです。

VBA
1Option Explicit
2
3Sub Ten_mindata_output()
4
5Dim i, j, celli As Integer
6Dim titenmei, kenbangou, titenbangou as Integer
7Dim year as Integer
8
9
10
11
12For j = 1 to 53
13    
14    Sheets("入力").Activate
15
16    titenmei = Cells(j,1).Value
17    kenbangou = Cells(j,2).Value
18    titenbangou = Cells(j,3).Value
19
20    For year = 2004 to 2017
21
22    Sheets("出力").Activate
23
24    celli = 1
25
26        For i = 1 To 30
27            
28            With ActiveSheet.QueryTables.Add(Connection:= _
29                "URL;http://www.data.jma.go.jp/obd/stats/etrn/view/10min_a1.php?prec_no=" & kenbangou & "&block_no=" & titenbangou & "&year=" & year & "&month=04&day=" & i & "&view=p1" _
30                , Destination:=Range("$A$" & celli))
31                .Name = _
32                "10min_a1.php?prec_no=" & kenbangou & "&block_no="& titenbangou & "&year=" & year & "&month=04&day=" & i & "&view=p1"
33                .FieldNames = True
34                .RowNumbers = False
35                .FillAdjacentFormulas = False
36                .PreserveFormatting = True
37                .RefreshOnFileOpen = False
38                .BackgroundQuery = True
39                .RefreshStyle = xlInsertDeleteCells
40                .SavePassword = False
41                .SaveData = True
42                .AdjustColumnWidth = True
43                .RefreshPeriod = 0
44                .WebSelectionType = xlSpecifiedTables
45                .WebFormatting = xlWebFormattingNone
46                .WebTables = """tablefix1"""
47                .WebPreFormattedTextToColumns = True
48                .WebConsecutiveDelimitersAsOne = True
49                .WebSingleBlockTextImport = False
50                .WebDisableDateRecognition = False
51                .WebDisableRedirections = False
52                .Refresh BackgroundQuery:=False
53            End With
54
55            celli = celli + 147
56
57            DoEvents
58            DoEvents
59            DoEvents
60
61        Next i
62
63       
64
65    Next year
66
67Next j
68
69End Sub
70