Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

conversione formato da txt ad excel

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

conversione formato da txt ad excel

Postdi anima77 » 18/12/12 22:53

salve a tutti,

Ci risiamo.... devo convertire un file da formato txt a excel, e rileggendo un po il forum ho usato una vecchia macro tra le mie prime domande fatte.
Ringrazio ancora tutti quello che mi hanno aiutato. ;)
E SAREBBE QUESTA :

Sub ImportaTxt()

ChDir "C:\Temp"
Workbooks.OpenText Filename:="C:\Temp\MioTxt.txt", Origin:=xlMSDOS, _
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False _
, Space:=False, Other:=True, OtherChar:="!ÿ", FieldInfo:=Array(Array(1, 1 _
), Array(2, 1), Array(3, 1), Array(4, 1)), TrailingMinusNumbers:=True
Range("A1").Select
End Sub

LA MACRO IN PARTE FUNZIONA IMPORTA TUTTO NELLE COLONNE MA NON MI DIVIDE I FOGLI.
VORREI DIVIDERE IN FOGLI LE VARIE RIGHE.



vi spiego : il file txt e e strutturato da un delimitatore !ÿ ed e diviso in 4 righe, ogni riga contiene l'inizio ( TEstata ) cosi chiamate :

ARTANAG
ARTLIST
ARTFORN
ARTbarre

vorrei mettere ogni riga in ogni foglio
esempio

tutti quelli con artanag -> Foglio 1
tutti quelli con ARTLIST -> Foglio 2
tutti quelli con ARTFORN -> Foglio 3
tutti quelli con ARTBARRE -> Foglio 4

ESEMPIO FILE .TXT

