excel - 以编程方式打开文件时，日期格式/值会发生变化

Question

我有 .csv 文件，它是每日数据的时间序列，其中有几个与每个日期相关的数据点。

当我手动打开文件时，日期可以正确打开，日期格式为dd/mm/yyyy。

当我以编程方式打开文件时，截至每月 12 日的日期将打开为 mm/dd/yyyy，但格式仍保持 dd/mm/yyyy >(例如 1983 年 7 月 1 日 (1/7/1983)，将打开为 1983 年 1 月 7 日 (7/1/1983) - 这不仅仅是格式问题，儒略日期(自 1 月 1 日起的天数) 1901)与这些日期相关的也发生了变化)，每个月 12 号之后的日期都可以正确打开，尽管是文本而不是日期。

以文本形式输入的数据不是问题，但是，文件打开后日期立即发生变化是有问题的。我可以尝试将整个 .csv 文件作为逗号分隔的文本导入，而不是打开文件，但是，如果我可以在打开文件时阻止日期更改，则会更容易、更快。

Flder = InputBox("Copy and Paste Folder path here:")

Set FSO = CreateObject("Scripting.FileSystemObject")
Set SourcePath = FSO.GetFolder(Flder)

For Each File In SourcePath.Files        
    Workbooks.Open (File)

    FlNm = File.Name

    StrtCol = Workbooks(FlNm).Worksheets(1).Range(Cells(4, 1), Cells(4, 30)).Find ("Mean").Column

    Workbooks(FlNm).Worksheets(1).Range(Cells(1, 1), Cells(60000, 1)).Copy (Workbooks("Find Water Years V2.xls").Worksheets(1).Range("A3"))
    Workbooks(FlNm).Worksheets(1).Range(Cells(1, StrtCol), Cells(60000, StrtCol + 1)).Copy (Workbooks("Find Water Years V2.xls").Worksheets(1).Range("B3"))

    Workbooks(FlNm).Close
Next

问题似乎发生在 Workbooks.Open(File) 行。

Answer 1

由于OP已经在评论中回答了这个问题，但没有作为官方答案发布，所以我会将其放在这里，以防其他人像我一样错过它。

workbook = workbooks.Open(filename, Local:= true)

通过设置 Local = true 使用本地计算机日期格式而不是假设 mdy，因此在澳大利亚 (dmy) 等语言环境中，它将更改 Open() 的行为