.NET 8.0.2环境下VB.NET如何获取已打开Excel文件的句柄？

我太懂你折腾好几个小时的崩溃感了！在.NET 8.0.2里，确实因为Marshal类的重构，原来常用的GetActiveObject方法被移除了，导致之前的老办法不管用，咱们一步步来搞定这个问题。

首先说你遇到的两个核心问题：

• 用GetObject(, "Excel.Application")时，有时候Excel的实例识别会出问题，导致它自动新建一个实例，自然找不到已经打开的工作簿
• Marshal.GetActiveObject在.NET 8及以后版本里确实不存在了，得自己实现一个替代方法

下面给你一套可行的VB.NET方案，核心是自己封装一个获取活跃COM对象的方法，对应你看到的C#版Marshal2类的思路：

首先，添加必要的引用和导入：

Imports System
Imports System.Runtime.InteropServices
Imports Microsoft.Office.Interop.Excel

然后封装获取活跃COM对象的工具类：

Public Class MarshalHelper
    <DllImport("ole32.dll", PreserveSig:=False)>
    Private Shared Sub GetActiveObject(<MarshalAs(UnmanagedType.LPStr)> ByVal rclsid As String, <MarshalAs(UnmanagedType.IUnknown)> ByRef ppunk As Object)
    End Sub

    Public Shared Function GetActiveObject(progId As String) As Object
        Dim obj As Object = Nothing
        Try
            GetActiveObject(progId, obj)
        Catch ex As Exception
            ' 捕获找不到活跃对象的异常，比如Excel没打开
            Throw New Exception("无法获取活跃的COM对象：" & ex.Message)
        End Try
        Return obj
    End Function
End Class

接下来就可以用这个方法来获取已经打开的Excel实例和工作簿了：

Dim appExcel As Application = Nothing
Dim targetWorkbook As Workbook = Nothing

Try
    ' 获取已经运行的Excel实例
    appExcel = CType(MarshalHelper.GetActiveObject("Excel.Application"), Application)
    
    ' 获取已打开的目标工作簿，注意文件名要和Excel窗口标题一致（不含路径，除非你打开的时候标题显示路径）
    targetWorkbook = appExcel.Workbooks("filename.xlsx")
    
    ' 这里就可以操作你的工作簿了，比如输出工作表数量
    Console.WriteLine($"找到已打开的工作簿，包含{targetWorkbook.Worksheets.Count}个工作表")
Catch ex As Exception
    Console.WriteLine($"出错了：{ex.Message}")
Finally
    ' 记得释放COM对象，避免内存泄漏
    If targetWorkbook IsNot Nothing Then
        Marshal.ReleaseComObject(targetWorkbook)
    End If
    If appExcel IsNot Nothing Then
        Marshal.ReleaseComObject(appExcel)
    End If
End Try

这里要注意几个关键点：

• 文件名要和Excel顶部显示的标题完全一致，比如如果用户打开的是“文档1.xlsx”，就不能写“文档1”或者带路径的名字
• 一定要加异常处理，比如如果Excel根本没打开，或者目标文件没打开，都会抛出异常，提前捕获可以避免程序崩溃
• 使用完COM对象后一定要释放，不然可能会导致Excel进程在后台残留

备注：内容来源于stack exchange，提问作者David Clement