Rinomino txt in xls e perdo formato date

mercoledì 14 gennaio 2009 - 09.37

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

gaemon78 Profilo | Newbie

23 messaggi | Data Invio: mer 14 gen 2009 - 09:37

Ciao
Scrivo qui perchè non saprei a quale topic scrivere.
Io ho un file txt creato tramite scarico sequenziale contenente colonne separate da tabulatore.
3 di queste colonne sono di tipo data nel formato 28/12/2008 05/01/2009 10/01/2009
Sia leggendo il file txt con uno Script VB e scrivendo ogni riga in un xls sia semplicemente rinominando l'estensione da txt a xls le date sopra indicate cambiano di formato in questo modo:
28/12/2008 01/05/2009 01/10/2009

Qualcuno ha qualche idea o mi puo' indicare a chi rivolgermi ?
Ciao a tutti e grazie.

angelotv Profilo | Guru

1.010 messaggi | Data Invio: mer 14 gen 2009 - 11:42

non puoi cambiare l'estensione di un file e sperare che venga "capito" dall'applicazione associata all'estensione che gli dai; nel tuo caso potresti avviare excel aprire il file txt e seguire la procedura guidata (File-Apri-Tipo di file=file di testo) poi gli dici che è delimitato da tabulazione e gli specifichi che le colonne sono di tipo "Data".

by Angelo

gaemon78 Profilo | Newbie

23 messaggi | Data Invio: mer 14 gen 2009 - 13:04

Certo.
Il problema è che io devo fornire al cliente un file excel finito e correttamente formattato.
Per ora ho seguito una strada di questo tipo: aggiungo uno spazio davanti alla data nel file di testo, modificando l'estensione da txt a xls rimane formattato correttamente in quanto lo rileva come testo e non come data, se al cliente va bene questa soluzione la adotto altrimenti fornirò il file di testo e spiegherò il tuo metodo.
Grazie mille

angelotv Profilo | Guru

1.010 messaggi | Data Invio: mer 14 gen 2009 - 13:30

Volendo puoi provare a fare una macro che faccia parte del lavoro per lui.
Esempio di macro:
Sub ApriTxt()
'
' ApriTxt Macro
' Macro registrata il 14/01/2009 da Angelo
'
'
ChDir "C:\"
Workbooks.OpenText Filename:= _
"C:\Nuovo Documento di testo.txt" _
, Origin:=xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 4), _
Array(2, 4), Array(3, 4)), TrailingMinusNumbers:=True
Columns("A:C").Select
Columns("A:C").EntireColumn.AutoFit
Range("A1").Select
End Sub

by Angelo

Torna su

Stanze Forum

Elenco Threads

Partecipa anche tu! Registrati!

Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !