同时装了WPS和OFFICE，怎么样才能用VB.NET 精准打开office。

Question

我同时装了office和WPS，被WPS篡改系统，但我需要继续保留WPS，现在用VB.NET用process.start的方法打开excel文件，请修改正确。不要手改设置excel的打开默认应用。
我的代码：

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim filePath As String = "C:\Users\QianWeihua\Desktop\新建文件夹 (2)\工作簿1.xlsm"
    Dim excelApp As Excel.Application = GetExcelApp()
    excelApp.Visible = True
    Dim workbook As Excel.Workbook = excelApp.Workbooks.Open(filePath)
End Sub

Public Function GetExcelApp() As Excel.Application
    Dim ls1 As New List(Of Int16) From {12, 14, 15, 16}
    Dim ls2 As New List(Of String) From {"Program Files", "Program Files (x86)"}
    For Each s As String In ls2
        For Each i As Int16 In ls1
            Dim excelPath As String = Path.Combine("C:\", s, "Microsoft Office\root\Office" & i.ToString(), "EXCEL.EXE")
            If File.Exists(excelPath) Then
                Dim xl As Object = Process.Start(excelPath)
                Dim excelApp As Excel.Application = TryCast(xl, Excel.Application)
                Return excelApp
            End If
        Next
    Next
    Return Nothing
End Function

Answer 1

下午好🌅🌅🌅
本答案参考通义千问

在同时安装 WPS 和 Microsoft Office 的情况下，系统可能会将 .xls、.xlsx、.xlsm 等文件类型的默认程序设置为 WPS。然而，你希望不修改默认程序设置的前提下，使用 VB.NET 通过 Process.Start() 精准打开 Microsoft Excel。

---

✅ 问题分析

你当前的代码尝试通过指定路径启动 Excel，但可能由于以下原因导致失败：

1. WPS 可能篡改了注册表或文件关联，即使你指定了路径，系统可能仍然尝试用 WPS 打开。
2. 未正确引用 COM 组件：如果你使用的是 Excel.Application 类型，需要确保项目中已正确引用 Microsoft Excel Object Library（即 Microsoft.Office.Interop.Excel）。
3. 进程启动后无法获取 Excel 应用程序对象：Process.Start(excelPath) 返回的是一个 Process 对象，而不是 Excel.Application 对象。

---

✅ 解决方案

1. 正确引用 Microsoft Office Interop 库

• 在 VB.NET 项目中，右键点击“引用” -> “添加引用” -> “COM” -> 搜索并选择 Microsoft Excel XX.X Object Library（如 Excel 16.0）。
• 这样可以使用 Excel.Application 类型，实现对 Excel 的控制。

注意： 如果没有正确引用该库，代码中的 Excel.Application 将无法识别。

---

2. 使用 Process.Start 启动 Excel 并返回 Excel.Application 实例

你不能直接通过 Process.Start 获取 Excel.Application，但可以通过 COM 自动化 来创建 Excel 实例，或者使用 Process 启动 Excel 后，再通过 GetObject 获取其实例。

以下是修改后的代码：

Imports System.Diagnostics
Imports Microsoft.Office.Interop

Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim filePath As String = "C:\Users\QianWeihua\Desktop\新建文件夹 (2)\工作簿1.xlsm"
        Dim excelApp As Excel.Application = GetExcelApp()

        If excelApp IsNot Nothing Then
            excelApp.Visible = True
            Dim workbook As Excel.Workbook = excelApp.Workbooks.Open(filePath)
        Else
            MessageBox.Show("无法找到 Excel 安装路径")
        End If
    End Sub

    Public Function GetExcelApp() As Excel.Application
        ' 尝试查找 Excel 的安装路径
        Dim officePaths As List(Of String) = New List(Of String) From {
            "C:\Program Files\Microsoft Office\root\Office16\EXCEL.EXE",
            "C:\Program Files (x86)\Microsoft Office\root\Office16\EXCEL.EXE"
        }

        For Each path As String In officePaths
            If File.Exists(path) Then
                Try
                    ' 启动 Excel
                    Dim process As Process = Process.Start(path)
                    ' 获取 Excel 应用程序实例（通过 COM）
                    Dim excelApp As Excel.Application = CType(GetObject(Nothing, "Excel.Application"), Excel.Application)
                    Return excelApp
                Catch ex As Exception
                    ' 如果无法获取 Excel 实例，尝试重新启动
                    process.Kill()
                    Continue For
                End Try
            End If
        Next

        Return Nothing
    End Function

End Class

---

✅ 关键点说明

1. 使用 GetObject 而不是 Process.Start 获取 Excel 实例：

   • Process.Start(path) 会启动 Excel，但不会返回 Excel.Application 对象。
   • GetObject(Nothing, "Excel.Application") 会尝试获取当前运行的 Excel 实例，如果没有则抛出异常，这时你可以通过 Process.Start 启动一个新的 Excel 实例。

2. 避免依赖默认程序关联：

   • 通过指定路径启动 Excel，而不是依赖系统默认程序。

3. 处理异常和清理：

   • 如果启动失败，确保 Process 被正确关闭，避免资源泄漏。

---

✅ 建议

• 如果你需要频繁操作 Excel 文件，推荐使用 Interop 库（如 Microsoft.Office.Interop.Excel），这样可以更方便地控制 Excel。
• 如果你不希望启动 Excel 程序本身，而是仅读取文件内容，可以考虑使用 EPPlus 或 ClosedXML 等第三方库。

---

✅ 总结

| 步骤 | 描述 | |------|------| | 1 | 引用 Microsoft.Office.Interop.Excel 库 | | 2 | 使用 GetObject("Excel.Application") 获取 Excel 实例 | | 3 | 指定 Excel 的安装路径启动程序，避免默认程序干扰 | | 4 | 处理异常，确保资源释放 |

---

如有其他需求（如只读取文件、导出数据等），也可以进一步优化代码逻辑。欢迎继续提问！