VB.NET通过Excel Interop写入指定单元格时xlwhole未声明如何解决

1. xlWhole未声明错误 #

VB.NET 不会像 VBA 那样默认导入Excel的常量枚举，你需要通过已定义的Excel别名引用对应枚举，正确写法为 Excel.XlLookAt.xlWhole。

2. Cells未声明错误 #

你代码中的Cells没有指定所属的工作表对象，VB.NET 无法自动识别它属于哪个工作表，必须明确关联到已实例化的xlWorkSheet对象；同时你已经将xlWorkSheet赋值为Sheet1对应的工作表实例，不需要再写xlWorksheet("Sheet1")这种重复索引的错误写法。

另外补充注意点：

• Find方法如果没有匹配到结果会返回空值，直接访问其Row属性会触发空引用异常，需要先做空判断
• 操作完Excel后要主动释放COM对象，避免Excel进程残留在后台
• 如果仅需要在第2列查找（和你原VBA逻辑一致），可以把查找范围限定在第2列，提升查找效率

首先如果用到COM对象释放，需要先导入InteropServices命名空间：

Imports System.Runtime.InteropServices
Imports Excel = Microsoft.Office.Interop.Excel

模块代码如下：

Module Automate_Excel
    Public xlApp As Excel.Application = Nothing
    Public xlWorkBook As Excel.Workbook = Nothing
    Public xlWorkSheet As Excel.Worksheet = Nothing
    Sub Excel_FinishProject()
        Try
            xlApp = New Excel.Application
            xlWorkBook = xlApp.Workbooks.Open("G:\100 Databases\Projects Schedule.xlsx")
            xlApp.Visible = True
            xlWorkSheet = xlWorkBook.Worksheets("sheet1")

            ' 限定仅在第2列查找，和原VBA逻辑一致，不需要可以换成xlWorkSheet.Cells.Find
            Dim findResult As Excel.Range = xlWorkSheet.Columns(2).Find("ProjectNumber", LookAt:=Excel.XlLookAt.xlWhole)
            If findResult IsNot Nothing Then
                xlWorkSheet.Cells(findResult.Row, 3).Value = "TEST"
                ' 保存修改，避免关闭时数据丢失
                xlWorkBook.Save()
            End If
        Catch ex As Exception
            ' 可按需自定义异常处理逻辑
            MsgBox("操作异常：" & ex.Message)
        Finally
            ' 释放COM资源，避免Excel后台残留
            If xlWorkSheet IsNot Nothing Then Marshal.ReleaseComObject(xlWorkSheet)
            If xlWorkBook IsNot Nothing Then
                xlWorkBook.Close()
                Marshal.ReleaseComObject(xlWorkBook)
            End If
            If xlApp IsNot Nothing Then
                xlApp.Quit()
                Marshal.ReleaseComObject(xlApp)
            End If
        End Try
    End Sub
End Module

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