Workbook_Open触发“range of object workbook”错误求助

问题根源 #

错误核心是未明确限定Cells和Range的父对象。当有其他工作簿打开时，未加限定的Cells/Range会默认指向当前活动工作簿的活动工作表，而非你通过With语句指定的目标工作表，导致引用对象不匹配触发错误。

你给出的错误代码段中：

.Range(Cells(1, 1), Cells(lastrow, 2)).Sort Key1:=Range("A1"), _
        Order1:=xlAscending, _
        Header:=xlYes

这里的Cells(1,1)、Cells(lastrow,2)和Range("A1")都没有通过.绑定到wsSheet，当其他工作簿处于活动状态时，这些对象会指向活动工作表，和外层.Range的父对象wsSheet冲突，引发错误。

此外，With exwb块中的代码也存在同样的未限定问题，会在多工作簿场景下隐藏风险。

修正后的完整代码 #

Option Explicit

Private Sub Workbook_Open()

Dim lastrow As Integer
Dim i As Integer
Dim orig As String
Dim v As Variant
Dim z As Variant
Dim wbBook As Workbook
Dim wsSheet As Worksheet
Dim exApp As Excel.Application
Dim exwb As Excel.Workbook

Application.EnableEvents = True
'On Error GoTo Exitsub

Set wbBook = Workbooks.Open("link/SHELF LIFE.xlsm")
Set wsSheet = wbBook.Sheets("Shelf Life Data")

' 修正：用新创建的Excel实例打开工作簿，避免和当前实例混淆
Set exApp = CreateObject("Excel.Application")
Set exwb = exApp.Workbooks.Open("link/stability.xlsm")
    
With exwb.Sheets("SINCE 170522") ' 修正：直接绑定目标工作表，简化层级
    lastrow = .Cells(.Rows.Count, "L").End(xlUp).Row ' 修正：Rows.Count前加.，限定到当前工作表
    v = .Range(.Cells(4, 12), .Cells(lastrow, 12)).Value ' 修正：Cells前加.，绑定到当前With的工作表
    z = .Range(.Cells(4, 16), .Cells(lastrow, 16)).Value ' 修正：同上
End With
exwb.Close SaveChanges:=False ' 修正：明确关闭新实例中的工作簿
exApp.Quit ' 修正：退出新创建的Excel实例，避免后台残留进程
Set exwb = Nothing
Set exApp = Nothing

With wsSheet
    .Range("A2").Resize(UBound(v, 1), 1).Value = v
    .Range("B2").Resize(UBound(z, 1), 1).Value = z
    lastrow = .Cells(.Rows.Count, "A").End(xlUp).Row ' 修正：Rows.Count前加.
    .Range(.Cells(1, 1), .Cells(lastrow, 2)).Sort Key1:=.Range("A1"), _ ' 修正：Cells和Range前加.，绑定到wsSheet
        Order1:=xlAscending, _
        Header:=xlYes
    For i = lastrow To 2 Step -1
        If .Cells(i, 1).Value = .Cells(i - 1, 1).Value Then
            .Rows(i).EntireRow.Delete
        End If
    Next i
End With

Exitsub:
    ' 清理对象，避免内存泄漏
    Set wsSheet = Nothing
    Set wbBook = Nothing
End Sub

关键注意事项 #

• 所有Range、Cells、Rows、Columns等对象，必须明确指定父对象（工作表/工作簿），绝对避免依赖活动对象
• 当创建新的Excel实例（CreateObject("Excel.Application")）时，必须使用该实例的对象打开工作簿，避免和当前Excel实例的工作簿混淆
• 操作完成后及时关闭新实例并释放对象，避免后台残留Excel进程

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