0

早上好，

我有一个宏，除其他外，它可以对另一个工作簿中的表格进行排序。这是相关的代码位

Set wbLSHP = Workbooks("CDU_Enrollee Engagement Tracking Report v2.2.xlsx")
Set wsLSHP = wbLSHP.Worksheets("Sheet1")

“wsLSHP”是表所在的工作表。该表名为“Table1”

wsLSHP.ListObjects("Table1").Sort.SortFields.Clear
wsLSHP.ListObjects("Table1").Sort.SortFields.add _
    Key:=Range("Table1[[#All],[CHW First Name]]"), SortOn:=xlSortOnValues, _
    Order:=xlAscending, DataOption:=xlSortNormal
With wsLSHP.ListObjects("Table1").Sort
    .Header = xlYes
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply
End With

运行此程序时，出现以下错误：“运行时错误 '1004':, Application-defined or object-defined error

这发生在以下行：

wsLSHP.ListObjects("Table1").Sort.SortFields.add _
Key:=Range("Table1[[#All],[CHW First Name]]"), SortOn:=xlSortOnValues, _
Order:=xlAscending, DataOption:=xlSortNormal

关于导致此错误的任何想法？

4

0 回答 0