VB.NET使用ClosedXML生成Excel：移除13位数字单元格绿色三角

问题原因 #

Excel的绿色三角提示是因为单元格内容是数字但以文本格式存储，触发了内置错误检查规则。13位数字本身在Excel的数值精度范围内（支持15位有效数字），但如果从DataTable导入时列类型为文本，就会出现这个提示。

解决方案 #

方案1：将DataTable对应列改为数值类型（推荐）

如果13位数字不需要保留文本格式（比如无需求前导零），可以先修改DataTable的列类型为数值型，让ClosedXML按数值格式写入Excel，从根源避免提示：

' 假设目标列名为"SerialNumber"，请根据实际列名修改
newDt.Columns("SerialNumber").DataType = GetType(Decimal)

' 执行原有导入代码
If newDt.Rows.Count >= 0 Then
    Dim wsColumns = wb.Worksheets.Add(newDt, worksheetname)
    wsColumns.Worksheet.Columns().AdjustToContents()
    wsColumns.Tables.FirstOrDefault().Theme = XLTableTheme.None
    wsColumns.Tables.FirstOrDefault().ShowAutoFilter = False
End If

方案2：关闭对应列的"数字存储为文本"错误检查

如果必须保留文本格式（比如需要保留前导零），可在导入数据后，针对目标列关闭该错误检查提示：

Imports ClosedXML.Excel

' 原有代码逻辑
If newDt.Rows.Count >= 0 Then
    Dim wsColumns = wb.Worksheets.Add(newDt, worksheetname)
    wsColumns.Worksheet.Columns().AdjustToContents()
    wsColumns.Tables.FirstOrDefault().Theme = XLTableTheme.None
    wsColumns.Tables.FirstOrDefault().ShowAutoFilter = False

    ' 示例：处理第3列（可替换为列名，比如Column("C")）
    Dim targetColumn = wsColumns.Worksheet.Column(3)
    ' 遍历列中所有已使用单元格，关闭数字存为文本的错误检查
    For Each cell In targetColumn.CellsUsed()
        cell.SetErrorCheck(XLErrorCheck.NumberStoredAsText, False)
    Next

    ' 若需批量处理所有列，用以下代码替代上述列处理逻辑
    ' For Each col In wsColumns.Worksheet.ColumnsUsed()
    '     For Each cell In col.CellsUsed()
    '         cell.SetErrorCheck(XLErrorCheck.NumberStoredAsText, False)
    '     Next
    ' Next
End If

说明 #

ClosedXML的SetErrorCheck方法可精准控制Excel的错误检查规则，关闭NumberStoredAsText选项后，绿色三角提示会直接消失。

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