跨工作簿VBA排序表格触发Run-time error '1004'的原因排查

嘿，我来帮你排查这个1004错误的核心原因——问题就出在你指定排序键（Key）的方式上！

错误触发的具体原因 #

你在添加排序字段时写了：

Key:=Range("Table1[[#All],[CHW First Name]]")

这里的Range对象没有明确指定所属的工作表，VBA会默认将其指向当前活动的工作表，而不是你已经定义好的wsLSHP（目标工作簿的Sheet1）。

如果运行宏时，CDU_Enrollee Engagement Tracking Report v2.2.xlsx不是当前激活的工作簿，VBA就找不到这个结构化表格对应的范围，直接抛出"Application-defined or object-defined error"（1004）。哪怕目标工作簿碰巧是活动的，这种写法也不够严谨，很容易因为后续操作改变活动工作表而再次出错。

修正后的代码方案 #

你只需要给Range加上工作表对象的限定，或者更规范地通过ListObject的列对象来获取范围，两种方式都能解决问题：

方式一：给Range指定工作表

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

' 清空原有排序规则
wsLSHP.ListObjects("Table1").Sort.SortFields.Clear
' 添加排序字段时明确指定工作表
wsLSHP.ListObjects("Table1").Sort.SortFields.Add _
    Key:=wsLSHP.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

方式二：通过ListColumns直接获取列范围（更推荐）

这种写法不需要依赖结构化引用的字符串，可读性和稳定性更强：

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

' 清空原有排序规则
targetTable.Sort.SortFields.Clear
' 通过ListColumns获取目标列的范围
targetTable.Sort.SortFields.Add _
    Key:=targetTable.ListColumns("CHW First Name").Range, _
    SortOn:=xlSortOnValues, _
    Order:=xlAscending, _
    DataOption:=xlSortNormal

' 应用排序设置
With targetTable.Sort
    .Header = xlYes
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply
End With

内容的提问来源于stack exchange，提问作者Dustin Burns