Condividi:        

macro unire fogli in un unico file

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

macro unire fogli in un unico file

Postdi enrico.ventu92 » 12/05/17 14:13

Ciao a tutti,

sono nuovo del forum e sono qui perchè sto iniziando a lavorare con le macro, ma non sono molto pratico!

Avrei bisogno del vostro aiuto per creare una macro che mi aiuti a raggruppare in un unico file excel i fogli di diversi file, nel forum al momento ho trovato solo macro che uniscono file diversi in un unico foglio, io avrei bisogno di mantenerli invece in fogli separati ma in un unico file.

La situazione in cui mi trovo è questa:
1) ho una cartella che si chiama REPORT
2) Dentro questa cartella ho vari file, ciascuno si chiama con il nome della nazione a cui appartiene quel report (es "BRASILE", "USA"; "ITALIA"...). Questi fogli sono al massimo 10.
3) tutti i file hanno la stessa struttura, le colonne utilizzate sono A:O

Ho bisogno di creare un file unico che raggruppi tutti questi fogli, si chiamerà REPORT_TOTALE e dovrà avere al suo interno un foglio per ogni nazione (quindi il foglio "BRASILE", ecc..").

In questo file io vorrei che per ciascun foglio le colonne A:O venissero riempite dalla macro, nelle colonne seguenti invece vorrei impostare io delle formule per fare delle analisi.

Siccome devo fare questo lavoro praticamente tutti i giorni vorrei evitare di fare copia e incolla, ecco perchè chiedo il vostro aiuto.


Grazie a chi potrà darmi una mano :-)

Enrico
enrico.ventu92
Newbie
 
Post: 2
Iscritto il: 12/05/17 13:56

Sponsor
 

Re: macro unire fogli in un unico file

Postdi alfrimpa » 12/05/17 14:58

Ciao Enrico

Secondo me dovresti allegare 2/3 file di esempio con i dati ed un altro che costituirebbe il riepilogo con i dati inseriti a mano nella posizione in cui vuoi siano messi.

Io fino a lunedì non ci sono ma se alleghi i file sicuramente ti risponderà qualcun altro.
Alfredo

Win7 + Office 2007
Avatar utente
alfrimpa
Utente Senior
 
Post: 1201
Iscritto il: 30/12/13 17:01
Località: Napoli

Re: macro unire fogli in un unico file

Postdi Anthony47 » 12/05/17 15:00

Ciao Enrico, benvenuto nel forum.
Allora creati un tuo file con dentro tanti Fogli con i nomi delle nazioni a cui sei interessato (ma e' anche possibile inserire fogli cui non corrisponde nessuna nazione, non saranno toccati).
Salva il file nella stessa directory in cui si trovano i file nazionali.
Poi riaprilo e inserisci questa macro:
Codice: Seleziona tutto
Sub GetSubs()
Dim WK As Worksheet, myFile As String
'
For Each WK In ThisWorkbook.Worksheets
    myFile = Dir(ThisWorkbook.Path & "\" & WK.Name & ".xls*")
   
    On Error Resume Next
    If myFile <> "" Then
        Workbooks.Open ThisWorkbook.Path & "\" & myFile
        Sheets(1).Range("A:O").Copy WK.Range("A1")
        ActiveWorkbook.Close False
        Application.CutCopyMode = False
    End If
Next WK
MsgBox ("Completato...")
End Sub

Operativamente, partendo da Excel:
-premi Alt-F11 per aprire l'editor delle macro
-Menu /Inserisci /Modulo
-Copia il codice e incollalo nel frame dx del modulo appena creato

Poi torna su Excel e, quando ti serve, lancia la macro GetSubs:
-premi Alt-F8
-seleziona GetSubsdall'elenco di macro disponibili
-premi Esegui
A questo punto i vari file dovrebbero aprirsi in sequenza e il contenuto delle colonen A:O viene copiato nel foglio corrispondente, SOSTITUENDO INTEGRALMENTE il contenuto precedente del foglio.

Se ci sono dei file a cui non corrisponde un Foglio essi saranno ignorati.
In questo modo potrai gestire piu' file di riepilogo; ad esempio uno per l'Europa, uno per le Americhe, ... , uno Mondiale.

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

Re: macro unire fogli in un unico file

Postdi enrico.ventu92 » 12/05/17 15:38

Ciao,

funziona perfettamente, è esattamente quello che volevo! Grazie!

Enrico
enrico.ventu92
Newbie
 
Post: 2
Iscritto il: 12/05/17 13:56


Torna a Applicazioni Office Windows


Topic correlati a "macro unire fogli in un unico file":


Chi c’è in linea

Visitano il forum: Nessuno e 60 ospiti