VB.Net向运行中的Excel实例添加工作簿问题排查

核心问题点 #

1. 进程检测误判：Process.GetProcessesByName("EXCEL")会抓取所有同名进程，包括后台未正常退出的残留僵尸进程——这类进程没有注册COM对象，无法通过Marshal.GetActiveObject获取，但会被进程检测逻辑判定为“存在”。
2. 未处理COM异常：Marshal.GetActiveObject在找不到有效可交互的Excel COM实例时，会直接抛出COMException，而非返回Nothing。原代码的TryCast无法捕获该异常，导致插件崩溃。

修复后的代码 #

Private Function GetExcelWorksheet() As Excel.Worksheet
    Dim excelApp As Excel.Application = Nothing
    Dim targetWorksheet As Excel.Worksheet = Nothing

    ' 尝试获取已运行的Excel COM实例，捕获无实例的异常
    Try
        excelApp = DirectCast(Marshal.GetActiveObject("Excel.Application"), Excel.Application)
    Catch ex As COMException
        ' 无有效Excel实例，直接返回
        Return Nothing
    Catch ex As Exception
        ' 处理其他意外错误
        Return Nothing
    End Try

    If excelApp Is Nothing Then Return Nothing

    ' 创建新工作簿和工作表，同时处理可能的异常
    Try
        excelApp.Visible = True
        Dim newWorkbook As Excel.Workbook = excelApp.Workbooks.Add()
        targetWorksheet = DirectCast(newWorkbook.Worksheets(1), Excel.Worksheet)
    Catch ex As Exception
        ' 出错时释放COM资源，避免进程残留
        Marshal.ReleaseComObject(excelApp)
        Return Nothing
    End Try

    Return targetWorksheet
End Function

额外优化建议 #

• 清理后台残留进程：如果频繁出现僵尸Excel进程，可以在插件启动时清理无窗口的后台进程：

  For Each proc As Process In Process.GetProcessesByName("EXCEL")
      ' 结束无主窗口的后台Excel进程
      If proc.MainWindowHandle = IntPtr.Zero Then
          proc.Kill()
      End If
  Next
  

• 避免COM资源泄漏：使用完Excel对象后，务必调用Marshal.ReleaseComObject释放资源，防止Excel进程长期驻留后台。
• 放弃进程数量判断：直接通过Marshal.GetActiveObject+异常处理的方式检测有效实例，比进程计数更可靠——进程存在不代表能通过COM交互。

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