排序时如何按名称引用此表列？

Question

第三行错误，错误 5，无效的过程调用或参数。

Set tbl = ActiveSheet.ListObjects(1)
tbl.Sort.SortFields.Clear
tbl.Sort.SortFields.Add Key:=tbl.Range("Table[Matter ID]"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

我知道问题出在tbl.Range("Table[Matter ID]")，我已经使用tbl.Range.Cells(8) 解决了这个问题，它可以工作。但是为什么第一个不起作用？

我可以去?tbl.Range.Address 并获得一个有效的范围地址。

我可以去?tbl.Range.Resize(1).Address 并获得一个有效的范围地址。

名称“表”和“事务 ID”是正确的。 Excel 表 (ListObjects) 的优点之一是您可以按名称引用列。我做错了什么？

Answer 1

tbl 中没有 Range("Table[Matter ID]")，但 tbl.parent 中有 Range("Table[Matter ID]")。

Option Explicit

Sub aswqer()
    Dim tbl As ListObject
    Set tbl = ActiveSheet.ListObjects(1)
    With tbl
        .Sort.SortFields.Clear
        .Sort.SortFields.Add Key:=.Parent.Range("table[Matter ID]"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        .Sort.Apply
    End With
End Sub

Range("table[Matter ID]") 是表格所在工作表的子级，而不是表格的子级。