Unire in excel più fogli di diversi file in un unico foglio di un unico file

Question

Ciao a tutti vi spiego la mia esigenza

ho molteplici file excel, ciascuno con gli stessi fogli (ugualmente titolati). I fogli corrispondenti hanno stesse intestazioni di colonne popolate però con diverso numero di righe.

L'esigenza - come facilmente intuibile - è di ottenere un file finale con con gli stessi fogli contenenti tutte le righe di tutti i fogli dei singoli file.

Al link di seguito due tra i file di cui mi necessita l' "unione" finale.

https://dl.dropboxusercontent.com/u/110044258/excel%20da%20unire.zip 

I fogli da unire sono quelli titolati "wiring list" e "device list"; le righe da riportare nel file unione vanno dalla 3 in poi. Ovviamente metterei tutti i file (file di unione compreso) nella stessa cartella.

Grazie a chiunque potrà darmi uno spunto

Answer 1

Ciao Dario

la rete è piena di tutorial utili e questa stessa comunity ha tante discussioni che puoi consultare con domande e risposte a questioni pratiche riscolte con il VBA

ti riporto una delle tante pagine su cui mi sono "formato"

http://mikevba.altervista.org/

saluti

Answer 2

Ciao Nicola,

grazie per la tua risposta e per il codice!! Funziona davvero bene!! In realtà sto "studiacchiando" un po' per cercare di capire come funziona e diventare almeno un po' autonomo con il vba. Magari ti disturberò ancora per chiederti qualche info su parti di codice che stento a capire, spero di non approfittare della tua disponibilità. A proposito se hai qualche link da utile da indicarmi per imparare è ben accetto!! Grazie ancora!! Buona serata

Answer 3

Ciao

crea un nuovo excel e salvalo in un percorso diverso da quello dove hai tutti i file da unire.

poi lancia questa Macro

Sub Sfoglia_Files()

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

''''' ATTENZIONE RICHIEDE L'ATTIVAZIONE DELLA LIBRERIA MICROSOFT SCRIPTING RUNTIME '''''

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

    Dim strPath As String

    Dim objFSY As FileSystemObject

    Dim objFOL As Folder

    Dim objFIL As File

    Dim wbFrom As Workbook, wbTo As Workbook

    Dim wsFrom As Worksheet, wsTo As Worksheet

    Dim x As Long, i As Long

    Dim rngCopy As Range

    Set wbTo = ThisWorkbook

    Set wsTo = wbTo.Sheets(1)

    strPath = "C:\Users\qz0pyp\Desktop\mc" '''QUI IL PERCORSO

    Set objFSY = New FileSystemObject

    Set objFOL = objFSY.GetFolder(strPath)

    For Each objFIL In objFOL.Files

        x = wsTo.Range("B" & wsTo.Rows.Count).End(xlUp).Row + 1

        Set wbFrom = Application.Workbooks.Open(objFIL)

        Set wsFrom = wbFrom.Sheets(1)

            With wsFrom

                i = .Range("A" & .Rows.Count).End(xlUp).Row

                Set rngCopy = .Range("A1:Q" & i)

                rngCopy.Copy wsTo.Cells(x, 1)

                Set rngCopy = Nothing

            End With

        wbFrom.Close 0

        Set wbFrom = Nothing

        Set wsFrom = Nothing

    Next

    Set objFSY = Nothing

    Set objFOL = Nothing

    Set wbTo = ThisWorkbook

    Set wsTo = Nothing

End Sub

imposta il range che vuoi vengano copiate da ogni foglio (io ho messo da "A" a "Q") e ovviamente il tuo percorso locale ... dovrebbe funzionare

Answer 4

Ciao,

ho provato attivando la libreria ma senza esito...purtroppo ho i veri files a lavoro e non riesco a caricarli qui, i pc sono tutti bloccati...provo con un link di wetransfer in cui ci sono dei files simili per struttura a quelli su cui sto lavorando davvero. Quello di cui avrei bisogno è che il contenuto di ciascun foglio venga messo uno sotto l'altro in un altro foglio...

http://we.tl/lRkxl0Dkv7

Grazie mille, il vostro aiuto è davvero molto prezioso.

Answer 5

hai attivato la  "LIBRERIA MICROSOFT SCRIPTING RUNTIME" ?

Devi entrare nel VBA --> Strumenti --> Riferimenti --> MICROSOFT SCRIPTING RUNTIME

Se vuoi puoi allegare i file (puoi usare microsoft onedrive)

Se parliamo della macro di Andrea, non ne vedo il motivo.

Non c'è nulla che porti alla sua attivazione.