如何使用Excel VBA循环浏览网站列表?
我已经建立了一个Excel宏,可以从我的网站上的表格中提取数据,但我还想从网站的许多其他部分提取数据。我已经将URL列表放在A列中,希望宏继续沿着列表向下移动,并从同一个精确的表中提取数据,基本上像我现有的宏一样从web中提取数据,但在每次循环后使用下一个单元格中的链接。 最终的结果可能是一张长长的表格,其中包含A列中链接到的所有页面的数据。任何了解VBA的人都能提供帮助吗 这是目前为止的宏。它只是从我的站点中的特定表中提取。但我不知道如何添加循环函数,它将沿着URL列表向下移动如何使用Excel VBA循环浏览网站列表?,vba,excel,web-scraping,Vba,Excel,Web Scraping,我已经建立了一个Excel宏,可以从我的网站上的表格中提取数据,但我还想从网站的许多其他部分提取数据。我已经将URL列表放在A列中,希望宏继续沿着列表向下移动,并从同一个精确的表中提取数据,基本上像我现有的宏一样从web中提取数据,但在每次循环后使用下一个单元格中的链接。 最终的结果可能是一张长长的表格,其中包含A列中链接到的所有页面的数据。任何了解VBA的人都能提供帮助吗 这是目前为止的宏。它只是从我的站点中的特定表中提取。但我不知道如何添加循环函数,它将沿着URL列表向下移动 Sub Mac
Sub Macro1()
'
' Macro1 Macro
'
'
With ActiveSheet.QueryTables.add(Connection:= _
"URL;https://mywebsite.com/", Destination:= _
Range("$B$1"))
.Name = "clients"
.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 = "8"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
End Sub
将范围分配给集合listOfURLs=RangeA2:A15
或
迭代循环中的行cellsrow、1和行=行+1
最好使用数组或集合,因为它会执行得更快显示现有代码。你对问题的哪一部分有意见?