是否将数据从网站的多个页面导入excel？

我想从一个网站的不同网页自动获取数据。链接是相同的，但只是最后一个数字更改如下：链接保持不变，只是结束编号更改到953157。因为总共有953157条记录

我只想导入姓名、电子邮件和电话号码，并将其正确格式化为姓名、电子邮件和手机的单独列。我只是看了一些关于它的教程，并做了一个宏录制，但无法得到一个有效的解决方案。这是它的宏

Sub Macro1()
'
' Macro1 Macro
'

'
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://reo-agents.net/agents/1", Destination:=Range("$A$1"))
        .Name = "1"
        .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
    ActiveWindow.SmallScroll Down:=21
End Sub

---

如何实现自动化？

到目前为止，您尝试了什么，结果如何。关于这个问题也是如此，所以关于这是你的第一个问题的注释是不必要的。你想要什么格式，“正确”不是一个很好的描述。我在看一些教程时尝试在其中添加循环，但我无法做到这一点，把一切都搞砸了。格式很简单，如姓名、电子邮件和手机的单独列。你能帮我吗？梅问到目前为止你都做了些什么，我应该说让我们看看你都做了些什么。看到您尝试过的代码，主题专家可以提出修改和改进建议，以完成工作并帮助您理解。我无法做任何事情，只是将复制粘贴编码添加到我的宏中，但没有任何工作可以帮助我解决此问题？？