VB.Net循环向Label写入Excel内容时触发空引用异常的问题

问题背景 #

作为VB.Net新手，尝试将Excel单元格内容显示在窗体Label控件中。使用TextBox时循环赋值可正常运行，但替换为Label后触发空引用异常，单独给单个Label赋值却能正常工作。

正常运行的TextBox实现代码 #

Imports System.Reflection
Imports Excel = Microsoft.Office.Interop.Excel   

Public Class Form1

    Dim APP As New Excel.Application
    Dim worksheet As Excel.Worksheet
    Dim workbook As Excel.Workbook
    Dim excelfilepath As String = AppDomain.CurrentDomain.BaseDirectory
    Dim n As Integer = 0

    Private Sub Form7_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        workbook = APP.Workbooks.Open(excelfilepath & "mydata.xlsx")
        worksheet = workbook.Worksheets("sheet1")
        APP.Visible = False

        For n = 1 To 10
            Me.Controls("textbox" & n).Text = DirectCast(worksheet.Cells(1, n), Excel.Range).Value.ToString
        Next
    End Sub
End Class

触发异常的Label代码 #

将循环内的TextBox替换为Label后，代码片段如下：

Me.Controls("label" & n).Text = DirectCast(worksheet.Cells(1, n - 1), Excel.Range).Value.ToString

此时触发未处理异常“对象引用未设置为对象实例”，但单独执行Me.Controls("Label16").Text = ...却能正常运行。

错误原因分析 #

• 控件名称大小写不匹配：VB.Net的控件名称区分大小写，若窗体中Label的实际名称是Label1（首字母大写L），但代码中用了小写的label，Me.Controls("label" & n)会找不到控件并返回Nothing，赋值时触发空引用。而TextBox能正常运行，大概率是代码中的名称和控件实际名称大小写一致。
• 控件嵌套在容器中：如果Label不是直接放在窗体的Controls集合里，而是嵌套在Panel、GroupBox等容器控件中，Me.Controls("label" & n)无法定位到目标Label，返回Nothing。TextBox可能直接放在窗体上，因此能被正常找到。
• 循环范围与控件数量不匹配：循环是n = 1 To 10，但如果窗体中不存在label1到label10中的某一个（比如漏建了某个Label，或名称后缀不连续），Me.Controls("label" & n)会返回Nothing。
• Excel单元格值为空：循环中n-1可能指向空值单元格，DirectCast(worksheet.Cells(1, n - 1), Excel.Range).Value返回Nothing，调用.ToString()时触发异常。单独赋值Label16时对应的单元格不为空，因此无问题。

修复建议 #

1. 统一控件名称大小写：查看窗体设计器中Label的Name属性，将代码中的"label" & n改为与实际名称一致的写法（比如"Label" & n）。
2. 处理控件嵌套情况：若Label在容器中，需遍历容器的Controls集合查找，或直接使用设计器生成的控件变量（如Label1.Text = ...）。
3. 验证循环范围内的控件存在性：确保n=1到10对应的所有Label都已创建，名称后缀连续且正确。
4. 添加空值判断：避免Excel空单元格引发异常，修改代码如下：

   Dim cellRange = DirectCast(worksheet.Cells(1, n - 1), Excel.Range)
   Dim cellText = If(cellRange.Value IsNot Nothing, cellRange.Value.ToString(), "")
   Me.Controls("Label" & n).Text = cellText
   

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