1

我使用 Web 查询将许多表格从网页获取到 Excel。网页中的表格是这样列出的

  • A1
  • A2
  • A3
  • A4
  • A5
  • A6
  • A7
  • A8
  • A9
  • A10
  • A11
  • A12
  • A13
  • A14
  • A15
  • A16
  • A17
  • B1
  • B2
  • B3
  • B4
  • B5
  • B6
  • B7
  • B8
  • B9
  • B10
  • B11
  • B12
  • B13
  • B14
  • B15
  • B16
  • B17
  • ...

在 Excel 中，我需要它们是这样的：

A1 B1 C1 D1 E1 F1 G1 ...

A2 B2 C2 D2 E2 F2 G2 ...

我通过多次运行此代码来获取所有这些表，只需将 webtables 从 1,18,35,52,69... 更改为 2,19,36,53,70... 3,20,37,54 ,71... 直到 17,34,51,68,85... 以及从 A1 到 AE1、BI1... 的数据范围：

With ActiveSheet.QueryTables.Add(Connection:="URL;http://domain.com", Destination:=Range("$A$1"))
    .Name = "table-01"
    .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 = _
    "1,18,35,52,69,86,103,120,137,154,171,188,205,222,239,256,273,290,307,324,341,358,375,392,409,426,443,460,477,494,511,528,545,562,579,596,613,630,647,664,681,698,715,732,749,766,783,800,817,834"
    .WebPreFormattedTextToColumns = True
    .WebConsecutiveDelimitersAsOne = True
    .WebSingleBlockTextImport = False
    .WebDisableDateRecognition = True
    .WebDisableRedirections = False
    .Refresh BackgroundQuery:=False
End With

上述代码运行 17 次以获取所有数据并将其从所有垂直到水平移动到 Excel 中。但这需要很长时间，我注意到对于每个网络查询，我都打开了一个新连接，将数据放入 Excel，关闭，移至下一个，打开连接，将数据放入 Excel，关闭......等等 17次。但是在高负载的情况下，网络服务器有时会以错误和空白页面进行响应，所以我进入了我的 Excel 空白部分，例如：

A1 B1 C1 xx E1 F1 G1 ...

A2 B2 C2 xx E2 F1 G2 ...

我想知道是否可以执行这些选项中的任何一个，以更容易和/或更好的为准：

  1. 在 Excel 中，打开一个连接并循环获取所有数据，然后关闭连接，或者
  2. Excel 检测到 webquery 没有返回任何数据，因此 webquery 是空白的，因此它会自动重试该 webquery，直到它获取数据然后移动到下一个查询

编辑： 如何在一次调用中安排表格的图形化想法

4

1 回答 1

0

您是否尝试过添加转置？

With ActiveSheet.QueryTables.Add(Connection:="URL;http://domain.com", Destination:=Range("$A$1"))
    '...
    .Transpose = True
End With

编辑：

我在考虑使用转置和改变

Destination:=Range("$A$1")

进入

Destination:=Range(StartingCell)'where StartigCell is valued to set the first empty row

所以让所有数据都在列而不是行中

于 2015-11-18T10:11:11.713 回答