我帮你整理了几个不用重装系统就能尝试的排查方向，毕竟你的代码在其他机器能正常运行，说明问题肯定出在本地的Office或Interop环境上：

1. 检查Office版本与Interop组件的兼容性 #

你的代码引用的Microsoft.Office.Interop.Excel版本，需要和本地安装的Excel版本尽量匹配。比如如果编译时用的是Office 2016的PIAs（Primary Interop Assemblies），但本地装的是Office 365，可能会出现兼容性冲突：

• 右键项目->引用，找到Microsoft.Office.Interop.Excel，查看其版本号；
• 对比本地Excel的版本（打开Excel，文件->账户->关于Excel）；
• 如果版本不匹配，尝试安装对应版本的Office PIAs，或者在项目里将Interop引用改为“嵌入互操作类型”（右键引用->属性，设置“嵌入互操作类型”为True），这个选项能减少版本依赖问题。

2. 修复Office安装 #

大部分COM调用崩溃都是因为Office组件损坏，优先尝试修复：

• 打开控制面板->程序和功能，找到你的Microsoft Office套件；
• 点击“更改”，先选“快速修复”，完成后重启电脑再测试程序；
• 如果快速修复没用，再尝试“联机修复”（需要联网，修复更彻底）。

3. 重新注册Excel的COM组件 #

有时候COM组件注册信息损坏会导致调用失败，手动重新注册试试：

• 右键开始菜单，选择“Windows终端（管理员）”或“命令提示符（管理员）”；
• 根据你的Office版本和系统位数，运行对应的注册命令：
  • 64位Office在64位系统：regsvr32.exe "C:\Program Files\Microsoft Office\Root\Office16\EXCEL.EXE"
  • 32位Office在64位系统：regsvr32.exe "C:\Program Files (x86)\Microsoft Office\Root\Office16\EXCEL.EXE"
    （注：Office15对应2013，Office16对应2016/365，根据实际情况修改路径）

4. 禁用Excel的硬件加速 #

部分显卡驱动和Excel的硬件加速功能冲突，会导致COM调用时崩溃：

• 打开本地Excel软件；
• 点击文件->选项->高级，找到“显示”区域；
• 勾选“禁用硬件图形加速”，点击确定后重启Excel，再运行你的测试程序。

5. 彻底清理残留的Office组件 #

卸载VS2015后可能残留了旧版本的Office Interop文件或冲突组件，用微软官方的卸载工具彻底清理：

• 搜索“微软Office卸载支持工具”，下载运行；
• 按照提示彻底移除所有Office相关的文件和注册信息；
• 之后重新安装正版的Office套件，再测试你的程序。

6. 获取更详细的崩溃信息 #

目前只知道在sheet.Cells(1,1)赋值时崩溃，建议补充错误捕获来获取更细节的异常：
修改你的Button_Click事件，添加完整的Try-Catch：

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Try
        Dim xls As New Excel.Application
        Dim book As Excel.Workbook
        Dim sheet As Excel.Worksheet
        xls.Workbooks.Add()
        book = xls.ActiveWorkbook
        sheet = book.ActiveSheet
        sheet.Cells(1, 1) = "Some Text"
        sheet.Cells(1, 2) = "More Text"
        xls.Workbooks.Close()
        xls.Quit()
        releaseObject(sheet)
        releaseObject(book)
        releaseObject(xls)
        MsgBox("Worked", MsgBoxStyle.Information)
    Catch ex As Exception
        Dim errorMsg As String = $"错误信息：{ex.Message}{Environment.NewLine}" &
                                 $"内部错误：{If(ex.InnerException IsNot Nothing, ex.InnerException.Message, "无")}{Environment.NewLine}" &
                                 $"调用栈：{ex.StackTrace}"
        MessageBox.Show(errorMsg, "崩溃详情", MessageBoxButtons.OK, MessageBoxIcon.Error)
    End Try
End Sub

另外也可以打开Windows事件查看器，在“Windows日志->应用程序”里找到崩溃对应的事件日志，里面会有更专业的错误代码和调用栈，帮助精准定位问题。

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