Copiare un foglio Excel in più file Excel

ciao

guarda che il file campione

lo devi salvare come XLSM

Buongiorno,

mi dispiace ma qualcosa non ha funzionato !

Ho inserito sul desktop una cartella di prova Nuova Cartella, redatto all'interno un file Prova1 e successivi (Prova2,Prova3,Prova4.xlsx)

Poi, ho inserito alcuni numeri nel Foglio1 del file Prova1.xlsx con l'intenzione di copiare nei fogli successivi.

ALT+F11, inserisci modulo ed ho copiato ed incollato lo script cancellando Option Explicit ed aggiornando la cartella come indicato.

Selezionato tutto e premuto F5, mi compare una finestra "Impossibile salvare le caratteristiche di lavoro senza macro..." e creato una copia del Foglio1 nello stesso file Prova1.xlsx e sugli altri file nulla.

Ho effettuato la prova tenendo aperti anche gli altri file di destinazione ma non ha funzionato.

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.

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.

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