Copiare un foglio Excel in più file Excel

Buongirono,

ho un file excel con un "Foglio1" e dovrei copiare questo "Foglio1" in "più" file excel anzichè fare continui copi aed incolla.

Come posso ? VBA? Altro?

Si può fare con VBA, se provi con il registratore di macro poi il codice si può ottimizzare,

ciao.

P.S.

Gentilmente quando apri le discussioni, al completamento contrassegna le risposte utili e non lasciarle aperte, grazie.

Buongiorno,

grazie per il promemoria e l'indicazione

Ho ottenuto questo script con il registratore

Sub Macro3()

Macro3 Macro
Sheets("Foglio1").Select
Sheets("Foglio1").Copy Before:=Workbooks("Foglio2.xlsx").Sheets(1)
Windows("Foglio1.xlsx").Activate
End Sub
End Sub

Adesso come faccio a copiare foglio uno in più fogli ... devono essere per forza aperti i fogli di destinazione ? basta copiare la quarta riga inserendo un nome file diverso ?

Ti ringrazio per la gentile attenzione.

Adesso come faccio a copiare foglio uno in più fogli ... devono essere per forza aperti i fogli di destinazione ?

Si, devi aprirli, per cui o fai un ciclo nella cartella che li contiene o hai un elenco su foglio dei vari nomi dei file che, ad uno ad uno, vanno aperti, aggiunto il foglio e poi richiusi salvandoli.

basta copiare la quarta riga inserendo un nome file diverso ?

Come ti ho anticipato, si usa un ciclo For Next, ma fornisci prima il criterio con cui recuperare i vari file.

Ciao.

P.S.

Ovviamente la registrazione è alla base della scrittura del tuo codice, ma si può ottimizzare per quanto sopra ed insieme prenderà forma nella maniera migliore

Ho tutti i file inella stessa cartella.

Quindi, non se è sufficiente oppure se è necessario che apra tutti gli altri file prima di lanciare l'azione di copia su tutti i file della cartella.

Ho tutti i file inella stessa cartella.

Quindi, non se è sufficiente oppure se è necessario che apra tutti gli altri file prima di lanciare l'azione di copia su tutti i file della cartella.

Prova questo.

Sub OpenFiles() 

Dim strFolder As String, strFile As String 

Dim wkbThis As Workbook, wkbO As Workbook 

    strFolder = "C:\Temp\Prova" ' cartella da modificare

    strFile = Dir(strFolder & "\*.xlsx") 

    Set wkbThis = ThisWorkbook 

    Do Until strFile = "" 

        Set wkbO = Workbooks.Open(strFolder & "\" & strFile) 

        wkbThis.Worksheets("Foglio1").Copy wkbO.Sheets(1) 

        wkbO.Close True 

        strFile = Dir 

    Loop 

End Sub 

Ciao.