对象“_Global”的排序错误 1004 方法“范围”失败

【问题标题】：Sort Error 1004 Method 'Range' of object '_Global' failed对象“_Global”的排序错误 1004 方法“范围”失败
【发布时间】：2018-03-11 23:19:17
【问题描述】：

我有一个包含数据库连接和自动筛选的工作表，我正在尝试对其进行排序，但我终生无法弄清楚为什么这不起作用：

Sub TEST()

    Workbooks("1.Receiving Worksheet Database 02 No Filter.xlsx").Activate
    Worksheets("Sheet1").Activate

    Worksheets("Sheet1").Range("A:AJ").Sort key1:=Range("B"), _
        order1:=xlAscending, Header:=xlYes

End Sub

【问题讨论】：

标签： excel sorting vba

【解决方案1】：

好的，在阅读了另一篇建议有人记录宏的帖子后，我喜欢“duh！”，工作的代码如下，我认为问题可能与数据库连接和自动过滤器有关。

    ActiveWorkbook.Worksheets("Sheet1").ListObjects("Table_Query_from_Prototype"). _
        Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sheet1").ListObjects("Table_Query_from_Prototype"). _
        Sort.SortFields.Add Key:=Range("Table_Query_from_Prototype[[#All],[ID]]"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortTextAsNumbers
    With ActiveWorkbook.Worksheets("Sheet1").ListObjects( _
        "Table_Query_from_Prototype").Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

又好又简单：|

【讨论】：