Access导出至Excel：日期数字格式设置及VBA代码失效问题问询

我太懂这种郁闷了——明明改了NumberFormat，单元格还是显示成文本，点一下手动转换就好，但代码就是搞不定对吧？核心问题在于：NumberFormat只改显示格式，要是单元格里的内容本质是文本（比如导出时Access把数值存成了文本型），必须先把文本转换成真正的数值/日期类型，格式才能生效。

一、快速解决"转换为数字"的问题（模拟手动操作） #

手动点"转换为数字"其实就是Excel的TextToColumns功能，用代码实现这个逻辑最靠谱，效率也高，不用循环单个单元格：

' 先获取数据最后一行（用End(xlUp)比依赖RecordCount更稳妥，避免RecordCount不准确）
Dim lastRow As Long
lastRow = wks.Cells(wks.Rows.Count, "Z").End(xlUp).Row

' 先设置单元格格式为通用数字
wks.Range("Z2:Z" & lastRow).NumberFormat = "General"
' 调用TextToColumns完成文本转数字，和手动操作完全一致
wks.Range("Z2:Z" & lastRow).TextToColumns _
    Destination:=wks.Range("Z2"), _
    DataType:=xlDelimited, _
    TextQualifier:=xlDoubleQuote, _
    ConsecutiveDelimiter:=False, _
    FieldInfo:=Array(1, xlGeneralFormat) ' 指定第一列按通用格式转换

二、日期格式的设置与转换 #

如果导出的日期也是文本格式，同样可以用TextToColumns配合日期类型参数，同时设置显示格式：

' 比如处理B列的日期，设置为"yyyy-mm-dd"格式
wks.Range("B2:B" & lastRow).NumberFormat = "yyyy-mm-dd"
' 转换文本日期为真正的日期类型（根据你的日期格式选xlYMDFormat/xlMDYFormat）
wks.Range("B2:B" & lastRow).TextToColumns _
    Destination:=wks.Range("B2"), _
    DataType:=xlDelimited, _
    FieldInfo:=Array(1, xlYMDFormat)

三、备选方案：强制值转换（适合小数据量） #

如果数据行数不多，也可以用简单的赋值强制转换文本为数值：

With wks.Range("Z2:Z" & lastRow)
    .NumberFormat = "General"
    .Value = .Value ' 强制将文本内容转为数值
End With

这个方法原理是让Excel重新解析单元格内容，但数据量大的时候会比TextToColumns慢一些，所以优先推荐前者。

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