Question

我有一个带有数据库连接并自动过滤的工作表我正在尝试排序，而且我无法解释为什么这不起作用：

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

Answer 1

好的，在阅读了另一篇建议有人录制宏的帖子之后，我就像是＆＃34; duh！＆＃34;，有效的代码如下，我认为问题可能与数据库连接和自动过滤器。

    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

美好而简单：|

排序错误1004方法＆＃39;范围＆＃39;对象＆＃39; _Global＆＃39;失败

1 个答案: