macro importa le date in formato diverso

[maucla]

Buongiorno a tutti.
Vi espongo questo problema. Intanto premetto che sono totalmente inesperto in materia di Macro/VBa e ho provato a crearne una seguendo la procedura guidata in excel/ registra macro.
La mia necessità è di importare un file .txt in .xls più volte al giorno. Come ho detto ho seguito la procedura registra macro, impostando le delimitazioni, punto e virgola... ecc ecc.
Appena terminata la procedura e provata funziona tutto perfettamente.
Il file di origine ha una colonna con il calendario di tutto l'anno in formato gg/mm/aa.
Al primo utilizzo però l'importazione sbaglia tutte le date dal giorno 1 al 12 di ogni mese convertendole in formato mm/gg/aa e quindi il file finale è inutilizzabile. Inoltre mi segnala "errore di run-time 9 - indice non incluso nell'intervallo"
Ho provato a controllare il formato celle ma non riesco a trovare la soluzione.
Vi invio il codice che ho creato.
Grazie in anticipo per l'aiuto

Sub Macro1()
'
' Macro1 Macro
'
' Scelta rapida da tastiera: CTRL+a
'
ChDir "R:\Ricevimento\OPI\Marzo\16\14"
Workbooks.OpenText Filename:= _
"R:\Ricevimento\OPI\Marzo\16\14\resfutureoccupancy1532224.txt", Origin:= _
xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote _
, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, Comma:= _
False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1) _
, Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1), _
Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1), Array(14, 1), Array(15, 1), Array( _
16, 1), Array(17, 1), Array(18, 1), Array(19, 1), Array(20, 1), Array(21, 1), Array(22, 1), _
Array(23, 1), Array(24, 1), Array(25, 1), Array(26, 1), Array(27, 1), Array(28, 1), Array( _
29, 1), Array(30, 1), Array(31, 1), Array(32, 1), Array(33, 1), Array(34, 1), Array(35, 1), _
Array(36, 1), Array(37, 1), Array(38, 1), Array(39, 1), Array(40, 1), Array(41, 1), Array( _
42, 1), Array(43, 1), Array(44, 1), Array(45, 1), Array(46, 1), Array(47, 1)), _
DecimalSeparator:=".", ThousandsSeparator:=" ", TrailingMinusNumbers:= _
True
Cells.Select
Selection.Copy
Windows("TemplateImport_FCST2015 (2).xlsx").Activate
ActiveSheet.Paste
End Sub

[Anthony47]

Ciao maucla, benvenuto nel forum.

Ripeti la registrazione della macro, pero':
Nello step 3 di 3 dell' importazione guidata di un file txt hai la possibilita' di selezionare ognuna delle colonne e impostarne il formato; seleziona la colonna con le date, specifica che e' un campo Data nel formato GMA; completa l' importazione.
Credo che la riga ChDir non sia necessaria, quindi il codice cosi' ottenuto dovrebbe essere pronto per essere riutilizzato (in sostituzione di quello che hai pubblicato)

Per l' errore run time 9 dovresti indicare in quale riga succede.

Ciao

[maucla]

Grazie, sono 2 giorni che lo utilizzo e funziona. E' anche sparito l'errore run time 9.
Grazie veramente.