Condividi:        

esportare in 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

esportare in txt

Postdi daniele677 » 08/02/13 16:54

salve di nuovo a tutto il forum
avrei bisogno del vostro aiuto per risolvere il seguente problema
devo esportare un file excel in un file txt
il file e' su due colonne. Il problema e' che nel file txt esportato le righe che iniziano con la @ non deveno avere spazi alla fine (nella seconda colonna non c'e' nulla), per le altre righe ci sono i numeri.
la macro l'ho trovata in rete e ho dovuto inserire un 1 nella prima riga della 2° colonna che non deve esserci
allego file di esempio (spero correttamente)

http://www.filedropper.com/esempio
<a href=http://www.filedropper.com/esempio><

grazie
daniele677
Utente Junior
 
Post: 16
Iscritto il: 22/12/08 19:11

Sponsor
 

Re: esportare in txt

Postdi Flash30005 » 08/02/13 21:44

Nella macro c'è una riga codice che conta le colonne nella riga 1
Codice: Seleziona tutto
UC = Range("IV1").End(xlToLeft).Column

nel tuo file, in riga 1, hai solo una colonna in quanto in B1 non c'è nulla (a parte l'1 "forzato" che hai inserito appositamente)
per questo non devi usare quel codice (oppure devi riferirlo alla riga 2 con "IV2" e non "IV1"
ma puoi mettere direttamente la varibile UC a 2
Codice: Seleziona tutto
UC = 2

Visto che hai solo due colonne

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: esportare in txt

Postdi daniele677 » 09/02/13 09:29

ciao Flash e salve a tutto il forum
grazie per la risposta, primo problema risolto
l'altro -forse da me descritto male - e' che quando vado ad esportare il file
le righe che iniziano con la @ non deveno avere spazi alla fine
es. la riga @Certificazione&1 non deve avere spazi dopo l'1 altrimenti il file non viene importato nella procedura software che utilizzo
se hai possibilita di fare un export verificherai che nel file txt le righe che iniziano con @ hanno tutte degli spazi dopo i numeri finali, mentre le altre non hanno spazi dopo i numeri. Che si puo fare?
Infine se un file txt ha gia' delle righe esiste la possibilita di aggiungere (accodare) altre esportantole da excel senza ricoprire quelle esistenti
grazie
daniele677
Utente Junior
 
Post: 16
Iscritto il: 22/12/08 19:11

Re: esportare in txt

Postdi Anthony47 » 09/02/13 10:04

Per il primo problema sostituisci RigaC = RigaC & Chr(9) & Cells(riga, Col).Value con
If Cells(riga, Col).Value <> "" Then RigaC = RigaC & Chr(9) & Cells(riga, Col).Value

Per il secondo, sostituisci Open FullName For Output As #1 con
Open FullName For Append As #1

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: esportare in txt

Postdi daniele677 » 09/02/13 11:17

grazie ad entrambi
siete bravissimi e velocissimi nelle risposte (anche di piu' della mia softwarehouse)
a presto
daniele677
Utente Junior
 
Post: 16
Iscritto il: 22/12/08 19:11


Torna a Applicazioni Office Windows


Topic correlati a "esportare in txt":


Chi c’è in linea

Visitano il forum: Nessuno e 83 ospiti