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-28T16:52:51+00:00

Ciao Fratello.

Io vedo un file .xlsm in quella Directory:

![](http://fud.community.services.support.microsoft.com/Fud/FileDownloadHandler.ashx?fid=e7bec320-1877-4553-b466-090a44da18d8)

Casomai non centra nulla....
La risposta è stata utile?

0 commenti Nessun commento
Anonimo

2016-06-28T16:51:54+00:00

Ecco a te il risultato

![](http://fud.community.services.support.microsoft.com/Fud/FileDownloadHandler.ashx?fid=b19431eb-9a13-459b-8d11-71c001df52d5)
La risposta è stata utile?

0 commenti Nessun commento
Anonimo

2016-06-28T16:28:13+00:00

Ciao Vincenzo,

Esegui il seguente codice e fammi vedere il messggio che ottieni:

'===========>>

Option Explicit

'----------->>

Public Sub Diagnostica()

Dim FSO As Object

Dim oFile As Object

Dim oFiles As Object

Dim oFolder As Object

Dim iFile As Long

Const sPercorso As String = _

"C:\Users\Utente\Documents" '<<=== Modifica

Set FSO = CreateObject("Scripting.FileSystemObject")

Set oFolder = FSO.GetFolder(sPercorso)

Set oFiles = oFolder.Files

For Each oFile In oFiles

If oFile.Name Like sNameType Then

iFile = iFile + 1

End If

Next oFile

Call MsgBox( _

Prompt:="Il numero di file csv trovati nella cartella " _

& sPercorso & "= " & iFile, _

Buttons:=vbInformation, _

Title:="REPORT")

End Sub

'<<=========

===

Regards,

Norman

![](http://fud.community.services.support.microsoft.com/Fud/FileDownloadHandler.ashx?fid=d01e8bfd-ff21-4e1b-8775-9e15aa5d6599)
La risposta è stata utile?

0 commenti Nessun commento
Anonimo

2016-06-28T16:17:27+00:00

Ciao,

altro screenshot della cartella dove si evince che tuitti i files sono csv :-D![](http://fud.community.services.support.microsoft.com/Fud/FileDownloadHandler.ashx?fid=48957d56-c13b-4e86-b35c-839e1a44b2c0)
La risposta è stata utile?

0 commenti Nessun commento