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

Question

I'm pulling my hair out over this. I've seen other topics that almost address this question, but their methods are normally too specific. I don't need anything as complicated as scraping

I have about 64,000 URLs in column A of my file. I want Excel to go to each URL and once it loads, copy the entire page and then paste it into Excel. I would like all the pasted data in the same workbook and same sheet pasted one after the other.

Answer 1

Well here's the finished code, if anyone was wondering.

    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