Excel工作簿Macro仅单独打开时正常，打开其他工作簿时触发Runtime Error 1004故障求助

嘿，这个问题其实挺典型的——你遇到的故障根源，就藏在排序键的引用方式里！

为什么打开其他工作簿会失败？ #

你的代码里，排序键用了Range("Table1[[#All],[Rank]]")，这个写法没有明确指定它属于哪个工作簿和工作表。当只有目标工作簿打开时，Excel会默认从当前工作簿找这个范围，没问题；但一旦打开其他工作簿，Excel可能会把活动工作簿当成默认上下文，而那个工作簿里根本没有叫Table1的表，自然就运行失败了。

修复后的代码 #

只需要把排序键的引用改成和代码里其他部分一致的，明确绑定到你指定的工作簿、工作表和表对象上就行：

Sub Sort_Leaders()
 Dim wb As Workbook: Set wb = ThisWorkbook
 Dim targetTable As ListObject
 Set targetTable = wb.Worksheets("TABLE").ListObjects("Table1")
 
 ' 清空原有排序规则
 targetTable.Sort.SortFields.Clear
 ' 添加新的排序规则，明确指定排序键所属的表
 targetTable.Sort.SortFields.Add _
 Key:=targetTable.ListColumns("Rank").Range, SortOn:=xlSortOnValues, Order:= _
 xlAscending, DataOption:=xlSortNormal
 
 ' 应用排序设置
 With targetTable.Sort
 .Header = xlYes
 .MatchCase = False
 .Orientation = xlTopToBottom
 .SortMethod = xlPinYin
 .Apply
 End With
 
 Call test
End Sub

额外小贴士 #

• 我还加了一个targetTable变量，这样不用反复写长长的对象路径，代码更简洁也更容易维护。
• 写VBA时尽量养成明确引用所有对象的习惯，避免依赖ActiveWorkbook、ActiveSheet这类默认对象，这样你的代码在多工作簿环境下会稳定很多。

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