针对你提出的两个Excel相关的VB.NET处理需求，我整理了分场景的实用解决方案，帮你搞定这些问题：

1. 处理其他程序生成的Excel文件数据 #

这里分两种常见情况来处理：

• 情况一：Excel文件已保存到本地磁盘
  如果其他程序已经把数据导出并保存成了标准Excel文件（比如.xlsx或.xlsm），你有两种主流处理方式：
  • 用Excel Interop（依赖本地Excel客户端）：这是你已经熟悉的方式，注意做好COM对象的释放，避免残留Excel进程：

    Dim xlApp As New Microsoft.Office.Interop.Excel.Application
    Dim xlWorkBook As Microsoft.Office.Interop.Excel.Workbook
    Try
        xlWorkBook = xlApp.Workbooks.Open("C:\Path\To\OtherApp_Output.xlsx", Password:="yourpassword")
        ' 这里写你的数据处理逻辑，比如读取工作表内容
        Dim xlWorkSheet As Microsoft.Office.Interop.Excel.Worksheet = xlWorkBook.Sheets(1)
        Dim sampleValue As Object = xlWorkSheet.Range("A1").Value
        Console.WriteLine($"读取到A1单元格值：{sampleValue}")
    Catch ex As Exception
        Console.WriteLine($"处理出错：{ex.Message}")
    Finally
        ' 务必释放资源，防止Excel进程残留
        If xlWorkBook IsNot Nothing Then
            xlWorkBook.Close(SaveChanges:=False)
            System.Runtime.InteropServices.Marshal.ReleaseComObject(xlWorkBook)
        End If
        If xlApp IsNot Nothing Then
            xlApp.Quit()
            System.Runtime.InteropServices.Marshal.ReleaseComObject(xlApp)
        End If
    End Try
    

  • 用第三方库（无需安装Excel）：比如EPPlus、NPOI这类开源库，适合不想依赖本地Excel的场景，以EPPlus为例：

    Using package As New ExcelPackage(New FileInfo("C:\Path\To\OtherApp_Output.xlsx"))
        Dim worksheet As ExcelWorksheet = package.Workbook.Worksheets(0)
        Dim sampleValue As Object = worksheet.Cells(1, 1).Value
        Console.WriteLine($"读取到A1单元格值：{sampleValue}")
    End Using
    

• 情况二：Excel数据仅在内存中（未保存到磁盘）
  这种情况就是你第二个问题要解决的场景——操作其他程序打开的未保存Excel实例，下面详细说明实现方法。

2. 用VB.NET保存其他程序打开的未保存Excel实例 #

要处理其他程序正在使用、还没保存到磁盘的Excel实例，核心是找到运行中的Excel进程对应的Application对象，然后定位到目标工作簿进行保存。

具体实现代码： #

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

Public Sub SaveUnsavedTargetExcelWorkbook()
    Dim targetExcelApp As Application = Nothing
    Try
        ' 遍历系统中所有正在运行的Excel进程
        For Each excelProc As Process In Process.GetProcessesByName("EXCEL")
            Try
                ' 从进程获取对应的Excel Application COM对象
                targetExcelApp = Marshal.GetActiveObject("Excel.Application")
                ' 遍历该Excel实例下的所有工作簿
                For Each workbook As Workbook In targetExcelApp.Workbooks
                    ' 匹配目标工作簿——注意未保存的工作簿默认名称是Book1、Book2，没有扩展名
                    If workbook.Name.Equals("Book1", StringComparison.OrdinalIgnoreCase) Then
                        Console.WriteLine($"找到目标未保存工作簿：{workbook.Name}")
                        ' 保存到指定路径，你可以自定义保存路径和文件名
                        workbook.SaveAs("C:\DataBaseexcel\Saved_Book1.xlsx")
                        Console.WriteLine("工作簿已成功保存到指定路径！")
                        ' 找到目标后直接退出，避免处理其他无关实例
                        Exit Sub
                    End If
                Next
            Catch ex As Exception
                ' 跳过无法访问的进程（比如权限不足、进程已被关闭）
                Console.WriteLine($"无法访问Excel进程 {excelProc.Id}：{ex.Message}")
            End Try
        Next
        Console.WriteLine("未找到目标未保存的Excel工作簿实例")
    Catch ex As Exception
        Console.WriteLine($"操作过程出错：{ex.Message}")
    Finally
        ' 重点：不要调用targetExcelApp.Quit()！这会关闭其他程序正在使用的Excel实例
        If targetExcelApp IsNot Nothing Then
            Marshal.ReleaseComObject(targetExcelApp)
        End If
    End Try
End Sub

关键注意事项： #

• 绝对不要调用xlApp.Quit()：这个Excel实例属于其他程序，强行关闭会导致对方程序数据丢失或报错，只需要释放COM对象即可。
• 工作簿名称匹配：未保存的工作簿默认名称是Book1、Book2这类，没有.xlsx扩展名，匹配时要注意不要加后缀。
• 权限问题：如果目标Excel进程是由其他用户启动的，你的程序需要有足够的权限才能访问，否则会抛出权限异常。
• COM对象释放：务必释放获取到的Excel相关对象，避免内存泄漏和残留资源。

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