Testo in colonne

[thunderPartecipante thunder]

Ciao,

 

di seguito il mio quesito:

Ho una serie di file excel all'interno di una cartella windows. L'operazione che eseguo è quella di aprire il singolo file, dividere il testo (presente nella colonna A) in colonne usando come delimitatore il carattere "#", salvare e chiudere il file. Uso questa macro per dividere il testo in colonne sul singolo file:

 

Sub dividi() Columns("A:A").Select Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _ Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _ :="#", FieldInfo:=Array(1, 1), TrailingMinusNumbers:=True End Sub

Come posso fare per eseguire quest'operazione una sola volta per tutti i file presenti nella cartella windows?

 

Grazie in anticipo

[thunderPartecipante thunder]

 

[Marius44Moderatore Marius44 Karma: 58 pts]

Ciao

Se ho capito quello che vuoi fare dovrebbe essere sufficiente mettere all'inizio

For i = 1 to Sheets.Count

-----

-----

Next i

Ciao,

Mario

[thunderPartecipante thunder]

Ciao Mario,

 

se uso 

For i = 1 to Sheets.Count​

lo applico solo ai fogli della stessa cartella excel giusto?

Io vorrei usarlo per tutti i file excel presenti all'interno di una cartella windows

[Marius44Moderatore Marius44 Karma: 58 pts]

Ciao

innanzi tutto una cosa: quando rispondi metti la finestra in "Visuale" e metti il codice fra i tag (;) che vedi nella riga sopra.

Per fare quello che dici occorre un doppio ciclo:

il primo ciclo che "spazzoli" gli indirizzi dei file della cartella

il secondo (quello di prima) che "spazzoli" tutti i Foglio di ogni file.

 

Ciao,

Mario

[thunderPartecipante thunder]

se hai tempo e piacere ti chiedo se riesci a guidarmi un po' di più. Non sono così pratico purtroppo e poter applicare una macro a tutti i file m'interessa molto

[patelModeratore patel Karma: 51 pts]

questa apre i file e li chiude salvandoli

Sub OpenfileUpdate()

Dim strFile As String

mfolder = "C:\Cartella\"

strFile = Dir(mfolder & "*.xls*")

Do While strFile <> ""

' qui fai te tue modifiche al foglio

    'chiude e salva il file da aggiornare

    ActiveWorkbook.Close True

    strFile = Dir

Loop

End Sub

[Marius44Moderatore Marius44 Karma: 58 pts]

Ciao Patel e grazie per la dritta.

Ero impegnato altrove.

Ciao,

Mario 

[patelModeratore patel Karma: 51 pts]

La dritta non era per te Marius, ho capito che non avevi letto attentamente il primo post

[thunderPartecipante thunder]

Risolto, grazie per l'aiuto e per il tempo dedicatomi!

[Autore]

Articoli