Excel宏因每日数据源文件名变更触发Run-time 9错误，如何跳过指定步骤或忽略该错误？

这个Run-time 9错误（下标越界）本质是因为你的宏里硬编码了固定日期的文件名09_01_2022_data.xlsx，每天新的数据源文件名字不一样，VBA找不到对应的窗口/工作簿，自然就报错了。直接忽略错误不可取——就算跳过这行，后续的复制粘贴操作还是会因为找不到目标文件而失败，咱们得从根源上解决文件名动态获取的问题，完全不用手动改VBA代码。

下面给你几个实用的方案，按自动化程度排序：

方案1：动态生成当日日期文件名（如果文件名是当日日期格式） #

如果你的数据源文件名格式固定是mm_dd_yyyy_data.xlsx，比如今天是2024年5月20日，文件就是05_20_2024_data.xlsx，那可以用VBA的Date函数自动生成对应文件名，完全不用手动干预：

Sub AutoCopyData()
    Dim sourceWB As Workbook
    Dim calcWB As Workbook
    Dim sourceWS As Worksheet
    Dim targetWS As Worksheet
    
    ' 先定义Calc工作簿（假设它已经打开）
    Set calcWB = Workbooks("Calc.xlsx")
    ' 动态生成当日数据源文件名
    Dim sourceFileName As String
    sourceFileName = Format(Date, "mm_dd_yyyy") & "_data.xlsx"
    
    ' 检查文件是否打开，没打开的话尝试打开
    On Error Resume Next
    Set sourceWB = Workbooks(sourceFileName)
    On Error GoTo 0
    
    If sourceWB Is Nothing Then
        ' 如果文件没打开，这里可以指定文件路径，比如放在D盘的Data文件夹
        Dim filePath As String
        filePath = "D:\Data\" & sourceFileName ' 替换成你的实际路径
        Set sourceWB = Workbooks.Open(filePath)
    End If
    
    Set sourceWS = sourceWB.ActiveSheet ' 或者指定具体工作表，比如sourceWB.Sheets("Sheet1")
    Set targetWS = calcWB.ActiveSheet ' 同理，建议指定具体工作表
    
    ' 执行筛选和复制操作，避免用Select/Activate（更稳定）
    sourceWS.Range("$A$1:$F$8").AutoFilter Field:=1, Criteria1:=Array("Fri", "Mon", "Thu", "Tue", "Wed"), Operator:=xlFilterValues
    sourceWS.Range("A2:F6").Copy
    
    ' 粘贴格式到Calc.xlsx
    targetWS.Range("A2").PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    
    ' 清理剪贴板
    Application.CutCopyMode = False
    ' 可以选择关闭数据源文件，或者保留打开
    ' sourceWB.Close SaveChanges:=False
End Sub

方案2：让宏自动识别打开的数据源文件（如果只有一个_data.xlsx文件打开） #

如果你每天打开新的数据源文件后再运行宏，且同时只打开一个带_data.xlsx后缀的文件，可以遍历所有打开的工作簿来找到它：

Sub AutoCopyData()
    Dim sourceWB As Workbook
    Dim calcWB As Workbook
    Dim sourceWS As Worksheet
    Dim targetWS As Worksheet
    
    ' 找到Calc.xlsx
    Set calcWB = Workbooks("Calc.xlsx")
    
    ' 遍历所有打开的工作簿，找到包含_data.xlsx的文件
    For Each sourceWB In Workbooks
        If InStr(sourceWB.Name, "_data.xlsx") > 0 And sourceWB.Name <> "Calc.xlsx" Then
            Exit For
        End If
    Next sourceWB
    
    If sourceWB Is Nothing Then
        MsgBox "未找到数据源文件，请先打开带_data.xlsx后缀的文件！"
        Exit Sub
    End If
    
    Set sourceWS = sourceWB.ActiveSheet
    Set targetWS = calcWB.ActiveSheet
    
    ' 筛选复制操作（同方案1，去掉Select/Activate）
    sourceWS.Range("$A$1:$F$8").AutoFilter Field:=1, Criteria1:=Array("Fri", "Mon", "Thu", "Tue", "Wed"), Operator:=xlFilterValues
    sourceWS.Range("A2:F6").Copy
    
    targetWS.Range("A2").PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    
    Application.CutCopyMode = False
End Sub

方案3：手动选择数据源文件（最灵活，适合文件名格式不固定的情况） #

如果文件名偶尔会有变动，或者你不想固定路径，可以让宏弹出选择文件的窗口，自己选当天的数据源：

Sub AutoCopyData()
    Dim sourceFilePath As String
    Dim sourceWB As Workbook
    Dim calcWB As Workbook
    Dim sourceWS As Worksheet
    Dim targetWS As Worksheet
    
    ' 弹出文件选择窗口
    sourceFilePath = Application.GetOpenFilename(FileFilter:="Excel文件 (*.xlsx), *.xlsx", Title:="选择当日数据源文件")
    
    If sourceFilePath = "False" Then ' 用户取消选择
        Exit Sub
    End If
    
    ' 打开选择的文件
    Set sourceWB = Workbooks.Open(sourceFilePath)
    Set calcWB = Workbooks("Calc.xlsx")
    
    Set sourceWS = sourceWB.ActiveSheet
    Set targetWS = calcWB.ActiveSheet
    
    ' 筛选复制操作
    sourceWS.Range("$A$1:$F$8").AutoFilter Field:=1, Criteria1:=Array("Fri", "Mon", "Thu", "Tue", "Wed"), Operator:=xlFilterValues
    sourceWS.Range("A2:F6").Copy
    
    targetWS.Range("A2").PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    
    Application.CutCopyMode = False
    ' 可选：关闭数据源文件
    ' sourceWB.Close SaveChanges:=False
End Sub

额外提示：尽量避免使用Select/Activate #

你原来的代码里大量用了Select和Activate，这些操作很容易因为窗口焦点变化而出错，直接引用工作簿、工作表和单元格范围会让宏更稳定可靠，上面的示例都已经改成了这种写法。

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