网页查询和导入数据到Excel

Question

我想下https://support.software.dell.com/appassure/kb

我感兴趣的拉动文章的标题中提取从多个网页的具体数据，最后更新于领域，KB意见和收视率（总共四个字段）

所有知识库文章的默认页数是40，我尝试的Excel中的基本Web查询无效。

我也审查了Microsoft Excel 2010 Web Query Macro: Pulling Multiple Pages From One但它没有奏效。

任何帮助将是伟大的！

Answer 1

要循环，你需要有做for循环像

For i = 1 to 40 
    .... 
    ... = "https://support.software.dell.com/appassure/kb?p=" & i 
    .... 
next 

（对我进口工作得很好）

我只是跑了一个快速检查站点：

Sub test() 
    Dim i As Long 
    For i = 1 To 40 
    MsgBox "get page number" & i 
    With ActiveSheet.QueryTables.Add(Connection:="URL;https://support.software.dell.com/appassure/kb?p=" & i, Destination:=Range("$A$1")) 
     .Name = "testing" 
     .FieldNames = True 
     .RowNumbers = False 
     .FillAdjacentFormulas = False 
     .PreserveFormatting = True 
     .RefreshOnFileOpen = False 
     .BackgroundQuery = True 
     .RefreshStyle = xlInsertDeleteCells 
     .SavePassword = False 
     .SaveData = True 
     .AdjustColumnWidth = True 
     .RefreshPeriod = 0 
     .WebSelectionType = xlEntirePage 
     .WebFormatting = xlWebFormattingNone 
     .WebPreFormattedTextToColumns = True 
     .WebConsecutiveDelimitersAsOne = True 
     .WebSingleBlockTextImport = False 
     .WebDisableDateRecognition = False 
     .WebDisableRedirections = False 
     .Refresh BackgroundQuery:=False 
    End With 
    Next 
End Sub