excel - 将日期从 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))

标签： excelvba