Tenho o código abaixo em uma macro, para copiar um arquivo TXT separado por ponto e vírgula para um arquivo Excel:
Sub Atualizar_Dados()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
'Abre o arquivo do servidor (mudado para txt ao inves de csv)
Workbooks.Open Filename:="http://pcn-sig.peccin.local/sig/ebsout/txt/pcnopmrelrefugos_mail.txt"
Columns("A:U").Select
Selection.Copy
Windows("BASE ORACLE - Teste Hora.xlsm").Activate
Sheets("BASE").Select
Range("A1").Select
'colar especial
Selection.PasteSpecial Paste:=xlPasteValues, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
ActiveWorkbook.RefreshAll
'Seleciona a coluna com os dados
Columns("A").Select
'Ativa a função texto para coluna
Selection.TextToColumns _
Destination:=Range("A1"), _
DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, _
Tab:=True, _
Semicolon:=False, _
Comma:=False, _
Space:=False, _
Other:=True, _
OtherChar:=";"
'Ativa o arquivo aberto do servidor
Windows("pcnopmrelrefugos_mail.txt").Activate
'Fecha o arquivo
ActiveWorkbook.Close
Sheets("CAPA").Select
ActiveWorkbook.RefreshAll
ActiveWorkbook.Save
End Sub
O arquivo TXT, por exemplo, está com a data assim:
;12/11/18 21:21:42
Mas essa mesma linha, no Excel, fica assim:
11/12/2018 21:21
Inclusive, no Excel as datas ficam com formatações diferentes, conforme abaixo:
Já deletei a coluna no Excel e criei outra, mas não resolveu. Alguma sugestão?