vba打开csv文件混乱的日期格式

Question

我正在使用来自foo.xlsm 文件的vba，打开bar.csv 文件，然后将其复制到foo.xlsm 文件中。然而，令人惊讶的是，它会弄乱日期格式，有时识别为mm/dd/yyyy，有时识别为dd/mm/yyyy。

csv 文件有这样一行：

"USD/MYR","TRF:1234","20/04/2017","01/06/2017","11/09/2017","01/06/2017"

，所以所有日期都是dd/mm/yyyy 格式。

如果我手动打开bar.csv 文件，4 个日期会正确显示，如

20/4/2017   1/6/2017    11/9/2017   1/6/2017

但是，如果从foo.xlsm使用vba打开bar.csv文件，结果是

20/04/2017  6/1/2017    9/11/2017   6/1/2017

，因此后来复制到 foo.xlsm 错误的日期。

似乎 excel 试图首先将日期解释为 mm/dd/yyyy，只有当这不起作用时，它才会将其读取为 dd/mm/yyyy。

vba代码是这样的：

Sub import_via_excel(source_file As String, source_sheet As String, target_sheet As String)
    On Error GoTo ErrHandler
    Application.ScreenUpdating = False

    Set wbThis = ActiveWorkbook
    Dim dest_sheet As Worksheet
    Set dest_sheet = wbThis.Sheets(target_sheet)

    Dim src_book As Workbook
    Set src_book = Workbooks.Open(source_file, True, True) ' Open in "ReadOnly" mode
    Dim src_sheet As Worksheet
    Set src_sheet = src_book.Sheets(source_sheet)
    src_sheet.Activate
    last_col = ActiveSheet.UsedRange.Columns.Count
    last_row = ActiveSheet.UsedRange.Rows.Count

    Dim row As Integer          ' row counter.
    Dim col As Integer          ' col counter.
    Dim src_data  As String
    For row = 1 To last_row
        For col = 1 To last_col
            src_data = src_sheet.Cells(row, col).Value
            dest_sheet.Cells(row, col).Value = src_data
        Next col
    Next row

    src_book.Close False ' close file without saving (FALSE)
    Set src_book = Nothing

    wbThis.Activate

ErrHandler:
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub

可能出了什么问题？

Answer 1

如果您使用Workbooks.Open 打开您的 CSV 文件，Excel 会将日期转换为美国格式，除非不可能（因此会尝试其他格式）。

您可以尝试添加一个参数Local:=True 来解决它。

Answer 2

既然 Excel 试图首先将日期解释为 mm/dd/yyyy 似乎是对的，只有当这不起作用时，它才会将其读取为 dd/mm/yyyy：

使用NumberFormat 属性强制格式正确：

For row = 1 To last_row
    For col = 1 To last_col
        dest_sheet.Cells(row, col).Select
        ActiveCell.NumberFormat = "dd-mm-yyyy"
        src_data = src_sheet.Cells(row, col).Value
        dest_sheet.Cells(row, col).Value = src_data
    Next col
Next row

试试看是否有帮助，首先将正确的日期格式强制到每个目标单元格上。