调用应用程序时对象错误：Excel多按钮单实例切换工作表问题

咱们先拆解下你代码里的问题，再给出针对性的修复方案：

原代码的核心问题 #

1. 每次点击强制创建新Excel实例：Main子程序每次执行都会CreateObject("Excel.Application")，不管之前有没有打开过Excel，这会导致重复创建实例，进而触发对象错误。
2. 判断逻辑完全颠倒：你在CreateObject之后判断If objExcel Is Nothing Then，这时候objExcel肯定不为空，导致永远不会执行打开工作簿的代码，逻辑完全走反了。
3. 工作簿路径不完整：代码里的路径被截断成"H:\My Documents\Flowchart to Word\Quality and Environmental ma..."，路径不完整会直接导致打开失败，触发对象错误。

修复后的完整代码 #

' 全局变量，用于保存Excel实例
Public objExcel As Object
' 全局变量，保存目标工作簿（避免重复查找）
Public targetWB As Object

Sub InitExcel()
    On Error Resume Next
    ' 先尝试获取已运行的Excel实例，优先复用避免重复创建
    Set objExcel = GetObject(, "Excel.Application")
    ' 如果没有运行的实例，再创建新的
    If Err.Number <> 0 Then
        Set objExcel = CreateObject("Excel.Application")
        Err.Clear
    End If
    objExcel.Visible = True ' 确保Excel窗口可见
End Sub

Public Sub QE1_Click()
    Dim wbPath As String
    ' 替换成你的完整工作簿路径！！！必须带后缀（.xlsx/.xls等）
    wbPath = "H:\My Documents\Flowchart to Word\Quality and Environmental management.xlsx"
    
    ' 初始化Excel实例（优先复用已有实例）
    Call InitExcel
    
    On Error Resume Next
    ' 尝试获取已打开的目标工作簿
    Set targetWB = objExcel.Workbooks(Filename:=wbPath)
    If Err.Number <> 0 Then
        ' 如果没打开，就打开它
        Set targetWB = objExcel.Workbooks.Open(wbPath)
        Err.Clear
    End If
    
    ' 切换到你需要的工作表，把Sheet1改成实际工作表名称
    targetWB.Worksheets("Sheet1").Activate
    ' 激活Excel窗口，确保用户能直接看到
    objExcel.Activate
End Sub

关键改进点说明 #

• 优先复用已有Excel实例：用GetObject代替直接CreateObject，先找已经打开的Excel进程，找不到再新建实例，彻底避免重复启动Excel。
• 完整路径要求：必须使用带后缀的完整工作簿路径，路径截断是触发对象错误的常见原因。
• 工作簿存在性判断：先检查目标工作簿是否已经打开，打开了就直接切换工作表，没打开再执行打开操作。
• 错误处理：加入On Error Resume Next捕获对象操作时的错误，避免直接抛出「调用应用程序时对象错误」。

多按钮复用技巧 #

如果多个按钮要切换到同一个工作簿的不同工作表，只需要复制QE1_Click的代码，修改最后一行的工作表名称即可，比如：

Public Sub QE2_Click()
    ' 重复初始化和工作簿检查逻辑
    Dim wbPath As String
    wbPath = "H:\My Documents\Flowchart to Word\Quality and Environmental management.xlsx"
    Call InitExcel
    
    On Error Resume Next
    Set targetWB = objExcel.Workbooks(Filename:=wbPath)
    If Err.Number <> 0 Then
        Set targetWB = objExcel.Workbooks.Open(wbPath)
        Err.Clear
    End If
    
    ' 切换到第二个工作表
    targetWB.Worksheets("Sheet2").Activate
    objExcel.Activate
End Sub

内容的提问来源于stack exchange，提问作者S.T