运行VB操作Excel代码时出现System.NullReferenceException错误是什么原因？

System.NullReferenceException 是代码引用了未初始化的对象导致的，你的代码里可能触发空引用的场景如下：

• APP 对象未初始化：代码中直接调用 APP.Workbooks.Open，但未提前创建 Microsoft.Office.Interop.Excel.Application 的实例，导致APP为null。
• 工作簿对象为空：指定的Excel文件路径不存在、文件被占用、无权限访问，导致Workbooks.Open执行失败，workbook变量为null。
• 工作表对象为空：目标工作簿中不存在索引为1的工作表（比如所有工作表都被删除、索引顺序发生变化），导致worksheet变量为null。
• 文本框对象为空：界面上的TextBox1/TextBox2/TextBox3其中一个控件不存在、控件名拼写错误，调用.Text属性时触发空引用。

按以下步骤调整代码即可解决：

1. 先初始化Excel应用实例，调用前判空
2. 提前校验文件是否存在，避免打开失败
3. 工作表获取后增加空校验，优先用工作表名代替索引避免顺序变动导致的问题
4. 文本框取值使用空安全调用，避免控件不存在时报错
5. 增加COM资源释放逻辑，避免Excel后台进程残留

修正后的参考代码：

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    Dim filePath As String = "C:\Users\act08\Copy of Copy of test1.xlsx"
    ' 初始化Excel应用对象
    If APP Is Nothing Then
        APP = New Microsoft.Office.Interop.Excel.Application()
        APP.Visible = False ' 后台运行不显示界面
    End If
    ' 校验文件是否存在
    If Not System.IO.File.Exists(filePath) Then
        MsgBox("目标Excel文件不存在，请检查路径")
        Exit Sub
    End If
    ' 打开工作簿
    workbook = APP.Workbooks.Open(filePath)
    ' 获取工作表 可替换为你实际的工作表名 比如Sheets("Sheet1")
    worksheet = workbook.Sheets.Item(1)
    If worksheet Is Nothing Then
        MsgBox("目标工作表不存在")
        workbook.Close(SaveChanges:=False)
        APP.Quit()
        Exit Sub
    End If
    ' 写入内容 用?做空安全调用
    worksheet.Cells(1, 1).Value = TextBox1?.Text
    worksheet.Cells(1, 2).Value = TextBox2?.Text
    worksheet.Cells(2, 1).Value = TextBox3?.Text
    ' 保存关闭
    workbook.Close(SaveChanges:=True)
    APP.Quit()
    ' 释放COM资源 避免进程残留
    System.Runtime.InteropServices.Marshal.ReleaseComObject(worksheet)
    System.Runtime.InteropServices.Marshal.ReleaseComObject(workbook)
    System.Runtime.InteropServices.Marshal.ReleaseComObject(APP)
    worksheet = Nothing
    workbook = Nothing
    APP = Nothing
End Sub

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