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
