Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

[EXCEL] - Macro copia/incolla fogli

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] - Macro copia/incolla fogli

Postdi mmitola » 16/02/17 18:58

Buonasera a tutti,
scrivo questo topic dopo aver cercato per ore una discussione simile che facesse al caso mio (può anche essere che forse non ho cercato bene, in quel caso chiedo scusa agli amministratori in anticipo).
Vi espongo la mia necessità:

1) In una cartella ho 50 files excel contenenti tutti un foglio denominato "Riepilogo"
2) Vorrei semplicemente copiare il foglio riepilogo (all'interno di ognuno dei 50 files) in un unico files (mantenendo i fogli separati!!!).

Spero possiate aiutarmi.

Grazie in anticipo.
mmitola
Utente Junior
 
Post: 25
Iscritto il: 01/02/12 21:45

Sponsor
 

Re: [EXCEL] - Macro copia/incolla fogli

Postdi Anthony47 » 17/02/17 01:23

Prova con questa macro, da inserire in un modulo standard del vba di un nuovo file:
Codice: Seleziona tutto
Sub RiepRieps()
Dim fArr, myPath As String, myFile As String
'
myPath = "C:\Users\A_Monge1\Downloads"      '<<< Il percorso in cui sono contenuti i files
'
On Error GoTo skFile
Application.EnableEvents = False
Application.ScreenUpdating = False
Application.DisplayAlerts = False
myFile = Dir(myPath & "\*.xls")
Do
DoEvents
    If myFile = "" Then Exit Do
    If myFile <> ThisWorkbook.Name Then
        Workbooks.Open myPath & "\" & myFile
        Sheets("Riepilogo").Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
        fArr = Range(Range("A1"), Cells.SpecialCells(xlCellTypeLastCell)).Value
        Range(Range("A1"), Cells.SpecialCells(xlCellTypeLastCell)) = fArr
skFile:
        Resume skNext
skNext:
        Workbooks(myFile).Close False
    End If
    myFile = Dir
Loop
Application.EnableEvents = True
Application.ScreenUpdating = True
Application.DisplayAlerts = True
MsgBox ("Completato")
End Sub

La linea marcata <<< deve essere personalizzata come da commento.

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


Torna a Applicazioni Office Windows


Topic correlati a "[EXCEL] - Macro copia/incolla fogli":


Chi c’è in linea

Visitano il forum: Nessuno e 28 ospiti