2

我有一个电子表格，其中包含 A 列中的 URL 列表。我想读取每个 URL 并将输出存储在单个单元格中，或者至少存储在与 URL 相同的行中。我目前正在使用以下标准 VBA 代码进行每次读取（此处简化为使用静态 URL）。

问题是 Excel 会自动将数据分成多行和多列，具体取决于网页的格式（这显然是通常需要的）。

请问有什么简单的方法可以修改该代码以强制输出到单个单元格或行中吗？

Sub FetchData()
  With ActiveSheet.QueryTables.Add(Connection:= _
    "URL;http://www.someurl", Destination:=Range("$B$1"))
    .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
End Sub

别担心，我设法使用这里的代码解决了这个问题： Fetch specific table only from website into Excel

我下面的版本假设 A 列包含 URL 列表，BI 列包含其他数据。我想从 A 列中读取每个 URL 的网页，并从表中拉出 2 个字段并将它们放在 J 和 K 列（第 10 和 11 列）中。这些字段在网页中被命名为 ID="Name1" 和 ID="Name2"。

Sub Getfromweb()
Dim RowNumb As Long
Dim LastRow As Long
Dim htm As Object

Set htm = CreateObject("htmlFile")
LastRow = Cells(Rows.Count, 1).End(xlUp).Row

For RowNumb = 1 To LastRow

   With CreateObject("msxml2.xmlhttp")
      .Open "GET", Sheets(1).Cells(RowNumb, 1), False
      .send
       htm.body.innerhtml = .responsetext
   End With

   With htm.getelementbyid("Name1")
        Sheets(1).Cells(RowNumb, 10).Value = .innertext
   End With

   With htm.getelementbyid("Name2")
       Sheets(1).Cells(RowNumb, 11).Value = .innertext
   End With
Next RowNumb

End Sub
4

1 回答 1

0

显然它与文本到列有关。如果之前已经使用过并且指定了一个空白作为分隔符，那么它将应用于未来的数据导入。诡异的。无论如何，只需进入 Text to Columns 并删除空白分隔符并接受，然后重做数据导入。

于 2014-04-11T22:10:04.347 回答