Condividi:        

( Excel ) Macro per esportare dati in txt e separarli

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

( Excel ) Macro per esportare dati in txt e separarli

Postdi clarencito » 20/07/11 09:07

Buongiorno a tutti e grazie a chi mi aiuterà.
Sto creando un programma per la gestione delle pratiche in arrivo.
Ho un file xls diviso in queste colonne
Sez. Anno.Numero Data/Ora Oggetto Uffici Corrisp.
A 2011.19734 14-07-2011 12:33:43 OGGETTO A UFFICIO A COMUNE A
A 2011.1963 13-07-2011 17:48:05 OGGETTO A UFFICIO B COMUNE A
A 2011.19432 12-07-2011 11:18:22 OGGETTO A UFFICIO A COMUNE S
A 2011.18916 06-07-2011 15:06:43 OGGETTO A UFFICIO A COMUNE N.

dovrei importare questi dati in file formato txt separando il contenuto delle singole colonne ed in particolare "scompattando e dividendo" la colonna B che ora si presenta composta da una stirnga unica cosi composta:
2011.19734 14-07-2011 12:33:43
e facendola diventare dei campi separati
"Anno","Numero" "Data",

----
Sarebbe inoltre utile che il file txt creato abbia all'inizio un contattore che segni le colonne in uso (7) e le righe scritte (1)

il risultato finale dovrebbe essere un file cosi:

7,1
"Sez","Anno","Numero" "Data","Oggetto", "Uffici", "Corrispondente"
"A","2011","19734", "14-07-2011", "OGGETTO A", "UFFICIO A", "COMUNE A"
clarencito
Newbie
 
Post: 2
Iscritto il: 20/07/11 08:49

Sponsor
 

Re: ( Excel ) Macro per esportare dati in txt e separarli

Postdi Anthony47 » 20/07/11 16:22

Ciao clarencito, benvenuto nel forum.
Puoi fare quello che chiedi tramite formule excel, replicando o creando i campi in Foglio2; quindi, ad esempio, in A2, B2, C2 e D2 rispettivamente
Codice: Seleziona tutto
=Foglio1!A2
=VALORE(SINISTRA(Foglio1!B2;TROVA(".";Foglio1!B2)-1))
=STRINGA.ESTRAI(Foglio1!B2;TROVA(".";Foglio1!B2)+1;TROVA(" ";Foglio1!B2)-TROVA(".";Foglio1!B2)-1)
=STRINGA.ESTRAI(Foglio1!B2;TROVA(" ";Foglio1!B2)+1;99)

Poi, dopo aver salvato il file in formato xls, salvi Foglio2 in uno dei formati txt di excel, ad esempio "csv".

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


Torna a Applicazioni Office Windows


Topic correlati a "( Excel ) Macro per esportare dati in txt e separarli":


Chi c’è in linea

Visitano il forum: Nessuno e 59 ospiti