请求调试VBA代码：年度生产者名单复制功能无法打开文件

背景 #

我给枫糖农开发了一套易用的库存管理系统，即便附带详细分步操作说明，也没有农户尝试自行完成年度文件结转与设置——一直由我代劳。我清楚这种状态存在风险，正在优化系统，确保我不在场时农户能独立管理系统。此前曾联系康奈尔大学与佛蒙特大学，希望捐赠这套系统，但对方农业部门对IT相关事物较为抵触。目前优化接近完成，需修复一段VBA代码：该代码无法打开第一个文件，我会在ThisWorkbook_Open()末尾调用此Sub，核心功能是新年文件首次打开时，自动复制上一年度生产者名单，既避免农户从头录入，也不会覆盖新年已做的修改。

原代码问题 #

Sub CopyPasteProducerNames()

If Sheet2.Range("U1").Value = "File found" & Range("U5") = 1 Then
    
    Workbooks.Open Filename:=Range("V6").Value
    Sheet2.Range("A7").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy

    Workbooks.Open Filename:=Range(V5).Value
    Sheet2.Range("A7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("U5") = 2
    
    End If
    
End Sub

注：单元格V5路径为C:\Users\Michelle\Documents\Maple Inventory System\2025 Maple System Files\2025 SYRUP MANAGEMENT\2025 PURCHASED INVENTORY LOG.xlsm，V6为同目录下的2024版本文件

代码修复方案 #

修复后的代码 #

Sub CopyPasteProducerNames()
    Dim sourceWB As Workbook
    Dim targetWB As Workbook
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim sourceRange As Range
    
    ' 明确引用当前工作簿的Sheet2，避免对象混淆
    Dim currentSheet As Worksheet
    Set currentSheet = ThisWorkbook.Sheets("Sheet2")
    
    ' 修复逻辑判断：用And替代&，同时明确单元格所属工作簿
    If currentSheet.Range("U1").Value = "File found" And currentSheet.Range("U5").Value = 1 Then
        On Error GoTo ErrorHandler ' 捕获文件打开失败等错误
        
        ' 打开上一年度源文件（V6路径）
        Set sourceWB = Workbooks.Open(Filename:=currentSheet.Range("V6").Value)
        Set sourceSheet = sourceWB.Sheets("Sheet2")
        
        ' 确定要复制的生产者名单范围（从A7到最后一行非空单元格）
        Set sourceRange = sourceSheet.Range("A7", sourceSheet.Cells(sourceSheet.Rows.Count, "A").End(xlUp))
        
        ' 打开当前年度目标文件（V5路径，修复引号缺失问题）
        Set targetWB = Workbooks.Open(Filename:=currentSheet.Range("V5").Value)
        Set targetSheet = targetWB.Sheets("Sheet2")
        
        ' 直接粘贴值，避免使用Select/Selection
        sourceRange.Copy
        targetSheet.Range("A7").PasteSpecial Paste:=xlPasteValues
        
        ' 更新标记，避免重复执行
        currentSheet.Range("U5").Value = 2
        
        ' 关闭源文件，不保存（因为只是读取数据）
        sourceWB.Close SaveChanges:=False
        
        Exit Sub ' 正常流程结束
        
ErrorHandler:
        MsgBox "操作出错：" & Err.Description, vbExclamation
        ' 若源文件已打开，关闭它
        If Not sourceWB Is Nothing Then
            sourceWB.Close SaveChanges:=False
        End If
    End If
End Sub

关键修复点 #

• 逻辑判断错误修复：将&替换为And，同时明确所有单元格引用归属当前工作簿的Sheet2，避免跨工作簿对象混淆
• 引号缺失修复：Range(V5)改为Range("V5")，避免把V5当成未定义变量
• 移除Select/Selection：直接定义和操作对象，减少运行错误，提升代码效率
• 添加错误处理：捕获文件打开失败等异常情况，避免系统崩溃，同时自动清理已打开的文件
• 明确对象引用：定义工作簿、工作表变量，彻底避免对象归属模糊的问题
• 添加源文件关闭逻辑：读取数据后关闭源文件，避免残留打开的文件

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