将日期从dd-mm-yyyy HH：MM：SS更改为dd / mm / yyyy

Question

在将日期从dd-mm-yyyy HH：MM：SS更改为dd / mm / yyyy时，我遇到了问题，并非所有日期都更改为正确的格式。

我的问题的一个例子

Column E
03-10-2019 36:12:50
10/03/2010
10/03/2010
10/03/2010
03-10-2019

我用于其邻居的代码是这样：

With ActiveSheet.UsedRange.Columns("D").Cells
.TextToColumns Destination:=.Cells(1), DataType:=xlFixedWidth, FieldInfo:=Array(0, xlYMDFormat)
.NumberFormat = "dd/mm/yyyy" 
End With

D列中的所有日期更改为dd / mm / yyyy...。

这是我从.txt文件复制数据的代码

myBook = ActiveWorkbook.Name
Set nav = CreateObject("shell.application")
folder = nav.browseforfolder(0, "PICK FOLDER", 0, "c:\").items.Item.Path
ChDir folder & "\"
file = Dir("*.txt")
Do While file <> ""

Workbooks.OpenText file, origin:=xlWindows, startrow:=1, DataType:=xlDelimited, FieldInfo:=Array(Array(1, xlTextFormat), Array(2, xlTextFormat), Array(3, xlTextFormat), Array(4, xlTextFormat), Array(5, xlTextFormat), Array(6, xlTextFormat), Array(7, xlTextFormat), Array(8, xlTextFormat), Array(9, xlTextFormat), Array(10, xlTextFormat))