Excel VBA复制工作簿数据报错：下标越界/1004应用定义错误排查

我帮你排查下这两个错误的常见原因，对应你代码里的几个问题点：

• 文件路径或文件名错误
  你代码里的Workbooks.Open(Range("C3") & "\" & Range("C2"))有两个坑：一是Range("C3")和Range("C2")没指定具体工作表，VBA会默认取当前活动工作表的单元格，如果当前活动表不是你存路径的那张，就会拿到错误的路径；二是如果C3的路径本身已经带了结尾的反斜杠，拼接后会变成\\，导致路径无效，直接触发1004错误。另外如果这个路径下根本不存在对应文件名的文件，也会报1004。

• 工作表名称不匹配
  FName.Worksheets("Numbers")这里如果打开的工作簿里没有名为Numbers的工作表，就会直接抛出“下标越界”错误——VBA找不到这个工作表，自然没法引用它。

• Range引用的父对象缺失
  你写的Range("U2").End(xlToRight)没有指定属于哪个工作表，VBA会默认用当前活动工作表的范围，而不是FName里的Numbers工作表。如果此时活动工作表是新建的WBNew的Sheet1，那这个Range引用就完全不对，直接触发错误。

给你调整后的代码，加入了错误处理和更严谨的引用逻辑：

Sub NewNumbers()
    Dim FName As Workbook, WBNew As Workbook
    Dim sourcePath As String, sourceFileName As String
    Dim sourceWs As Worksheet
    Dim copyRange As Range
    
    ' 先指定取路径的工作表，比如假设是当前工作簿的Sheet1，根据实际修改
    With ThisWorkbook.Worksheets("Sheet1")
        sourcePath = .Range("C3").Value
        sourceFileName = .Range("C2").Value
    End With
    
    ' 处理路径结尾的反斜杠，避免重复拼接出无效路径
    If Right(sourcePath, 1) <> "\" Then
        sourcePath = sourcePath & "\"
    End If
    
    On Error GoTo ErrorHandler ' 加入错误处理，方便排查具体问题
    
    ' 打开目标工作簿
    Set FName = Workbooks.Open(sourcePath & sourceFileName)
    ' 确认目标工作表存在
    Set sourceWs = FName.Worksheets("Numbers")
    
    ' 正确指定父工作表的Range范围，避免活动表干扰
    Set copyRange = sourceWs.Range(sourceWs.Range("U2"), sourceWs.Range("U2").End(xlToRight))
    
    ' 新建工作簿并粘贴，指定粘贴位置更稳定
    Set WBNew = Workbooks.Add
    copyRange.Copy
    WBNew.Sheets("Sheet1").Range("A1").PasteSpecial xlPasteAll
    
    ' 清理剪贴板，避免后续操作受影响
    Application.CutCopyMode = False
    
    Exit Sub ' 正常结束，跳过错误处理
    
ErrorHandler:
    MsgBox "出错啦：" & Err.Description & "，错误代码：" & Err.Number
    ' 出错时关闭可能打开的工作簿（如果已经打开）
    If Not FName Is Nothing Then
        FName.Close SaveChanges:=False
    End If
End Sub

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