V!ARTANAG!"0795048"!ÿ"STAR RISOTTO GR.175 ALLA MILANESE "!ÿ"11011078900258"!ÿ" "!ÿ" "!ÿ"04"!ÿ"CT"!ÿ"KG"!ÿ" "!ÿ" "!ÿ" "!ÿ10!ÿ0,175!ÿ95!ÿ0!ÿ0!ÿ""!ÿ" "!ÿ" "!ÿ" "!ÿ4!ÿ4!ÿ0!ÿ0!ÿ0!ÿ0!ÿ" "!ÿ"I"!ÿ"S"!ÿ" "!ÿ"STAR RISOTTO MI"!ÿ"0"!ÿ4!ÿ"DHS05787"!ÿ"MG"!ÿ"DHS"!ÿ0!ÿ"D"!ÿ"N"!ÿ""!ÿ"N"
V!ARTLIST!"DHS05787"!ÿ""!ÿ2227!ÿ1,15!ÿ15/02/2012!ÿ!ÿ0!ÿ0!ÿ0!ÿ0!ÿ0!ÿ0!ÿ0!ÿ0!ÿ""!ÿ0!ÿ0!ÿ0!ÿ0!ÿ0!ÿ0!ÿ0!ÿ0!ÿ0!ÿ571240!ÿ"Q"!ÿ0!ÿ0!ÿ0!ÿ0!ÿ0!ÿ0!ÿ""
V!ARTFORN!"DHS05787"!ÿ"999999"!ÿ!ÿ1413,4771!ÿ0,73!ÿ0!ÿ0!ÿ0!ÿ0!ÿ0!ÿ!ÿ0!ÿ0!ÿ0!ÿ!ÿ!ÿ!ÿ!ÿ!ÿ!ÿ!ÿ!ÿ!ÿ!ÿ!ÿ!ÿ!ÿ28/12/2011!ÿ!ÿ
V!ARTbarre!"DHS05787"!ÿ"8000050834206"!ÿ0!ÿ"/"!ÿ1!ÿ" "
V!ARTANAG!"0795048"!ÿ"STAR RISOTTO GR.175 ALLA MILANESE "!ÿ"11011078900258"!ÿ" "!ÿ" "!ÿ"04"!ÿ"CT"!ÿ"KG"!ÿ" "!ÿ" "!ÿ" "!ÿ10!ÿ0,175!ÿ95!ÿ0!ÿ0!ÿ""!ÿ" "!ÿ" "!ÿ" "!ÿ4!ÿ4!ÿ0!ÿ0!ÿ0!ÿ0!ÿ" "!ÿ"I"!ÿ"S"!ÿ" "!ÿ"STAR RISOTTO MI"!ÿ"0"!ÿ4!ÿ"DHS05787"!ÿ"MG"!ÿ"DHS"!ÿ0!ÿ"D"!ÿ"N"!ÿ""!ÿ"N"
V!ARTLIST!"DHS05787"!ÿ""!ÿ2227!ÿ1,15!ÿ15/02/2012!ÿ!ÿ0!ÿ0!ÿ0!ÿ0!ÿ0!ÿ0!ÿ0!ÿ0!ÿ""!ÿ0!ÿ0!ÿ0!ÿ0!ÿ0!ÿ0!ÿ0!ÿ0!ÿ0!ÿ571240!ÿ"Q"!ÿ0!ÿ0!ÿ0!ÿ0!ÿ0!ÿ0!ÿ""
V!ARTFORN!"DHS05787"!ÿ"999999"!ÿ!ÿ1413,4771!ÿ0,73!ÿ0!ÿ0!ÿ0!ÿ0!ÿ0!ÿ!ÿ0!ÿ0!ÿ0!ÿ!ÿ!ÿ!ÿ!ÿ!ÿ!ÿ!ÿ!ÿ!ÿ!ÿ!ÿ!ÿ!ÿ28/12/2011!ÿ!ÿ
V!ARTbarre!"DHS05787"!ÿ"8000050834206"!ÿ0!ÿ"/"!ÿ1!ÿ" "
V!ARTANAG!"0785003"!ÿ"HAG CAFFE' CLASSICO GR.250 "!ÿ"11014098900464"!ÿ" "!ÿ" "!ÿ"21"!ÿ"PZ"!ÿ"KG"!ÿ" "!ÿ" "!ÿ" "!ÿ16!ÿ0,25!ÿ84!ÿ0!ÿ0!ÿ""!ÿ" "!ÿ" "!ÿ" "!ÿ4!ÿ4!ÿ0!ÿ0!ÿ0!ÿ0!ÿ" "!ÿ"I"!ÿ"S"!ÿ" "!ÿ"HAG CAFFE' CLAS"!ÿ"0"!ÿ4!ÿ"DHS03563"!ÿ"MG"!ÿ"DHS"!ÿ0!ÿ"D"!ÿ"N"!ÿ""!ÿ"N"
V!ARTLIST!"DHS03563"!ÿ""!ÿ4821!ÿ2,49!ÿ30/07/2011!ÿ!ÿ0!ÿ0!ÿ0!ÿ0!ÿ0!ÿ0!ÿ0!ÿ25!ÿ""!ÿ0!ÿ0!ÿ0!ÿ0!ÿ0!ÿ0!ÿ0!ÿ0!ÿ0!ÿ483474!ÿ"Q"!ÿ0!ÿ0!ÿ0!ÿ0!ÿ0!ÿ0!ÿ""
V!ARTFORN!"DHS03563"!ÿ"999999"!ÿ!ÿ3214,2082!ÿ1,66!ÿ0!ÿ0!ÿ0!ÿ0!ÿ0!ÿ!ÿ0!ÿ0!ÿ0!ÿ!ÿ!ÿ!ÿ!ÿ!ÿ!ÿ!ÿ!ÿ!ÿ!ÿ!ÿ!ÿ!ÿ28/12/2011!ÿ!ÿ
V!ARTbarre!"DHS03563"!ÿ"7622300619121"!ÿ0!ÿ"/"!ÿ1!ÿ" "
V!ARTANAG!"0267506"!ÿ"POIATTI PENNE RIGATE KG.1N 41 "!ÿ"11015108901407"!ÿ""!ÿ""!ÿ"04"!ÿ"CT"!ÿ"KGLT"!ÿ""!ÿ""!ÿ""!ÿ12!ÿ0!ÿ30!ÿ0!ÿ0!ÿ""!ÿ""!ÿ""!ÿ""!ÿ4!ÿ4!ÿ0!ÿ0!ÿ0!ÿ0!ÿ""!ÿ"E"!ÿ"S"!ÿ""!ÿ"POIATTI PENNE RIGATE KG.1N 41 "!ÿ""!ÿ4!ÿ"026750600001"!ÿ"MG"!ÿ"DHS"!ÿ0!ÿ"C"!ÿ"N"!ÿ""!ÿ"N"
V!ARTLIST!"026750600001"!ÿ""!ÿ0!ÿ0,99!ÿ16/09/2009!ÿ!ÿ0!ÿ0!ÿ0!ÿ0!ÿ0!ÿ0!ÿ0!ÿ0!ÿ""!ÿ0!ÿ0!ÿ0!ÿ0!ÿ0!ÿ0!ÿ0!ÿ0!ÿ0!ÿ263820!ÿ""!ÿ0!ÿ0!ÿ0!ÿ0!ÿ0!ÿ0!ÿ""
V!ARTFORN!"026750600001"!ÿ"999999"!ÿ!ÿ0!ÿ0,78!ÿ0!ÿ0!ÿ0!ÿ0!ÿ0!ÿ!ÿ0!ÿ0!ÿ0!ÿ!ÿ!ÿ!ÿ!ÿ!ÿ!ÿ!ÿ!ÿ!ÿ!ÿ!ÿ!ÿ!ÿ16/10/2009!ÿ!ÿ
V!ARTbarre!"026750600001"!ÿ"8007066010419"!ÿ0!ÿ"/"!ÿ1!ÿ""
V!ARTANAG!"0267506"!ÿ"POIATTI PENNE RIGATE KG.1N 41 "!ÿ"11015108901407"!ÿ""!ÿ""!ÿ"04"!ÿ"CT"!ÿ"KGLT"!ÿ""!ÿ""!ÿ""!ÿ12!ÿ0!ÿ30!ÿ0!ÿ0!ÿ""!ÿ""!ÿ""!ÿ""!ÿ4!ÿ4!ÿ0!ÿ0!ÿ0!ÿ0!ÿ""!ÿ"E"!ÿ"S"!ÿ""!ÿ"POIATTI PENNE RIGATE KG.1N 41 "!ÿ""!ÿ4!ÿ"026750600001"!ÿ"MG"!ÿ"DHS"!ÿ0!ÿ"C"!ÿ"N"!ÿ""!ÿ"N"
V!ARTLIST!"026750600001"!ÿ""!ÿ0!ÿ0,99!ÿ16/09/2009!ÿ!ÿ0!ÿ0!ÿ0!ÿ0!ÿ0!ÿ0!ÿ0!ÿ0!ÿ""!ÿ0!ÿ0!ÿ0!ÿ0!ÿ0!ÿ0!ÿ0!ÿ0!ÿ0!ÿ263820!ÿ""!ÿ0!ÿ0!ÿ0!ÿ0!ÿ0!ÿ0!ÿ""
V!ARTFORN!"026750600001"!ÿ"999999"!ÿ!ÿ0!ÿ0,78!ÿ0!ÿ0!ÿ0!ÿ0!ÿ0!ÿ!ÿ0!ÿ0!ÿ0!ÿ!ÿ!ÿ!ÿ!ÿ!ÿ!ÿ!ÿ!ÿ!ÿ!ÿ!ÿ!ÿ!ÿ16/10/2009!ÿ!ÿ
V!ARTbarre!"026750600001"!ÿ"8007066010419"!ÿ0!ÿ"/"!ÿ1!ÿ""

