Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Excel - Più file elencati in uno

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

Excel - Più file elencati in uno

Postdi byrobby » 09/09/13 15:29

Buongiorno,
sono giorni che cerco una possibile soluzione, anticipo che sono nuovo del forum
provo a rivolgermi a voi.

Io vorrei poter unire più file, uno sotto l'altro in modo da ottenere un riassunto in un'unica tabella.

Spiego meglio ho uno stesso file duplicato che viene utilizzato da persone differenti, e dovrei copiare da tutti i file dalla cella A4 alla cella DA100, chiaramente solo le RIGHE compilate, e inserirle in sequenza in un unico file da poter poi analizzare separatamente.


GRAZIE GRAZIE GRAZIE
byrobby
Utente Junior
 
Post: 10
Iscritto il: 09/09/13 15:18

Sponsor
 

Re: Excel - Più file elencati in uno

Postdi ricky53 » 09/09/13 17:43

Ciao,
prima di tutto benvenuto nel nostro forum.

I vari file sono tutti nello stesso percorso del tuo PC?

Possiamo ipotizzare che tu copi tutti i file in un solo percorso?
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: Excel - Più file elencati in uno

Postdi byrobby » 10/09/13 10:37

Grazie intanto per la tempestività.

ricky53 ha scritto:I vari file sono tutti nello stesso percorso del tuo PC?


Sono su un nas in diversi percorsi.
Ogni file nella cartella della persona che deve poi compilare

ricky53 ha scritto:Possiamo ipotizzare che tu copi tutti i file in un solo percorso?


i file chiaramente li posso copiare tutti all'interno dello stesso percorso.
byrobby
Utente Junior
 
Post: 10
Iscritto il: 09/09/13 15:18

Re: Excel - Più file elencati in uno

Postdi ricky53 » 10/09/13 11:04

Ciao,
partiamo da questa ipotesi:
I FILE SONO TUTTI NELLO STESSO PERCORSO.

Prima di partire occorre sapere la versione di excel che utilizzi.
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: Excel - Più file elencati in uno

Postdi byrobby » 10/09/13 11:12

Excel 2007
byrobby
Utente Junior
 
Post: 10
Iscritto il: 09/09/13 15:18

Re: Excel - Più file elencati in uno

Postdi ricky53 » 10/09/13 15:03

Ciao,
Il foglio dal quale copiare i dati è uno solo ed il suo nome è sempre lo stesso in tutti i file ?
Ipotizzo che sia così.

più tardi ti invio un esempio di codice che legge tutti i file da un percorso stabilito ed unisce i vari file in uno solo.
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: Excel - Più file elencati in uno

Postdi ricky53 » 10/09/13 16:19

Ciao,
ho adattato alle tue esigenze un codice che avevo.

Può essere ottimizzato ma funzionerà ... provalo e sentiamoci.

Codice: Seleziona tutto
Option Explicit
Option Compare Text

Public RR As Long, UR As Long, Inizio As Double
Public MioPercorso As String, MioFile As String, Nome_Precedente As String
Public Wb_In As Workbook, Ws_In As String, Wb_Out As Workbook, Ws_Out As String
Public Rng_In As Range, Rng_Out As Range

