macro per effettuareuna stessa operazione su più file excel

[michelamsc]

Buongiorno vorrei creare una macro che faccia queste azioni:
Aprire più file excel, copiare la seconda riga del “foglio 2” di ciascun file ed incollarla nella prima riga vuota del “foglio 1” di un file denominato “finale.xls”.
Il problema è che l’operazione deve essere ripetuta per 100 volte. I 100 file excel si trovano nella stessa cartella e ogni file è stato salvato con il codice fiscale del soggetto che lo ha compilato.
Ho creato la macro che agisce su 2 file. Come faccio ad automatizzarla per evitare di ripetere 100 volte l’operazione?

Codice: Seleziona tutto

Sub Macro2()
'
' Macro2 Macro
'
    Workbooks.Open Filename:= _
        "C:\Documents and Settings\Documenti\prova\mscmhsl419c.xls"
    Rows("2:2").Select
    Selection.Copy
    Windows("finale.xls").Activate
    Range("A2").Select
    ActiveSheet.Paste
    Workbooks.Open Filename:= _
        "C:\Documents and Settings\ \Documenti \prova\abcdefghilm.xls"
    Rows("2:2").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("finale.xls").Activate
    Range("A3").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ActiveWorkbook.Save
End Sub

[Anthony47]

Ciao michelamsc, benvenuto/a nel forum.

Ti rimanderei a questa discussione analoga: viewtopic.php?f=26&t=92291 In particolare il mio messaggio del 20/07.

Userai la prima macro, Sub sprpp(), per leggere i nomi file presenti in una directory impostabile; la seconda, Sub FImp(NFile) (richiamata dalla prima) apre il file, seleziona il foglio giusto, legge il range che ti serve e lo ricopia nel foglio di destinazione.
La Sub sprpp() e' di intuitiva personalizzazione, la Sub FImp(NFile) corrispondera' nel tuo caso a questo codice:

Codice: Seleziona tutto

Sub FImp(NFile)
Workbooks.Open Filename:=NFile
Sheets("Foglio2").Activate
Range("A2:Z2").Copy Destination:=ThisWorkbook.Sheets("Foglio1").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
Workbooks(NFile).Close savechanges:=False
End Sub


La macro e' da inserire all' interno del file Finale.xls.

Prova e fai sapere.