VBA打开工作簿时日期显示异常问题求助

这个问题的核心是：Excel手动打开CSV时会遵循系统区域的日期格式（比如dd/mm/yyyy）解析内容，但VBA直接调用Open方法打开CSV时，默认会用美式日期规则（mm/dd/yyyy）自动识别日期，导致日数值小于12的内容被错误转成月份。

下面给几个靠谱的解决方法：

方法1：用OpenText指定日期解析格式 #

直接用OpenText代替普通的Open，手动指定日期列的解析规则，从根本上避免自动识别错误。

示例代码（假设日期在第3列，根据实际列数调整）：

Workbooks.OpenText _
    Filename:="C:\路径\你的文件.csv", _
    DataType:=xlDelimited, _
    Comma:=True, ' CSV是逗号分隔，如果是其他分隔符改这里，比如Tab:=True
    FieldInfo:=Array(Array(3, xlDMYFormat)) ' 第3列按日/月/年解析

• FieldInfo参数里的第一个数字是列序号（从1开始），第二个数字xlDMYFormat表示按dd/mm/yyyy解析，对应还有xlMDYFormat（美式）、xlYMDFormat等。
• 如果有多列需要指定格式，继续在Array里加元素，比如Array(Array(2, xlTextFormat), Array(3, xlDMYFormat))表示第2列按文本，第3列按日/月/年。

方法2：先按文本导入CSV，再转换日期 #

如果不确定日期列位置，或者担心其他列被错误解析，可以先把整个CSV按文本格式导入，再手动转换日期列的格式。

示例代码：

Dim importWs As Worksheet
Set importWs = ThisWorkbook.Sheets.Add ' 新建工作表存导入的文本

' 用QueryTable导入CSV为纯文本
With importWs.QueryTables.Add(Connection:="TEXT;" & "C:\路径\你的文件.csv", Destination:=importWs.Range("A1"))
    .TextFileParseType = xlDelimited
    .TextFileCommaDelimiter = True
    ' 把所有列设置为文本格式，替换成你实际的列数
    .TextFileColumnDataTypes = Array(xlTextFormat, xlTextFormat, xlTextFormat, xlTextFormat)
    .Refresh
    .Delete ' 导入后删除QueryTable对象
End With

' 转换第3列的文本日期为正确格式（假设日期是dd/mm/yyyy的字符串）
With importWs.Columns(3)
    .NumberFormat = "dd/mm/yyyy"
    ' 拆分字符串拼接成Excel能识别的年/月/日格式，再转日期
    .Value = importWs.Evaluate("DATEVALUE(RIGHT(" & .Address & ",4)&""/""&MID(" & .Address & ",4,2)&""/""&LEFT(" & .Address & ",2))")
End With

这种方法完全避免了Excel的自动解析，适合格式复杂的CSV文件。

方法3：临时修改VBA区域设置（不推荐） #

可以临时把Excel的区域设置改成用dd/mm/yyyy的地区，打开CSV后再恢复。但这个方法可能影响其他依赖区域的操作，谨慎使用：

Dim originalLocale As Long
originalLocale = Application.International(xlCountrySetting)
Application.International(xlCountrySetting) = 3081 ' 澳大利亚区域，默认dd/mm/yyyy

' 打开CSV文件
Workbooks.Open "C:\路径\你的文件.csv"

' 恢复原始区域设置
Application.International(xlCountrySetting) = originalLocale

关键提醒 #

不要提前设置列格式再粘贴——因为Excel在打开CSV时已经完成了自动解析，之后改格式只是改变显示，底层的日期值已经错了，所以必须在打开/导入阶段就指定正确的解析规则。

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