在保留日期格式的同时将日期从 CSV 复制到 Excel

Question

我将各种 CSV 文件中的信息复制到 Excel 工作表中。这些文件是来自 Symantec 的报告，其中包括上次扫描日期、定义日期等。

当我在 Excel 中查看 CSV 时，日期格式为自定义 dd/mm/yyyy hh:mm。

我正在尝试使用 VBA 脚本运行这些文件并列出 30 天内未扫描的系统的信息。

当信息被复制时，一些日期格式变为General，并显示正确的格式dd/mm/yyyy。
其他变为自定义，并将日期值切换为 mm/dd/yyyy，但保持显示相同。因此，不是将 01/12/2020 读取为 12 月 1 日，而是将其读取为 1 月 12 日。任何带有数字 1-12 的日期似乎都被读取为 mm/dd/yyyy，而不是原始配置为的 dd/mm/yyyy 格式。

是否有 VBA 代码可将 CSV 上的日期值转换为长数字，然后再将它们复制到 Excel 工作表中，然后再将该数字转换回日期格式？

我尝试使用 .numberformat "dd/mm/yyyy" 选项和 .numberformat "General"。

要打开每个 CSV 文件，我执行以下操作：

strFile = Dir(strSourcePath & "*.csv")
Cnt = Cnt + 1
    If Cnt = 1 Then
        r=2
    Else
        r = Cells(rows.count, "A").End(xlUp) + 1
    End If

Open strSourcepath & strFile For Input as #1
    inputRow = 1
        Line Input #1, strData
        If inputRow > 1 Then
            inputRow - inputRow +1
                X = Split(strData, ",")
                For c = 0 To UBound(X)
                    Cells(r, c + 1).Value = Trim(X(c))
                Next c
                r = r + 1
            Else
                inputRow = inputRow + 1
            End If
        Loop
    Close #1
    strFile = Dir
    Loop

Answer 1

因此，问题已通过更深入的方式解决。

我现在使用 workbook.open(filename, local:=True) 选项打开 CSV，这样可以保持日期格式正确。

然后我简单地使用 TargetCell("range").value = SourceCell("Range").value 命令来复制数据。

感谢大家的尝试。我在Date formats/values change when file is opened programmatically

偶然发现了同样的问题

这让我的文件正确打开，然后我可以相应地调整我的代码。

Answer 2

我将日期存储为 Long 数据类型。

想象在单元格 A1 中有：

1/12/20

这是 [2020 年 12 月 1 日]，而不是 1 月 12 日。 所以我的代码是：

dim MyDate as long
MyDate = Clng(CDate(Cells(1,1)))

所以，现在我可以将日期作为长数据类型使用，并在 VBA 中执行任何操作。当我需要打印出来时，Excel 肯定会知道是哪个日期。