Как открыть файл .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