excel - 使用文本文件打开时如何在不更改日期格式的情况下打开 .CSV 文件

Question

由于我是 VBA 新手，我创建了一个代码，使用户能够打开一个 .CSV（系统生成）文件并删除一列，然后关闭它以重命名。

当我运行宏时，它不会影响 .CSV 工作簿并保持所有日期格式不变"25/02/2019"。但是在运行宏之后，当我用文本文件打开它时，它会在文本文件中显示日期为“25/02/19”。我该如何解决这个问题？

    Option Explicit

    Sub Rename_workbook()

    Dim fileName As String
    Dim filePath As String

    filePath = ("D:\VBA\")
    fileName = Dir(filePath & "System_567875_20190228*" & ".csv")

    Workbooks.Open (filePath & fileName), local:=True

    Columns("Q:Q").select
    selection.delete   'Deleting column'
    columns("A:Z").Autofit

    Activeworkbook.Close savechanges:=True 'Command to close the "Quality Report*"'
    if fileName <> "" Then 
    Set fso = CreateObject("Scripting.FileSystemObject") 'renaming closed file'
    fso.Movefile filePath & fileName, filePath & "Quality Report.csv")
 End If

End Sub

标签： excelvbacsvformat