Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/14.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
如何使用Excel VBA循环浏览网站列表?_Vba_Excel_Web Scraping - Fatal编程技术网

如何使用Excel VBA循环浏览网站列表?

如何使用Excel VBA循环浏览网站列表?,vba,excel,web-scraping,Vba,Excel,Web Scraping,我已经建立了一个Excel宏,可以从我的网站上的表格中提取数据,但我还想从网站的许多其他部分提取数据。我已经将URL列表放在A列中,希望宏继续沿着列表向下移动,并从同一个精确的表中提取数据,基本上像我现有的宏一样从web中提取数据,但在每次循环后使用下一个单元格中的链接。 最终的结果可能是一张长长的表格,其中包含A列中链接到的所有页面的数据。任何了解VBA的人都能提供帮助吗 这是目前为止的宏。它只是从我的站点中的特定表中提取。但我不知道如何添加循环函数,它将沿着URL列表向下移动 Sub Mac

我已经建立了一个Excel宏,可以从我的网站上的表格中提取数据,但我还想从网站的许多其他部分提取数据。我已经将URL列表放在A列中,希望宏继续沿着列表向下移动,并从同一个精确的表中提取数据,基本上像我现有的宏一样从web中提取数据,但在每次循环后使用下一个单元格中的链接。 最终的结果可能是一张长长的表格,其中包含A列中链接到的所有页面的数据。任何了解VBA的人都能提供帮助吗

这是目前为止的宏。它只是从我的站点中的特定表中提取。但我不知道如何添加循环函数,它将沿着URL列表向下移动

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
最好使用数组或集合,因为它会执行得更快

显示现有代码。你对问题的哪一部分有意见?