Unire in excel più fogli di diverse cartelle in un foglio di una nuova cartella

Anonimo

Ciao a tutti,

spero che qualche anima pia mi aiuti passo passo, spiego la situazione:

quotidiamente nella cartella C:\Users\Utente\Documents\ del mio Windows devo creare diverse cartelle di lavoro excel il cui nome è 1.csv, 2.csv, 3.csv ... 112.csv, tutte con la stessa intestazione di colonna e una serie di 300 righe diverse, ora vorrei unire tutte le righe delle 100 e rotte cartelle create in un solo foglio di una nuova cartella denominata ad esempio unione.xlsx, è possibile?????

Grazie...

Vincenzo

Domanda bloccata. Questa domanda è stata eseguita dalla community del supporto tecnico Microsoft. È possibile votare se è utile, ma non è possibile aggiungere commenti o risposte o seguire la domanda.

0 commenti

Risposta accettata dall'autore della domanda

Anonimo

Ciao Vincenzo,

Ciao, ho provato a scaricare di nuovo i file e li ho estratti su una cartella sul desktop, la cosa bella è che ora mi sviluppa i 124 files ma poi riepilogo non contiene dati... vedi screenshot

Durante la notte un pensiero spiacevole mi è venuto in mente: non è possibile per caso che tu stessi provando di eseguire la seconda routine Diagnostica anzichè la procedura Tester? La procedura Diagnostica era intesa solo per confermare la presenza dei file CSV nella directory stipulata.

===

Regards,

Norman

![](http://fud.community.services.support.microsoft.com/Fud/FileDownloadHandler.ashx?fid=f7d30bf4-60c7-433a-aeb0-4f21e6dc9edc)

0 commenti

43 risposte aggiuntive

Anonimo

2016-06-30T08:59:21+00:00

Ciao Vincenzo,

cmq non mi parte proprio il codice....allego screenshot

![](http://fud.community.services.support.microsoft.com/Fud/FileDownloadHandler.ashx?fid=78b41af8-5647-4594-96e3-9fc747ddbdd5)

Colpa mia!

Nel codice della routine Diagnostica, sostituisci

Const sPercorso As String = _"C:\Users\Utente\DesktopTaranto" '<<=== NONModifica

con:

Const sPercorso As String = _

"C:\Users\Utente\DesktopTaranto" '<<=== NON Modifica

Const sNameType As String = "*.csv"

===

Regards,

Norman

![](http://fud.community.services.support.microsoft.com/Fud/FileDownloadHandler.ashx?fid=df54ca82-7ea4-4e5f-aa22-cdfe33683708)
La risposta è stata utile?

0 commenti Nessun commento
Anonimo

2016-06-30T09:10:52+00:00

Ciao Vincenzo,

No, questo no....dai sono ignorante ma non cretino! :-D

Il mio suggerimento non era affatto inteso in senso offensivo. Devi capire che sto nuotando nel buio! Io ho utilizzato i tuoi file csv e il mio codice e ho ottenuto i risultati previsti. Il fatto che si trovino i file csv in una directory con un altro percoso sul tuo pc non dovrebbe avere alcuna influenza sui risultati ottenuti, a patto che il percorso sia corretto.

Quindi, aparte di provare la routine Diagnostica, come suggerito nella mia penultima risposta, nella routine Tester, prova a sostituire, temporaneomente, la riga

On Error GoTo XIT

con:

' On Error GoTo XIT '\ nota l'apostofo iniziale.

===

Regards,

Norman

![](http://fud.community.services.support.microsoft.com/Fud/FileDownloadHandler.ashx?fid=a6ae4cf2-1bb7-41f0-9ed1-9dce0e024a74)
La risposta è stata utile?

0 commenti Nessun commento
Anonimo

2016-06-30T13:53:54+00:00

con la nuova stringa (mancava lo \ dopo desktop) :-D è ok

![](http://fud.community.services.support.microsoft.com/Fud/FileDownloadHandler.ashx?fid=bbac50cb-f8d3-4db8-90ac-8ee77e5dc31b)
La risposta è stata utile?

0 commenti Nessun commento
Anonimo

2016-06-30T13:56:38+00:00

La mia era una battuta, nn basta a ringraziarti per quello che stai facendo per me....

Peace!
La risposta è stata utile?

0 commenti Nessun commento