Excel VBA持续报1004错误：无法找到文件，求助跨工作簿单元格复制问题

首先，你代码里最直接的问题是文件路径末尾多了不必要的反斜杠！你写的strFirstFile = "c:\test\tugboat.xlsx\"和strSecondFile = "c:\test\zzzzmaster.xlsm\"，末尾的\会让Windows把这些路径识别成文件夹而非Excel文件，这就是触发1004错误的核心原因。

先修正这个问题，再优化代码逻辑（比如避免重复赋值Workbook对象，改用更高效的直接赋值方式），修正后的代码如下：

Sub COPYCELL()
    Dim sourceWbk As Workbook
    Dim targetWbk As Workbook
    Dim sourcePath As String
    Dim targetPath As String
    
    ' 移除路径末尾的反斜杠，确保指向正确的文件
    sourcePath = "c:\test\tugboat.xlsx"
    targetPath = "c:\test\zzzzmaster.xlsm"
    
    ' 打开源工作簿并读取单元格值
    Set sourceWbk = Workbooks.Open(sourcePath)
    Dim cellValue As Variant
    cellValue = sourceWbk.Sheets("Sheet1").Range("A3").Value
    sourceWbk.Close SaveChanges:=False ' 读取完成后关闭，避免占用文件
    
    ' 打开目标工作簿并写入值
    Set targetWbk = Workbooks.Open(targetPath)
    targetWbk.Sheets("Sheet1").Range("A3").Value = cellValue
    targetWbk.Close SaveChanges:=True ' 保存修改后关闭
    
    ' 释放对象资源
    Set sourceWbk = Nothing
    Set targetWbk = Nothing
End Sub

除了路径问题，还有几个需要排查的细节：

• 确认文件确实存在于c:\test\目录下，文件名（包括后缀）完全匹配，比如不要把tugboat.xlsx误写成tugboat.xls
• 检查文件夹权限：Windows 10/11系统中，C盘根目录下的文件夹可能需要管理员权限才能访问，可以尝试把文件移到桌面路径测试
• 如果想更高效（无需打开文件），可以用Excel4宏直接读取值：

Sub COPYCELLWithoutOpening()
    Dim sourcePath As String
    Dim targetPath As String
    Dim cellValue As Variant
    
    sourcePath = "c:\test\tugboat.xlsx"
    targetPath = "c:\test\zzzzmaster.xlsm"
    
    ' 直接读取源文件的A3单元格值（R3C1对应A3）
    cellValue = ExecuteExcel4Macro("'" & sourcePath & "'!Sheet1!R3C1")
    
    ' 写入目标文件
    Set targetWbk = Workbooks.Open(targetPath)
    targetWbk.Sheets("Sheet1").Range("A3").Value = cellValue
    targetWbk.Close SaveChanges:=True
    
    Set targetWbk = Nothing
End Sub

如果还是遇到错误，可以添加错误处理来捕获具体问题：

Sub COPYCELLWithErrorHandling()
    Dim sourceWbk As Workbook
    Dim sourcePath As String
    
    sourcePath = "c:\test\tugboat.xlsx"
    
    On Error Resume Next
    Set sourceWbk = Workbooks.Open(sourcePath)
    If Err.Number <> 0 Then
        MsgBox "打开源文件失败：" & Err.Description
        Exit Sub
    End If
    On Error GoTo 0
    
    ' 后续复制逻辑...
    sourceWbk.Close SaveChanges:=False
End Sub

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