SALUTI Anima77
anima77
Utente Junior
 
Post: 11
Iscritto il: 19/11/12 00:53

Sponsor
 

Re: conversione formato da txt ad excel

Postdi PcBase » 19/12/12 01:05

Ciao

LA MACRO IN PARTE FUNZIONA IMPORTA TUTTO NELLE COLONNE MA NON MI DIVIDE I FOGLI.
VORREI DIVIDERE IN FOGLI LE VARIE RIGHE.

Prima che qualcuno possa creare una macro servirebbe:
Conoscere il numero di righe del file txt (Tipo: il numero è inferiore a 65.000 righe?)
Quante sono le schede da utilizzare, nel caso mancassero la macro le deve aggiungere?
Quale versione di excel utilizzi 2003?

Come vedi mancano parecchi dati per risponderti.
Windows xp + Office 2003 Ita
Windows8 Office 2013
PcBase
Utente Senior
 
Post: 129
Iscritto il: 24/02/11 23:26

Re: conversione formato da txt ad excel

Postdi anima77 » 19/12/12 01:21

salve, Le righe in totale solo 127.115,
uso excel 2007

le schede da utilizzare sono 4.

l'ultima risposta è non mancano perchè ho controllato tutte 127115 righe.
anima77
Utente Junior
 
Post: 11
Iscritto il: 19/11/12 00:53

Re: conversione formato da txt ad excel

Postdi Flash30005 » 19/12/12 07:05

Ma potresti far vedere come vengono importati quei dati?
per capire che fine fanno tutti quei caratteri "sporchi"?
Anche perché se importati correttamente in unico foglio potrai in un secondo tempo dividerli
ma occorre, appunto, sapere come sono importati con il codice che hai.

ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-


Torna a Applicazioni Office Windows


Topic correlati a "conversione formato da txt ad excel":


Chi c’è in linea

Visitano il forum: Nessuno e 11 ospiti