向Excel写入字符串时出现Decimal溢出错误求助

问题背景 #

我开发了一个从SQL查询获取数据并输出至Excel的程序，原代码直接赋值：

myWkBook.Sheets(Row.Item("intTypeSort")).Cells(4, j) = Row.Item("strDescription")

当前变量值：

J = 2
Row.Item("intTypeSort") = 1
Row.Item("strDescription") = "Missing NiNO (TPR)"

运行时抛出错误：

HResult=0x80131516 Message=Value was either too large or too small for a Decimal.

SQL数据库中strDescription是字符串类型，但错误提示Decimal值溢出。使用的是Excel 365企业版2406（build17726.20206）。

按建议拆分变量后代码如下，问题仍未解决：

Dim intsheetindex As Integer
Dim stroutputitem As String
intsheetindex = Row.Item("intTypeSort")
stroutputitem = Row.Item("strDescription")
myWkBook.Sheets(intsheetindex).Cells(4, j) = stroutputitem

修改后变量值：

j = 2
intsheetindex = 1
stroutputitem = "Missing NiNO (TPR)"

可能原因及解决方案 #

1. Excel单元格格式强制转换问题 #

Excel的Cells赋值时会自动推断数据类型，若目标单元格原有格式为Decimal/数值型，即使传入字符串，也可能触发类型转换异常。
解决方法：

• 显式设置单元格为文本格式后赋值：

With myWkBook.Sheets(intsheetindex).Cells(4, j)
    .NumberFormat = "@" ' 设置为文本格式
    .Value = stroutputitem
End With

• 或在字符串前加单引号，强制Excel识别为文本：

myWkBook.Sheets(intsheetindex).Cells(4, j) = "'" & stroutputitem

2. DataRow返回值类型异常 #

即使SQL字段是字符串，Row.Item("strDescription")可能未返回String类型（比如数据库存储类型兼容但读取时映射异常，或存在DBNull值）。
解决方法：

• 显式转换为字符串，同时处理空值情况：

stroutputitem = If(Row.IsNull("strDescription"), "", CStr(Row.Item("strDescription")))

3. Excel Interop库的类型转换BUG #

部分Excel版本的Interop库在处理含特殊符号的字符串时，可能误判为数值并尝试转换，触发Decimal溢出。
解决方法：

• 使用Value2替代Value，跳过自动类型转换：

myWkBook.Sheets(intsheetindex).Cells(4, j).Value2 = stroutputitem

4. 目标单元格的隐性冲突 #

确认intsheetindex=1对应的工作表存在，且Cells(4,2)（B4单元格）未设置数据验证、条件格式或关联其他单元格导致类型冲突。
验证方法：

• 先写入简单字符串（如"test"）到目标单元格，排查是否为单元格本身问题。

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