VB.NET写入Excel单元格时提示Range类型找不到Address成员如何解决

错误原因 #

• 类型绑定失败：默认情况下xlWorkSheet.Cells返回的是Object类型，项目未开启显式类型转换或者Excel互操作程序集引用异常时，运行时无法正确识别Object对象实际为Range类型，找不到对应的Address成员。
• 额外逻辑错误：你代码中的列计数逻辑ColCntr += ColCntr + 2存在笔误，实际效果是列数每次翻倍再加2，不是预期的每次加2，后续会引发列索引越界问题。

修复方案 #

方案1（推荐）：省略取地址步骤，直接给单元格赋值 #

你完全不需要额外获取单元格的A1格式地址再赋值，直接操作单元格对象即可，规避Address属性调用的问题：

Dim RowCntr As Integer = 2
Dim ColCntr As Integer = 1

' 直接给目标单元格赋值，无需转换地址
xlWorkSheet.Cells(RowCntr, ColCntr).Value = Reader.GetValue(0).ToString()
' 修正列计数逻辑
ColCntr += 2

方案2：显式转换Range类型后调用Address属性 #

如果确实需要获取单元格地址做其他处理，先把返回的Object对象显式转换为Range类型再调用属性：

Imports Microsoft.Office.Interop.Excel

' ......其他代码......
Dim RowCntr As Integer = 2
Dim ColCntr As Integer = 1

' 先显式转换为Range类型
Dim targetCell As Range = CType(xlWorkSheet.Cells(RowCntr, ColCntr), Range)
Dim CellStart As String = targetCell.Address(RowAbsolute:=False, ColumnAbsolute:=False)
xlWorkSheet.Range(CellStart).Value = Reader.GetValue(0).ToString()
ColCntr += 2

额外检查项 #

• 确认项目已正确引用对应版本的Microsoft.Office.Interop.Excel程序集
• 开启项目的Option Strict选项，提前发现隐式类型转换的问题

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