Condividi:        

file riepilogo con dati da più files

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

Re: file riepilogo con dati da più files

Postdi andreaxg1 » 28/10/14 15:29

Sub MergeSelectedWorkbooks()
Dim Ws_Out As Worksheet
Dim Percorso As String
Dim File_Selezionati() As Variant
Dim Num_Riga As Long
Dim FileName As String
Dim NFile As Long
Dim WB As Workbook
Dim Intervallo_In As Range
Dim Intervallo_Out As Range

Set Ws_Out = ActiveWorkbook.Sheets(1)

Percorso = "\\\\\\\\\\" ' <<===== INSERIRE IL PERCORSO
ChDrive Percorso
ChDir Percorso
File_Selezionati = Application.GetOpenFilename( _
filefilter:="Excel Files (*.xl*), *.xl*", MultiSelect:=True)

Num_Riga = 2
For NFile = LBound(File_Selezionati) To UBound(File_Selezionati)
FileName = File_Selezionati(NFile)
Set WB = Workbooks.Open(FileName)
Ws_Out.Range("A" & Num_Riga).Value = FileName
UR = WB.Worksheets(2).Range("A" & Rows.Count).End(xlUp).Row ' <<===== AGGIUNTA
Set Intervallo_In = WB.Worksheets(2).Range("A5:F" & UR) ' <<===== Intervallo dati del "PRIMO FOGLIO" da copiare
Set Intervallo_Out = Ws_Out.Range("B" & Num_Riga)
Set Intervallo_Out = Intervallo_Out.Resize(Intervallo_In.Rows.Count, _
Intervallo_In.Columns.Count)
Intervallo_Out.Value = Intervallo_In.Value
Num_Riga = Num_Riga + Intervallo_Out.Rows.Count
WB.Close savechanges:=False
Next NFile
Ws_Out.Columns.AutoFit
End Sub
andreaxg1
Utente Junior
 
Post: 16
Iscritto il: 15/10/14 14:43

Sponsor
 

Re: file riepilogo con dati da più files

Postdi andreaxg1 » 28/10/14 15:30

questa è la mia ultima versione, c'è solo da aggiungere il percorso per elaborare i diversi file
andreaxg1
Utente Junior
 
Post: 16
Iscritto il: 15/10/14 14:43

Re: file riepilogo con dati da più files

Postdi ricky53 » 28/10/14 16:21

Ciao,
aggiungi le seguenti due istruzioni prima di "Next NFile"
Codice: Seleziona tutto
    WB.Close savechanges:=False
'
     UR = Ws_Out.Range("A" & Rows.Count).End(xlUp).Row '<<===== Aggiunta
    Ws_Out.Range("A" & UR).Copy Destination:=Ws_Out.Range("A" & UR + 1 & ":A" & Num_Riga - 1) '<<===== Aggiunta
'
Next NFile



P.S.: ricordati di utilizzare i TAG per il codice. Inoltre è buona norma indentare il codice per aumentarne la sua leggibilità
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. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Re: file riepilogo con dati da più files

Postdi andreaxg1 » 28/10/14 17:09

Scusa, ma non ho proprio idea di come si fa ad utilizzare il TAG per i codici. Comunque l'ho provato e sembra che vada bene. Nei prossimi giorni avrò modo di testarlo meglio, ma credo che non ci saranno problemi. A questo punto ti ringrazio della pazienza e sopratutto della macro. Nel poco tempo libero che ho proverò ad apprendere il linguaggio VBA, a presto
andreaxg1
Utente Junior
 
Post: 16
Iscritto il: 15/10/14 14:43

Re: file riepilogo con dati da più files

Postdi ricky53 » 29/10/14 00:12

Ciao,
bene.
In rete troverai di corsi sul VBA di buon livello
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. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Precedente

Torna a Applicazioni Office Windows


Topic correlati a "file riepilogo con dati da più files":


Chi c’è in linea

Visitano il forum: Nessuno e 82 ospiti