Sub Leggi_Dati_e_Copia_Intervallo_Dati()
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Application.AskToUpdateLinks = False
    Application.EnableEvents = False
   
    Inizio = Timer
    Nome_Precedente = ActiveWorkbook.Name
    Sheets("Foglio1").Select ' <<=== QUI devi scrivere il nome del foglio sul quale scrivere i vari dati

    Set Wb_Out = ActiveWorkbook
    Ws_Out = Wb_Out.ActiveSheet.Name
    RR = Wb_Out.Sheets(Ws_Out).Range("A" & Rows.Count).End(xlUp).Row
    If RR < 4 Then
        RR = 4
    End If
    Range("A4:DA" & RR).Clear

    MioPercorso = "D:\Temp\ByRobby\" ' <<===== QUI devi scrivere il tuo percorso
    MioFile = Dir(MioPercorso & "*.xls*")
    UR = 4: RR = 0
    Do While MioFile <> ""
        Workbooks.Open Filename:=MioPercorso & MioFile
       
        Sheets("Foglio1").Select ' <<==== QUI devi scrivere il nome del foglio dal quale copiare i dati
        Set Wb_In = ActiveWorkbook
        Ws_In = Wb_In.ActiveSheet.Name
        RR = Wb_In.Sheets(Ws_In).Range("A" & Rows.Count).End(xlUp).Row
        Set Rng_In = Wb_In.Sheets(Ws_In).Range("A4:DA" & RR)
        Set Rng_Out = Wb_Out.Sheets(Ws_Out).Range("A" & UR)
       
        Rng_In.Copy
        Wb_Out.Activate
        Rng_Out.Select
        ActiveSheet.Paste
        UR = Wb_Out.Sheets(Ws_Out).Range("A" & Rows.Count).End(xlUp).Row + 1
        Windows(MioFile).Close

        MioFile = Dir()
    Loop
   
   
    Set Wb_In = Nothing
    Set Wb_Out = Nothing
    Application.EnableEvents = True
    Application.DisplayAlerts = True
    Application.AskToUpdateLinks = True
   
    Range("A4").Select
    Application.ScreenUpdating = True
    MsgBox "Elaborazione Effettuata in  " & Format(Timer - Inizio, "0.000") & "  secondi"
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: Excel - Più file elencati in uno

Postdi byrobby » 11/09/13 12:00

ricky53 ha scritto:Ciao,
ho adattato alle tue esigenze un codice che avevo.

Può essere ottimizzato ma funzionerà ... provalo e sentiamoci.


Grandissimo....

Provo più tardi e ti faccio sapere

ancora GRAZIE
byrobby
Utente Junior
 
Post: 10
Iscritto il: 09/09/13 15:18

Re: Excel - Più file elencati in uno

Postdi ricky53 » 11/09/13 15:56

Ciao,
ricordati di leggere i commenti che o inserito nel codice !!!

A risentirci
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: Excel - Più file elencati in uno

Postdi byrobby » 12/09/13 11:37

Sto provando il codice, ma non capisco per quale motivo mi copia anche la riga 3.....

sembra esserci qlcs che non funziona.

I file me li apre tutti, ma attualmente sembra copiare dalla riga tre in avanti e poi sovrascrive saltando solo una riga con il file successivo
Quindi ad esempio il primo file scrive partendo dalla cella A4 la sua riga tre poi la quattro e così via, poi il secondo file parte dalla cella A5 e sovrascrive... fino all'ultimo che parte dalla cella An e sovrascrive le righe precedenti e però chiaramente i sui campi compilati si vedono tutti.

Grazie ancora
byrobby
Utente Junior
 
Post: 10
Iscritto il: 09/09/13 15:18

Re: Excel - Più file elencati in uno

Postdi ricky53 » 13/09/13 09:47

Ciao,
Uhm, Uhm !!!

Per verificare servono almeno tre dei tuoi file ... ovviamente senza dati riservati.
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: Excel - Più file elencati in uno

Postdi byrobby » 13/09/13 11:51

ok. come faccio ad inoltrarteli?
byrobby
Utente Junior
 
Post: 10
Iscritto il: 09/09/13 15:18

Re: Excel - Più file elencati in uno

Postdi ricky53 » 13/09/13 12:07

Ciao,
leggi QUI
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: Excel - Più file elencati in uno

Postdi byrobby » 13/09/13 14:06

byrobby
Utente Junior
 
Post: 10
Iscritto il: 09/09/13 15:18

Re: Excel - Più file elencati in uno

Postdi ricky53 » 13/09/13 14:55

Ciao,
tu avevi scritto che l'intervallo era A-AD invece nel file è diverso.
La colonna cui fare riferimento per calcolare le righe non è la "A" ma è diventata la "E"
Anche la colonna "DA" non è l'ultima da copiare ma è diventata "CM"...

Ho modificato il codice solo per la colonna "E" ... eccolo
Codice: Seleziona tutto
Option Explicit
Option Compare Text

Public RR As Long, UR As Long, Inizio As Double
Public MioPercorso As String, MioFile As String, Nome_Precedente As String
Public Wb_In As Workbook, Ws_In As String, Wb_Out As Workbook, Ws_Out As String
Public Rng_In As Range, Rng_Out As Range

