Da Excel a txt

[tony61]

Ciao a tutti sono alle prese con un problema devo trasformare alcune righe
di excel (quasi 150) in formato txt
quello che si vede nell'immagine sopra da excel a txt in quel formato

Fin che sono solo 2/3 righe riesco a farlo modifico con trova e sostituisci ,
ma i problemi iniziano con la data da modificare in
anno mese giorno
2009 GIU 03

se qualcuno sa come consigliarmi ,perchè fatto a mano mi richiede tantissimo tempo,
e il programma che ho in Ms-dos me lo riconosce solo in questo formato l'archivio TXT

grazie ciao

[Flash30005]

Se desideri avere tutti i dati di seguito senza alcun separatore come riportato da te nell'esempio puoi usare questa macro

Codice: Seleziona tutto

Sub CreaTxt()
Perc = "C:\"
FileT = "Filetxt.txt"
Open Perc & FileT For Output As #1
Righe = Range("A2").CurrentRegion.Rows.Count
colonne = Range("A2").CurrentRegion.Columns.Count
For RR = 2 To Righe
Stringa = ""
For CC = 1 To colonne
If CC = 1 Then
Stringa = Year(Cells(RR, CC).Value) & UCase(Format(Cells(RR, CC).Value, "mmm")) & Day(Cells(RR, CC).Value)
Else
Stringa = Stringa & Cells(RR, CC).Value
End If
Next CC
Print #1, Stringa
Next RR
Close
End Sub


In Perc metterai il tuo percorso
In File il nome del file
Ogni volta che attiverai la macro il file sarà sostituito da quello generato dalla nuova elaborazione

Fai sapere
Ciao

[tony61]

Sub CreaTxt()
Perc = " C:\Documents and Settings\Antonio\Desktop\Nuova cartella"
FileT = "ruote.txt"
Open Perc & FileT For Output As #1 (errore in giallo)
Righe = Range("A2").CurrentRegion.Rows.Count
colonne = Range("A2").CurrentRegion.Columns.Count
For RR = 2 To Righe
Stringa = ""
For CC = 1 To colonne
If CC = 1 Then
Stringa = Year(Cells(RR, CC).Value) & UCase(Format(Cells(RR, CC).Value, "mmm")) & Day(Cells(RR, CC).Value)
Else
Stringa = Stringa & Cells(RR, CC).Value
End If
Next CC
Print #1, Stringa
Next RR
Close
End Sub
...........................................................

Grazie ci sto provando ma ho non son capace a mettere il percorso giusto ,
oppure faccio altri errori.
In una cartella ho messo il file ruote.txt (con l'archivio da modificare)
e nella stessa il foglio excel Cartel1 (con l'archivio da modificare)

probabilmente sbaglio qualcosa ,l'archivio da modificare in txt va messo solo
sul foglio excel?il percorso è C:\Documents and Settings\Antonio\Desktop\Nuova cartella
il nome file quello txt ho altro sono un po confuso scusami

ti ringrazio se puoi darmi ancora un aiutino
ciao

[tony61]

2008LUG178650183812514990532590534482830487596030083704836334813183372872092486632015531753886107031530710355
2008LUG193490082224577364061844075378644509805428631344105304136407825284538523633323557467573175322706554278
2008LUG229078551231745244023149785833621704843151875218267578597109828735755051563152722433164869661002452927
2008LUG245825850940172002153157093283435735052539258776286315362429893962804581175613322880731376862402055647
2008LUG266690507942553831766786095438306085321112687384070444709048657781756368068526801943871530582066250738
2008LUG295728155019486966221328065627298869560966534081695137565132571427677771475286458517122180738871465701
2008LUG316754770269532139204481673286051662495801717022505520630319728861557674844187521863490930270727284758

Questo e una parte del archivio txt che mi serve

a questo link trovi l'archivio del 2009 che ha 2 volte la data a sinistra e a destra della colonna
a me interessa solo quella di sinistra data
http://www.pianetalotto.it/lotto/tabell ... i2009.html

grazie spero di essermi spiegato bene

[Flash30005]

Evita di mettere i file in Documents and setting \utente \ etc etc
in quanto percorsi così non sono "compatibili" e funzionanti in altri Pc perché l'utente cambia da Pc a Pc (non tutti si chiamano Antonio)
Quindi scarica questo file e scompattando avrai una cartella "lottoTony" che metterai nella root di C:\
La cartella contiene il file "CreaTxtLotto2.xls" e l'archivio txt creato da me con la macro contenuta nel file excel.
Quindi dovrai avere questo percorso
C:\LottoTony\CreaTxtLotto2.xls
avviando la macro con l'apposito pulsante otterrai il file "ArchivioAAAA.txt (AAAA sarà l'anno dell'archivio elaborato con valore della cella A2).

Fai sapere
Ciao

[tony61]

Non riesco a scaricarlo mi da Error


ci riprovo ancora

[Flash30005]

Rapidshare ha problemi oggi
scarica questo file da megaupload

Fai sapere
Ciao

[tony61]

Perfetto risolto anche questa


sei un grande

bravissimo

ciao