对象“_Worksheet”的方法 'Range' 在尝试排序 table 时失败

Question

我试图寻找关于我在 Excel 中的错误的答案，我试图做的是从最大到最小过滤 table 上的列中的内容。我录制了一个执行此操作的宏，但每当我将此代码放入按钮时，我都会在尝试使用它后得到一个 "Method 'Range' of object '_Worksheet' failed"。

  ThisWorkbook.Sheets("FDTHC").ListObjects("FilterDTHC").Sort.SortFields. _
    Clear

ThisWorkbook.Sheets("FDTHC").ListObjects("FilterDTHC").Sort.SortFields. _
    Add Key:=Range("Time"), SortOn:=xlSortOnValues, Order _
    :=xlDescending, DataOption:=xlSortNormal

With ThisWorkbook.Sheets("FDTHC").ListObjects("FilterDTHC").Sort
    .Header = xlYes
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply
End With

VBA 突出显示了代码的以下部分：

ThisWorkbook.Sheets("FDTHC").ListObjects("FilterDTHC").Sort.SortFields. _
    Add Key:=Range("Time"), SortOn:=xlSortOnValues, Order _
    :=xlDescending, DataOption:=xlSortNormal

非常感谢您提供的任何帮助，在此先感谢。

Answer 1

命令中设置的范围在ActiveSheet上。它应该链接到 Sheet("FDTHC").

ThisWorkbook.Sheets("FDTHC").ListObjects("FilterDTHC").Sort.SortFields.Add _
    Key:=ThisWorkbook.Sheets("FDTHC").Range("Time"), _
    SortOn:=xlSortOnValues, _
    Order:=xlDescending, _
    DataOption:=xlSortNormal

对象“_Worksheet”的方法 'Range' 在尝试排序 table 时失败

Method 'Range' of object '_Worksheet' failed when trying to sort table

excel

vba

worksheet