打开Excel时ActiveSheet与ActiveWorkbook为空，触发Object Required错误如何解决

核心原因 #

跨应用调用时未明确指定ActiveSheet/ActiveWorkbook所属的应用实例：
你当前代码运行在Word VBA环境中，未加限定的ActiveSheet、ActiveWorkbook默认指向VBA宿主（Word）的全局属性，而Word本身不存在这两个对象，所以返回空值，抛出「Object Required」错误。

修复要点 #

• 所有调用Excel相关的全局属性，都要绑定到你创建的XLInstanceExcel实例上，避免和Word的全局作用域冲突
• 尽量避免用Activate方法操作工作表，直接绑定工作表对象操作更稳定，也不会干扰用户前台操作
• 原代码中GetObject后直接Quit的逻辑存在风险：如果用户前台有已打开的Excel文件，会被强制关闭，且退出后XLInstance会变为失效对象，建议优化为仅在启动新实例的逻辑下处理

修正后代码 #

Sub CompileReport()
    Dim XLInstance As Object
    Dim XLWorkbook As Object
    Dim TargetSheet As Object
    Dim XLPath As String
    Dim ExcelWasRunning As Boolean

    XLPath = "C:\Users\SaracchiG\OneDrive - AECOM\Documents\M11 Jn7A\GC300 Certificates\" & _
    "Construction Compliance\Certificates Data Project_Name.xlsx"

    On Error Resume Next
    Set XLInstance = GetObject(, "Excel.Application")
    ' 标记Excel是否本来就在运行，避免误关用户已有文件
    ExcelWasRunning = (Err.Number = 0)
    Err.Clear
    On Error GoTo Finally
    
    ' 如果没有运行的Excel实例，就新建
    If Not ExcelWasRunning Then
        Set XLInstance = CreateObject("Excel.Application")
    End If
    
    Set XLWorkbook = XLInstance.Workbooks.Open(XLPath, ReadOnly:=True)
    ' 直接绑定工作表对象，不需要激活即可操作
    Set TargetSheet = XLWorkbook.Worksheets("DB Schedules")
  
    ' 测试功能
    ' 方法1：绑定实例后调用Active属性
    TargetSheet.Activate
    MsgBox XLInstance.ActiveSheet.Name
    MsgBox XLInstance.ActiveWorkbook.Name
    
    ' 方法2：直接用绑定的TargetSheet操作，更推荐
    MsgBox TargetSheet.Name
    MsgBox XLWorkbook.Name
    '后续操作不同工作表的逻辑

Finally:
    XLWorkbook.Close SaveChanges:=False
    ' 只有是我们新建的Excel实例才关闭，避免影响用户本来打开的Excel
    If Not ExcelWasRunning Then
        XLInstance.Quit
    End If
    ' 释放对象
    Set TargetSheet = Nothing
    Set XLWorkbook = Nothing
    Set XLInstance = Nothing
End Sub

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