Html Excel VBA脚本，用于从预定义的URL列表复制和粘贴数据

我正为这件事大发雷霆。我见过其他几乎可以解决这个问题的主题，但它们的方法通常太具体了。我不需要刮这么复杂的东西

---

我在文件的A列中有大约64000个URL。我希望Excel转到每个URL，一旦加载，复制整个页面，然后将其粘贴到Excel中。我希望在同一个工作簿和同一张工作表中粘贴所有数据。

如果有人想知道的话，这是完成的代码

    Sub Macro3()
'
' Macro3 Macro
'
'
Dim Erw, Frw, Lrw
Drw = 1
Frw = 1
Lrw = Range("A" & Rows.Count).End(xlUp).Row
For Erw = Frw To Lrw

With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;" & Range("A" & Erw).Value, Destination:=Range("G" & Drw))
        .Name = ""
        .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 = "6"
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
    Drw = Drw + 80
Next Erw

End Sub

---

请在提出更多问题之前阅读以下内容：。我们不会为您编写代码。你需要向我们展示你尝试过的东西，告诉我们什么具体不起作用，我们可能会帮助你。我不需要像刮伤这样复杂的东西-你真的了解刮伤是什么以及它是如何工作的吗？你正是这样要求的。然而，有一种选择可能会有所帮助。请参见Excel功能区中的

Data>From Web

。如果您不知道代码，请使用宏录制器开始编写代码。