Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

macro per effettuareuna stessa operazione su più file excel

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 per effettuareuna stessa operazione su più file excel

Postdi michelamsc » 06/06/12 11:44

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
michelamsc
Newbie
 
Post: 1
Iscritto il: 06/06/12 11:33

Sponsor
 

Re: macro per effettuareuna stessa operazione su più file ex

Postdi Anthony47 » 06/06/12 13:45

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.
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: 13904
Iscritto il: 21/03/06 16:03
Località: Ivrea


Torna a Applicazioni Office Windows


Topic correlati a "macro per effettuareuna stessa operazione su più file excel":


Chi c’è in linea

Visitano il forum: patel e 5 ospiti