VBA调用最新文件时AutoFilter.Sort下标越界问题求助

这个问题的核心是你硬编码了工作表名称，实际打开的文件里可能不存在该名称的工作表，或者拼写有误；另外ActiveWorkbook也不一定指向你刚打开的目标文件，这也会导致引用出错。好在你已经通过Set wb = Workbooks.Open(MyPath & LatestFile)获取了目标工作簿对象，直接用它来引用工作表就靠谱多了。

修改思路 #

• 抛弃不可靠的ActiveWorkbook，直接使用已定义的wb对象（它就是你刚打开的最新文件），避免激活其他工作簿时出现引用混乱
• 动态引用工作表：如果目标文件只有一个工作表，用wb.Worksheets(1)（按索引号引用，最稳妥）；如果知道工作表的准确名称但不想硬编码，也可以通过索引号或默认激活表来获取
• 去掉冗余的Select和Selection，直接操作单元格区域，这是VBA的最佳实践，能提升代码稳定性和运行效率

修改后的代码片段 #

'命名最新文件夹的代码部分
Dim wbcsv As Workbook, wbplanning As Workbook
Set wbplanning = Workbooks("Planning_tool.xlsm")
Dim wb As Workbook
Set wb = Workbooks.Open(MyPath & LatestFile)

' 动态获取目标工作表（根据实际情况选择以下一种方式）
Dim targetWs As Worksheet
' 方式1：引用第一个工作表（最稳妥，适用于目标文件只有一个表的情况）
Set targetWs = wb.Worksheets(1)
' 方式2：引用默认激活的工作表（打开文件时自动选中的表）
' Set targetWs = wb.ActiveSheet
' 方式3：如果知道表的准确名称但不想硬编码，也可以用名称引用（确保名称正确）
' Set targetWs = wb.Worksheets("Sheet1")

' 删除文件重复项，用动态引用的工作表对象操作
With targetWs
    ' 开启自动筛选
    .UsedRange.AutoFilter
    
    ' 清理之前的排序规则并添加新规则
    .AutoFilter.Sort.SortFields.Clear
    .AutoFilter.Sort.SortFields.Add2 _
        Key:=.Range("AU1:AU220936"), _
        SortOn:=xlSortOnValues, _
        Order:=xlDescending, _
        DataOption:=xlSortNormal
    
    ' 应用排序设置
    With .AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End With

额外说明 #

• 如果你不确定目标工作表的索引号，可以打开VBA编辑器，在工程窗口里查看工作表的排列顺序，把Worksheets(1)改成对应的数字即可
• 尽量避免使用Select和Selection，这类依赖界面焦点的操作很容易因用户误操作或程序切换窗口而出错

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