VB.NET读取Excel指定单元格值提示Range无value成员如何解决

• Excel Interop 中Range对象的取值属性为Value（首字母大写），COM互操作场景下会严格匹配成员名称，你代码中写的小写value无法被识别，所以抛出成员缺失异常。
• 未对Find方法的返回值做非空校验：如果指定的ProjectNumber在表格中不存在，Result会为Nothing，直接访问Result.Row会触发空引用异常。
• 空单元格的返回值不是空字符串：未赋值的单元格取值会返回DBNull.Value或者Nothing，直接和""比较会得到错误的判断结果。

' 提前声明Result的类型，避免后期绑定问题
Dim Result As Excel.Range = Nothing
Sub Excel_LoadProjectsSchedule()
    xlApp = New Excel.Application
    xlWorkBook = xlApp.Workbooks.Open("G:\100 Databases\Projects Schedule.xlsx")
    xlApp.Visible = False
    xlWorkSheet = xlApp.Worksheets("sheet1")
    Dim ProjectFinished As Boolean = False

    ' 查找目标行
    Result = xlWorkSheet.Cells.Find(ProjectNumber, LookAt:=Excel.XlLookAt.xlWhole)
    ' 先判断是否找到匹配项
    If Result IsNot Nothing Then
        ' 读取单元格值并转为字符串后判断是否为空
        Dim cellValue As Object = xlWorkSheet.Cells(Result.Row, 3).Value
        ProjectFinished = Not (cellValue Is Nothing OrElse IsDBNull(cellValue) OrElse String.IsNullOrEmpty(cellValue.ToString()))
    End If

    ' 保存和关闭资源
    xlApp.DisplayAlerts = False
    xlWorkBook.Close(SaveChanges:=True)
    xlApp.Quit()
    ' 释放COM对象，避免Excel进程残留后台占用文件
    System.Runtime.InteropServices.Marshal.ReleaseComObject(xlWorkSheet)
    System.Runtime.InteropServices.Marshal.ReleaseComObject(xlWorkBook)
    System.Runtime.InteropServices.Marshal.ReleaseComObject(xlApp)
    xlWorkSheet = Nothing
    xlWorkBook = Nothing
    xlApp = Nothing
End Sub

• 提前声明Result为Excel.Range类型，避免后期绑定导致的属性识别错误。
• 新增了Result非空判断逻辑，避免查找失败时的程序崩溃。
• 兼容了空值、DBNull和空字符串三种空场景的判断，更符合Excel的实际取值逻辑。
• 新增的COM对象释放逻辑为可选推荐项，可解决Excel进程后台残留的常见问题。

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