如何从sheet1中的单元格调用URL并在sheet2中刮取网页数据..！

Question

我正在尝试使用网站网址将表格数据划分为excel，但我想要从sheet1中的Cell（A1）和sheet1中的Cell（A2）调用URL，依此类推...... 报废的数据应导入同一工作簿中的sheet2。请帮帮我。我使用下面的代码，但我可以使用一次网址。

Sub Macro2()
'
' Macro2 Macro
'

'
    Range("A1").Select
    With ActiveSheet.QueryTables.Add(Connection _
    :="URL;http://publicrecords.netronline.com/state/AL/county/macon", Destination _
        :=Range("$A$1"))
        .Name = "autauga"
        .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 = "5"
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
    ActiveWindow.SmallScroll Down:=-15
    Range("C1").Select
    ActiveWindow.SmallScroll Down:=-12
End Sub

Answer 1

我不完全确定你要求的是什么，但我认为你想使用For循环。

For row = 1 To n
    ...
    Range("$A$" & row)
    ...
Next

这将允许您按顺序使用单元格A1，A2，...，An。