在 http://www.ahyycg.cn/NoticeBoard/CompanyBid.aspx页面上有多达54页的表格数据，请问如何全部导出到Excel中保存，从而可以在网下查询。这是我的工作需要，为此我在网上求教了很久，没有收获。敬请指教。

我想用宏（VBA），但导出的全都是第一页的内容。
Sub MacDYDC()

Dim i As Integer
Dim j As Integer

For i = 1 To 54
 j = 11 * i - 10
 Range("A" & j).Select
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.ahyycg.cn/NoticeBoard/CompanyBid.aspx", Destination:=Range( _
"A" & j))
  .FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = """ctl00_ContentPlaceHolder1_gvwAppraiseInfo"""

  .WebDisableRedirections = False
  .Refresh BackgroundQuery:=False
   
End With
Next i

End Sub