通过VBA自动化Power Query：如何定位网页目标表格

当然有办法解决这个问题！既然表格位置不固定，我们完全可以通过表格的特征属性（比如表头内容、结构特征、包含的特定文本）来精准定位目标表格，而不是依赖固定的索引值。下面给你几个实用的方案：

方法1：通过表头关键字筛选表格 #

如果目标表格有独特的表头（比如包含“客户名称”“订单金额”这类专属关键词），可以遍历所有表格，检查表头是否匹配：

Dim queryFormula As String
queryFormula = _
"let" & vbCrLf & _
"    Source = Web.Page(Web.Contents(" & myURL & "))," & vbCrLf & _
"    FilteredTables = Table.SelectRows(Source, each not List.IsEmpty(List.Intersect(Table.ColumnNames([Data]), {""客户名称"", ""订单金额""})))," & vbCrLf & _
"    TargetTable = if Table.RowCount(FilteredTables) > 0 then FilteredTables{0}[Data] else null," & vbCrLf & _
"in" & vbCrLf & _
"    TargetTable"

ThisWorkbook.Queries.Add Name:="TargetTable", Formula:=queryFormula

这里用Table.SelectRows筛选出表头包含指定关键字的表格，然后取第一个匹配结果（如果有多个符合条件的表格，还可以叠加其他条件进一步缩小范围）。

方法2：通过表格结构特征筛选 #

如果目标表格的列数、行数有明显区别于其他表格的特征（比如固定是8列，或者数据行数超过50行），可以用结构条件定位：

Dim queryFormula As String
queryFormula = _
"let" & vbCrLf & _
"    Source = Web.Page(Web.Contents(" & myURL & "))," & vbCrLf & _
"    FilteredTables = Table.SelectRows(Source, each Table.ColumnCount([Data]) = 8 and Table.RowCount([Data]) > 50)," & vbCrLf & _
"    TargetTable = if Table.RowCount(FilteredTables) > 0 then FilteredTables{0}[Data] else null," & vbCrLf & _
"in" & vbCrLf & _
"    TargetTable"

通过Table.ColumnCount和Table.RowCount判断表格的结构特征，快速筛选出符合要求的表格。

方法3：通过表格内容中的特定文本筛选 #

如果目标表格包含某个唯一标识的文本（比如特定客户ID、专属产品名称），可以检查表格内容是否包含该文本：

Dim queryFormula As String
queryFormula = _
"let" & vbCrLf & _
"    Source = Web.Page(Web.Contents(" & myURL & "))," & vbCrLf & _
"    FilteredTables = Table.SelectRows(Source, each List.Contains(List.Union(Table.ToList([Data])), ""专属客户编号""))," & vbCrLf & _
"    TargetTable = if Table.RowCount(FilteredTables) > 0 then FilteredTables{0}[Data] else null," & vbCrLf & _
"in" & vbCrLf & _
"    TargetTable"

Table.ToList会把整个表格转成一维列表，List.Contains检查是否包含目标文本，从而精准定位到目标表格。

额外提示：处理无匹配的情况 #

上面的代码都加入了if Table.RowCount(FilteredTables) > 0的判断，这样如果没找到匹配的表格，会返回null。你可以在后续加载前添加错误处理，避免程序报错：

Dim qry As WorkbookQuery
Set qry = ThisWorkbook.Queries("TargetTable")
If InStr(qry.Formula, "null") > 0 Then
    MsgBox "未找到目标表格，请检查网页结构或筛选条件！"
    Exit Sub
End If
' 执行后续加载工作表的代码

内容的提问来源于stack exchange，提问作者tsdn