У меня проблема при изменении даты с дд-мм-гггг ЧЧ: ММ: СС на дд / мм / гггг, не все даты меняются в правильный формат.
Пример моей проблемы
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 меняются на дд / мм / гггг ....
Это код, который я сделал для копирования данных из файлов .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))