Excel 2013中VBA导出CSV日期格式错乱问题求助

我完全懂你的痛点——手动导出CSV时日期格式完全正常，用VBA批量导出就搞出英式/美式日期混合的乱子，还得折腾SQL Server上传。这事儿本质是VBA处理工作表复制和SaveAs时，Excel的自动格式转换在区域设置冲突下犯了浑，咱们直接来解决它。

问题根源 #

当你用sht.Copy创建新工作簿时，新工作簿的区域设置并没有完全继承原工作簿的英国格式，而且Excel保存CSV时，会跳过单元格的显示格式，按照自身的日期解析规则自动转换。手动导出时Excel会尊重当前工作表的区域设置，但VBA批量操作时就跳过了这些格式锁定的步骤，才导致部分日期变美式、部分成常规文本的混乱情况。

解决方案1：导出前强制将日期转为文本格式（最简单高效） #

在复制工作表后，先把所有日期列转成文本格式，确保CSV里的日期是纯英式文本，彻底避免Excel自动转换。修改你的VBA代码如下：

Sub exportdata()
    Dim wdir As String
    Dim sht As Worksheet
    Dim newWB As Workbook
    Dim cell As Range
    
    wdir = ThisWorkbook.Path
    Application.DisplayAlerts = False
    Application.ScreenUpdating = False
    
    '导出非Command的工作表
    For Each sht In ThisWorkbook.Sheets
        If sht.Name <> "Command" Then
            Application.StatusBar = "Exporting sheet " & sht.Name
            sht.Copy
            Set newWB = Application.ActiveWorkbook
            
            '遍历所有单元格，把日期转为英式文本格式
            For Each cell In newWB.Sheets(1).UsedRange
                If IsDate(cell.Value) Then
                    cell.NumberFormat = "@" '设置为文本格式
                    cell.Value = Format(cell.Value, "dd/mm/yyyy") '强制输出英式日期
                End If
            Next cell
            
            newWB.SaveAs wdir & "\Generated\" & sht.Name & ".csv", xlCSVWindows
            newWB.Close False
        End If
    Next
    
    Application.StatusBar = ""
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub

解决方案2：直接写入CSV文件（完全控制输出格式） #

如果方案1还是有小问题，那就用FileSystemObject直接读取单元格内容写入CSV，彻底绕开Excel的自动格式转换逻辑：

Sub exportdataToCSV()
    Dim wdir As String
    Dim sht As Worksheet
    Dim fso As Object
    Dim ts As Object
    Dim rng As Range
    Dim row As Range
    Dim cell As Range
    Dim csvLine As String
    
    wdir = ThisWorkbook.Path
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    '先确保Generated文件夹存在
    If Not fso.FolderExists(wdir & "\Generated") Then
        fso.CreateFolder wdir & "\Generated"
    End If
    
    Application.ScreenUpdating = False
    
    For Each sht In ThisWorkbook.Sheets
        If sht.Name <> "Command" Then
            Application.StatusBar = "Exporting sheet " & sht.Name
            '创建UTF-8编码的CSV文件
            Set ts = fso.CreateTextFile(wdir & "\Generated\" & sht.Name & ".csv", True, True)
            
            Set rng = sht.UsedRange
            For Each row In rng.Rows
                csvLine = ""
                For Each cell In row.Cells
                    '处理日期：强制输出英式格式；其他内容转义逗号和双引号
                    If IsDate(cell.Value) Then
                        csvLine = csvLine & """" & Format(cell.Value, "dd/mm/yyyy") & """" & ","
                    Else
                        csvLine = csvLine & """" & Replace(Replace(cell.Value, """", """"""), ",", "") & """" & ","
                    End If
                Next cell
                '去掉行尾多余的逗号
                csvLine = Left(csvLine, Len(csvLine) - 1)
                ts.WriteLine csvLine
            Next row
            
            ts.Close
        End If
    Next
    
    Application.StatusBar = ""
    Application.ScreenUpdating = True
    Set fso = Nothing
End Sub

为啥手动导出没问题？ #

手动导出时，Excel会严格基于当前活动工作表的英国区域设置生成CSV内容；但VBA用sht.Copy创建的新工作簿，默认会调用系统区域设置，再加上Excel批量操作时的日期解析逻辑优先转成美式格式，才导致符合美式规则的日期被识别为日期类型，不符合的就留成文本，最终出现混合格式的问题。

这两个方案都能解决你的问题，方案1简单易上手，方案2适合数据格式复杂的场景，按需选就行。

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