Condividi:        

Da Excel a txt

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

Da Excel a txt

Postdi tony61 » 02/01/10 20:04

Immagine

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
tony61
Utente Senior
 
Post: 176
Iscritto il: 11/04/09 13:33

Sponsor
 

Re: Da Excel a txt

Postdi Flash30005 » 03/01/10 04:01

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
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Da Excel a txt

Postdi tony61 » 03/01/10 09:51

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
Utente Senior
 
Post: 176
Iscritto il: 11/04/09 13:33

Re: Da Excel a txt

Postdi tony61 » 03/01/10 10:03

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
tony61
Utente Senior
 
Post: 176
Iscritto il: 11/04/09 13:33

Re: Da Excel a txt

Postdi Flash30005 » 03/01/10 13:23

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) :D
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
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Da Excel a txt

Postdi tony61 » 03/01/10 13:34

Non riesco a scaricarlo mi da Error


ci riprovo ancora
tony61
Utente Senior
 
Post: 176
Iscritto il: 11/04/09 13:33

Re: Da Excel a txt

Postdi Flash30005 » 03/01/10 15:17

Rapidshare ha problemi oggi
scarica questo file da megaupload

Fai sapere
Ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Da Excel a txt

Postdi tony61 » 03/01/10 19:12

Perfetto risolto anche questa


sei un grande

bravissimo

ciao
tony61
Utente Senior
 
Post: 176
Iscritto il: 11/04/09 13:33


Torna a Applicazioni Office Windows


Topic correlati a "Da Excel a txt":


Chi c’è in linea

Visitano il forum: Nessuno e 57 ospiti