网页查询和导入数据到excel

Question

我正在尝试从https://support.software.dell.com/appassure/kb 下的几个网页中提取特定数据

我有兴趣拉文章的标题，最后更新的字段，知识库视图和评分（总共四个字段）

所有知识库文章的默认页数为 40，我尝试的 Excel 中的基本网络查询不起作用。

我也查看了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