VBA如何打开新Excel实例 规避Excel未运行时的ActiveX组件报错

• 你代码中GetObject(, "Excel.Application")的作用是获取当前系统已经运行的Excel进程实例，当没有Excel处于启动状态时，该方法就会抛出「ActiveX Component can't create object」报错
• 你代码里的Dim myXL As New Excel.Application已经实现了新建Excel实例的功能，后续再调用GetObject属于逻辑冗余，反而会覆盖你已经创建好的实例

调整逻辑为先尝试捕获已运行的Excel实例，捕获失败就自动新建实例，修正后代码如下：

Sub Test()
    Dim myXL As Excel.Application
    Dim wb As Excel.Workbook
    On Error Resume Next
    ' 优先尝试获取已运行的Excel实例
    Set myXL = GetObject(, "Excel.Application")
    ' 如果获取失败（说明无运行的Excel），则新建实例
    If Err.Number <> 0 Then
        Set myXL = New Excel.Application
        Err.Clear
    End If
    On Error GoTo 0 ' 恢复正常错误抛出
    
    ' 打开目标工作簿
    Set wb = myXL.Workbooks.Open("MyPath\MyXL.xlsx")
    
    ' 此处填写你需要执行的业务逻辑
    ' ------------------------------
    ' 示例：需要显示Excel窗口的话可取消下一行注释
    ' myXL.Visible = True
    
    ' 操作完成后务必释放对象，避免Excel进程后台驻留
    ' wb.Close SaveChanges:=True ' 根据自身需求设置是否保存修改
    ' Set wb = Nothing
    ' myXL.Quit
    ' Set myXL = Nothing
End Sub

• 运行代码前需要先在VBA编辑器的「工具-引用」列表中勾选Microsoft Excel XX.X Object Library，否则会报「用户定义类型未定义」错误
• 所有Excel操作完成后必须按注释提示手动释放相关对象，否则会有隐藏的Excel进程残留在任务管理器中占用系统资源
• 如果不需要让用户看到Excel操作过程，可以不用设置myXL.Visible属性，全程静默后台运行即可

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