VB.NET创建Excel工作表后无法获取最新工作表问题求助

问题根源 #

你的CreateExcelWorksheet()每次调用都会新建一个独立的Excel应用进程，Book1、Book2、Book3分别属于不同的Excel进程；而GetExcelWorksheet()用Marshal.GetActiveObject("Excel.Application")只会返回系统中最早启动的那个Excel实例，所以总是拿到最早创建的工作簿。

方案1：复用单个Excel实例创建工作簿（推荐） #

这种方式更高效，所有工作簿都在同一个Excel进程中，获取最新工作表的逻辑也更简单。

修改后的创建函数：

Private Function CreateExcelWorksheet() As Excel.Worksheet
    ' 优先获取已有的Excel实例，无则新建
    Dim excel As Excel.Application
    Try
        excel = CType(Marshal.GetActiveObject("Excel.Application"), Excel.Application)
    Catch
        excel = CreateObject("Excel.Application")
        excel.Visible = True
    End Try

    ' 在同一实例中添加新工作簿
    Dim newWorkbook As Excel.Workbook = excel.Workbooks.Add()
    ' 返回新工作簿的首个工作表
    Return newWorkbook.Worksheets(1)
End Function

修改后的获取函数（获取最新创建的工作簿）：

Private Function GetExcelWorksheet() As Excel.Worksheet
    Dim excel As Excel.Application
    Try
        excel = CType(Marshal.GetActiveObject("Excel.Application"), Excel.Application)
    Catch ex As Exception
        MsgBox("No EXCEL Instance Found.")
        Return Nothing
    End Try

    ' Workbooks集合按创建顺序排列，最后一个即为最新创建的工作簿
    If excel.Workbooks.Count > 0 Then
        Dim latestWorkbook As Excel.Workbook = excel.Workbooks(excel.Workbooks.Count)
        Return latestWorkbook.Worksheets(1)
    Else
        Return Nothing
    End If
End Function

方案2：遍历所有Excel实例（多实例场景） #

如果必须让每个工作簿独立运行在不同Excel进程中，需要通过Windows API枚举所有Excel进程，再逐个获取实例并判断创建时间。这种方式实现复杂，仅在特殊场景下使用，优先推荐方案1。

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