Sub Copia_Forecast()
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Application.AskToUpdateLinks = False
    Application.EnableEvents = False
   
    Inizio = Timer
    Nome_Precedente = ActiveWorkbook.Name
    Sheets("FORECAST").Select ' <<=== QUI devi scrivere il nome del foglio sul quale scrivere i vari dati

    Set Wb_Out = ActiveWorkbook
    Ws_Out = Wb_Out.ActiveSheet.Name
    RR = Wb_Out.Sheets(Ws_Out).Range("E" & Rows.Count).End(xlUp).Row ' <<===  MODIFICATA
    If RR < 4 Then
        RR = 4
    End If
    Range("A4:DA" & RR).Clear

    MioPercorso = "D:\Temp\Agenti\" ' <<===== QUI devi scrivere il tuo percorso
    MioFile = Dir(MioPercorso & "*.xls*")
    UR = 4: RR = 1
    Do While MioFile <> ""
        Workbooks.Open Filename:=MioPercorso & MioFile
       
        Sheets("FORECAST").Select ' <<==== QUI devi scrivere il nome del foglio dal quale copiare i dati
        Set Wb_In = ActiveWorkbook
        Ws_In = Wb_In.ActiveSheet.Name
        RR = Wb_In.Sheets(Ws_In).Range("E" & Rows.Count).End(xlUp).Row ' <<===  MODIFICATA
        Set Rng_In = Wb_In.Sheets(Ws_In).Range("A4:DA" & RR)
        Set Rng_Out = Wb_Out.Sheets(Ws_Out).Range("A" & UR)
       
        Rng_In.Copy
        Wb_Out.Activate
        Rng_Out.Select
        ActiveSheet.Paste
        UR = Wb_Out.Sheets(Ws_Out).Range("E" & Rows.Count).End(xlUp).Row + 1 ' <<===  MODIFICATA
        Windows(MioFile).Close

        MioFile = Dir()
    Loop
   
   
    Set Wb_In = Nothing
    Set Wb_Out = Nothing
    Application.EnableEvents = True
    Application.DisplayAlerts = True
    Application.AskToUpdateLinks = True
   
    Range("A4").Select
    Application.ScreenUpdating = True
    MsgBox "Elaborazione Effettuata in  " & Format(Timer - Inizio, "0.000") & "  secondi"

End Sub


Prova e ... sono QUI
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: Excel - Più file elencati in uno

Postdi byrobby » 13/09/13 20:58

Grazie grazie e ancora grazie

Funziona tutto, faccio ancora qlc test e poi ti aggiorno
byrobby
Utente Junior
 
Post: 10
Iscritto il: 09/09/13 15:18

Re: Excel - Più file elencati in uno

Postdi byrobby » 13/09/13 21:31

Ma per caso è possibile saltare la copia di un file nel caso la cella A4 dello stesso è vuota.

Ti chiedo questo perchè provando a creare un file duplicato con i campi vuoti mi ripropone la copia della riga 3, chiaramente solo di quel file, mentre tutti gli altri li copia perfettamente.
byrobby
Utente Junior
 
Post: 10
Iscritto il: 09/09/13 15:18

Re: Excel - Più file elencati in uno

Postdi ricky53 » 13/09/13 22:48

Ciao,
si, si può fare, però un file vuoto puoi anche non inserirlo nel percorso dove vanno i file da copiare.
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: Excel - Più file elencati in uno

Postdi byrobby » 20/09/13 13:17

Ciao a tutti.
Il file è operativo e funzionante....

Provo però ad aggiungere una piccola richiesta.

Le persone a cui è dedicato il foglio con le macro utilizzano piattaforme differenti.
Ho già creato un file per MAC e uno per WIN, ma il percorso samba, in WINDOWS funziona
\\10.10.0.50\comerciale\
mentre in MAC si ferma
smb://10.10.0.50/commerciale/


Cosa devo scrivere per far sì che funzioni?
byrobby
Utente Junior
 
Post: 10
Iscritto il: 09/09/13 15:18


Torna a Applicazioni Office Windows


Topic correlati a "Excel - Più file elencati in uno":


Chi c’è in linea

Visitano il forum: Lucio Peruggini e 4 ospiti

cron