Excel 2019中VBA打开未打开工作簿报错及报价号自增需求

报错核心原因 #

原代码中Set wb1 = Workbooks("C:\Quotes\Quote List.xlsx")的写法错误：Workbooks集合只能引用已打开的工作簿，且参数只能是工作簿文件名（不带路径）或索引。要打开未打开的工作簿，必须使用Workbooks.Open()方法。

其他代码问题 #

• ws.Rows.Count中的ws未定义，应改为ws1.Rows.Count（指向目标工作表）
• 获取最后一行报价号的语句错误：ws1.Range(lastrow)无法定位到A列的单元格，需改为ws1.Cells(lastrow, "A")
• 未声明SourcePath、lastrow等变量，建议添加Option Explicit强制变量声明，避免隐式变量导致的逻辑错误
• 未处理工作簿打开失败的情况（如文件不存在），也未在操作完成后关闭目标工作簿（若无需保持打开）

修正后的代码 #

Option Explicit

Private Sub Workbook_Open()
    Dim wb1 As Workbook 'Quote List工作簿
    Dim wb2 As Workbook '当前打开的My Quote工作簿
    Dim ws1 As Worksheet 'Quotes工作表
    Dim ws2 As Worksheet 'Quote工作表
    Dim lastRow As Long 'A列最后一行行号
    Dim quotePath As String 'Quote List文件路径
    
    quotePath = "C:\Quotes\Quote List.xlsx"
    Set wb2 = ThisWorkbook '直接引用当前工作簿，比ActiveWorkbook更可靠
    
    '打开未打开的工作簿，添加错误处理
    On Error Resume Next
    Set wb1 = Workbooks.Open(quotePath)
    On Error GoTo 0
    
    '判断工作簿是否成功打开
    If wb1 Is Nothing Then
        MsgBox "无法打开文件：" & quotePath, vbExclamation
        Exit Sub
    End If
    
    Set ws1 = wb1.Sheets("Quotes")
    Set ws2 = wb2.Sheets("Quote")
    
    '获取A列最后一行有数据的行号
    lastRow = ws1.Cells(ws1.Rows.Count, "A").End(xlUp).Row
    
    '将最后报价号+1写入I1单元格
    ws2.Range("I1").Value = ws1.Cells(lastRow, "A").Value + 1
    
    '关闭Quote List工作簿，不保存（如果不需要修改该文件）
    wb1.Close SaveChanges:=False
    Set wb1 = Nothing
End Sub

关键改动说明 #

1. 使用Workbooks.Open(quotePath)打开未打开的工作簿，替代原错误写法
2. 用ThisWorkbook替代ActiveWorkbook，确保始终引用当前的"My Quote"工作簿（避免切换窗口导致的错误）
3. 添加错误处理，防范文件不存在或无法打开的情况
4. 操作完成后关闭"Quote List"工作簿，避免残留打开的文件
5. 强制变量声明，避免隐式变量错误
6. 修正单元格引用的错误写法，确保正确获取最后一行报价号

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