基于SolidWorks API的VBA实现Excel工作簿打开与对象获取问题

问题说明 #

需求是在SolidWorks的VBA环境中，打开指定Excel工作簿；若该工作簿已打开，则直接获取其对象。但网上多数方案针对Excel内的VBA开发设计，无法适配「Excel进程未启动」的场景。当前找到的实现方法会默认隐藏工作簿，手动取消隐藏虽可行但不符合预期；且执行xlApp.Windows(fileName).Visible = true时，未手动取消隐藏会触发「runtime error: Subscript out of range」的运行时错误。

问题根源 #

1. 原代码中先用GetObject获取已打开的工作簿，随后又调用Workbooks.Open，属于重复操作，逻辑混乱。
2. 当Excel进程未启动时，GetObject会创建一个隐藏的Excel实例，此时工作簿的窗口对象尚未完全初始化，直接通过文件名查找Windows集合元素会因找不到目标而报错。
3. 通过文件名访问Windows集合的可靠性远低于直接通过工作簿对象控制窗口可见性。

修正后的代码 #

Private Type myType
    fileName As String
    folderPath As String
    filePath As String
    app As Excel.Application
    WB As Excel.Workbook
End Type

Private this As myType
    
Private Sub getWorkbook()
    Dim isWorkbookOpen As Boolean
    isWorkbookOpen = False
    
    ' 尝试获取已打开的目标工作簿
    On Error Resume Next
    Set this.WB = GetObject(this.filePath)
    On Error GoTo 0
    
    If Not this.WB Is Nothing Then
        ' 工作簿已打开，直接关联对应的Excel应用
        Set this.app = this.WB.Application
        isWorkbookOpen = True
    Else
        ' 工作簿未打开，新建Excel应用实例
        Set this.app = New Excel.Application
        ' 提前设置应用可见，从根源避免隐藏问题
        this.app.Visible = True
        ' 打开目标工作簿
        Set this.WB = this.app.Workbooks.Open(this.filePath)
    End If
    
    ' 直接通过工作簿窗口对象设置可见性，避免下标越界
    this.WB.Windows(1).Visible = True
    ' 激活工作簿，确保显示在Excel前台
    this.WB.Activate
End Sub

代码要点解释 #

• 异常处理：用On Error Resume Next捕获GetObject的执行异常，防止工作簿未打开时直接报错中断流程。
• 避免重复操作：先判断工作簿是否已打开，已打开则直接复用对象，未打开再新建实例并打开，逻辑清晰无冗余。
• 提前设置可见性：新建Excel实例时立即将Visible设为True，从根源避免工作簿默认隐藏的问题。
• 可靠控制窗口：通过工作簿对象的Windows(1)直接设置可见性，无需依赖文件名查找，彻底避免下标越界错误。
• 激活工作簿：最后调用Activate确保工作簿显示在Excel前台，符合预期操作逻辑。

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