分页网页数据如何提取？

筷子一双半

VBA小白，想通过VBA自动提取网页数据，通过宏录制了代码，但不知道怎么修改，求助大神      
这句话 "URL;http://old.lezhuan.com/luck/winList.php?p=1&luckNO=431293", Destination _
        :=Range("$A$1"))
我网址有15页数据，粘贴到一个页签中，然后间隔是57行
以下是宏代码（网站可能打不开，需要账号密码）
Sub Macro1()


    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://old.lezhuan.com/luck/winList.php?p=1&luckNO=431293", Destination _
        :=Range("$A$1"))
        .Name = "winList.php?p=2&luckNO=431293"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlEntirePage
        .WebFormatting = xlWebFormattingNone
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
End Sub

phsu

以下代碼未經測試。
Sub test()
    Dim i As Byte
    Dim nRow As Integer
    Dim QT As QueryTable
    For i = 1 To 15
        With ActiveSheet
            nRow = .Range("A65536").End(xlUp).Row
            If i = 1 Then
                Set QT = .QueryTables.Add(Connection:= _
                        "URL;http://old.lezhuan.com/luck/winList.php?p=" & i & "&luckNO=431293", _
                        Destination:=.Range("A1"))
            Else
                Set QT = .QueryTables.Add(Connection:= _
                        "URL;http://old.lezhuan.com/luck/winList.php?p=" & i & "&luckNO=431293", _
                        Destination:=.Range("A" & nRow + 57))
            End If
            QT.Refresh False
        End With
        Set QT = Nothing
    Next i
End Sub

筷子一双半

phsu 发表于 2018-6-20 09:47
以下代碼未經測試。
Sub test()
    Dim i As Byte

今天刚看到，测试了一下，只能提取第一页数据，之后页面提取不到了

mxf21cn

URL;http://old.lezhuan.com/luck/winList.php?p=1&luckNO=431293", Destination _
         :=Range("$A$1"))
估计红色部分改下就好