VBA中CopyFromRecordset方法致E列前10条数据格式异常问题

使用VBA的CopyFromRecordset方法向Excel工作表写入数据后，E列前10条数据仍显示为日期格式——即使代码中已将该列设置为货币格式，且Excel模板预先就把B、C、E列设为了货币格式。此前B列也出现过相同问题，但添加格式化代码后恢复正常；拆分格式化代码执行也无法解决E列的问题，目前不想通过循环记录的方式修复。

相关代码示例：

xlSheet.Range("A4").CopyFromRecordset rst
rst.Close
xlSheet.Range("B:C,E:E").NumberFormat = "$#,##0.00"

修改为以下代码后结果一致：

xlSheet.Range("A4").CopyFromRecordset rst
rst.Close
xlSheet.Range("B:C").NumberFormat = "$#,##0.00"
xlSheet.Range("E:E").NumberFormat = "$#,##0.00"

• CopyFromRecordset的格式覆盖逻辑：该方法会根据记录集字段的数据类型自动设置单元格格式，若写入的数值恰好匹配Excel的日期序列化规则（比如类似44837这类代表特定日期的数字），Excel会强制将单元格转为日期格式，优先级高于预先设置的列格式。
• 前10条数据的特殊触发：E列前10条数据的数值刚好触发了Excel的自动日期识别机制，而B列数据的数值未触发该机制，因此设置格式后B列正常，E列异常。
• 格式缓存未刷新：Excel的格式渲染存在缓存，即使后续设置了货币格式，部分已被自动识别为日期的单元格可能未及时刷新格式。

方案1：先设置格式再写入数据 #

将格式设置代码放在CopyFromRecordset之前，避免写入时覆盖预设格式：

xlSheet.Range("B:C,E:E").NumberFormat = "$#,##0.00"
xlSheet.Range("A4").CopyFromRecordset rst
rst.Close

方案2：写入后强制刷新单元格值 #

设置格式后，通过重新赋值触发单元格格式刷新：

xlSheet.Range("A4").CopyFromRecordset rst
rst.Close
xlSheet.Range("B:C,E:E").NumberFormat = "$#,##0.00"
' 强制刷新E列值，让格式生效
xlSheet.Range("E:E").Value = xlSheet.Range("E:E").Value

方案3：调整记录集字段类型 #

如果有权限修改数据库查询逻辑，将E列对应的记录集字段设置为明确的数值/货币类型，从源头避免Excel自动识别为日期。

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