Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Riepilogo dati da tutti i file di una cartella

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

Riepilogo dati da tutti i file di una cartella

Postdi franz79 » 27/05/14 10:38

Salve a tutti,sono un nuovo iscritto,vengo subito al dunque.
Ho una cartella contenente alcuni file excel,tutti uguali come struttura(un classico foglio ordini).
Vorrei poter sommare i valori della stessa cella di tutti i file in un file di riepilogo.
Es.cella a1 del file di riepilogo somma celle a1 degli altri file.
So che sarebbe stato piu' facile utilizzare un file unico con piu fogli ordini all'interno e il foglio di riepilogo con la formula =somma per ogni cella,ma il tutto diventava troppo pesante e ci metteva troppo ad aprirsi o bloccandosi.
franz79
Newbie
 
Post: 6
Iscritto il: 27/05/14 10:06

Sponsor
 

Re: Riepilogo dati da tutti i file di una cartella

Postdi ricky53 » 27/05/14 12:03

Ciao,
prima di tutto benvenuto nel n ostro forum.

Adesso veniamo al tuo quesito:
quanto chiedi si può fare con una macro che scandisce il tuo percorso, apre i file che hanno radice definita, li apre e somma il contenuto della cella "A1" di ogni file nella cella "B2" del file di riepilogo.

Questo è il flusso logico adesso la domanda per arrivare al risultato: come te la cavi con il VBA e con la programmazione?
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W7; Office 2003-10-13-16
Avatar utente
ricky53
Utente Senior
 
Post: 4223
Iscritto il: 11/04/09 19:29
Località: Italia

Re: Riepilogo dati da tutti i file di una cartella

Postdi franz79 » 27/05/14 13:48

So soltanto a cosa serve,le macro le so soltanto registrare col registratore di macro.
franz79
Newbie
 
Post: 6
Iscritto il: 27/05/14 10:06

Re: Riepilogo dati da tutti i file di una cartella

Postdi ricky53 » 28/05/14 09:48

Ciao,
Visto che sei nuovo del forum ti propongo una soluzione che dovrebbe andarti bene ma ... NON ti ci abituare ... Eh, Eh !!!

Consiglio: cerca di imparare ad utilizzare il VBA ... leggi sempre con molta attenzione il codice che ti viene proposto o che trovi e fai delle ricerche nel forum e con Google, troverai molto che ti potrà essere utile ed imparerai a muoverti nel VBA !!!

Buon proseguimento.


Fai attenzione ai commenti che ho inserito nel codice.
Ho ipotizzato che i dati siano nella cella "A2" di ogni file presente nel tuo percorso e vengono copiati nella cella "B2" del file attivo.
Cambia in base alle tue condizioni reali.
Codice: Seleziona tutto
Option Explicit

Sub Elenco_Files()
    Dim mPercorso As String, mFile As String, mValore As Double, mTrovati
   
    Application.ScreenUpdating = False
    mPercorso = "D:\Temp\" ' QUI devi inserire il "Tuo Percorso"
    If Right(mPercorso, 1) <> "\" Then
        mPercorso = mPercorso & "\"
    End If
    mTrovati = 0
    mFile = Dir(mPercorso & "*.xls", vbNormal) ' QUI devi scrivere l'estensione dei file dai quali prendere i valori
    If Len(mFile) = 0 Then
        MsgBox "Nel percorso  '" & mPercorso & "'  non sono stati trovati file con estensione '.xls'", vbExclamation
        Exit Sub
    End If
   
    Do While Len(mFile) > 0
        Workbooks.Open Filename:=mPercorso & mFile
       
        mValore = mValore + Sheets("Foglio1").Range("A2") ' QUI devi inserire il nome del foglio "DAL" quale copiare i dati
        mFile = Dir
        mTrovati = mTrovati + 1
        ActiveWorkbook.Close SaveChanges:=False
    Loop
    Application.ScreenUpdating = True
    Sheets("Foglio1").Range("B2") = mValore ' QUI devi inserire il nome del foglio "SUL" quale copiare i dati
   
    MsgBox "Sono stati elaborati  '" & mTrovati & "'   file", vbInformation
End Sub
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W7; Office 2003-10-13-16
Avatar utente
ricky53
Utente Senior
 
Post: 4223
Iscritto il: 11/04/09 19:29
Località: Italia

Re: Riepilogo dati da tutti i file di una cartella

Postdi Anthony47 » 28/05/14 15:02

Quanto proposto da Ricky (vedi sopra) risolvera' certamente la tua richiesta.
Comunque io suggerirei per il futuro un approccio leggermente diverso, e cioe' creare su un secondo file un estratto di ogni foglio ordine man mano che questi fogli vengono creati, contenente (l' estratto) tutte le celle che vuoi tenere a disposizione nel file di riepilogo per elaborazioni future.
Una discussione che tratta questo argomento e' questa: viewtopic.php?f=26&t=102010

La stessa macro di Ricky potrebbe, con piccoli aggiustamenti, essere usata per creare questi estratti relativamente ai file che hai gia' generato.

Ciao a tutti.
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13892
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Riepilogo dati da tutti i file di una cartella

Postdi franz79 » 29/05/14 08:50

Grazie a entrambi,ottimi spunti su cui lavorare.
franz79
Newbie
 
Post: 6
Iscritto il: 27/05/14 10:06


Torna a Applicazioni Office Windows


Topic correlati a "Riepilogo dati da tutti i file di una cartella":


Chi c’è in linea

Visitano il forum: Nessuno e 7 ospiti