Risultati da 1 a 5 di 5

Discussione: Copia fogli da un file ad un altro



  1. #1
    L'avatar di Keishusan
    Clicca e Apri
    Data Registrazione
    Jun 2016
    Località
    Rimini
    Messaggi
    35
    Versione Office
    2010
    Likes ricevuti
    0
    Likes dati
    0

    Copia fogli da un file ad un altro

    Salve a tutti,
    dovrei creare un codice che mi permette di copiare i primi 4 fogli di un file chiamato "1.xls" (i nomi dei fogli possono variare) in un altro file nella stessa cartella chiamato "2.xls" senza copiare i nomi dei fogli.
    Il tutto attivato da un tasto.

    Grazie mille per chi mi aiuterà

    Alessandro

  2. #2

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2823
    Versione Office
    Excel 2013
    Likes ricevuti
    1024
    Likes dati
    983

    Re: Copia fogli da un file ad un altro

    Citazione Originariamente Scritto da Keishusan Visualizza Messaggio
    [...] copiare i primi 4 fogli di un file chiamato "1.xls" (i nomi dei fogli possono variare) in un altro file nella stessa cartella chiamato "2.xls" senza copiare i nomi dei fogli.
    [...]
    Che nome devono avere i fogli? (vuoti/senza nome non si può|)

  3. #3
    L'avatar di Keishusan
    Clicca e Apri
    Data Registrazione
    Jun 2016
    Località
    Rimini
    Messaggi
    35
    Versione Office
    2010
    Likes ricevuti
    0
    Likes dati
    0

    Re: Copia fogli da un file ad un altro

    Anche i classici Foglio1, Foglio2, ecc... vanno benissimo, purché siano numerati e diversi dagli originali

  4. #4

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2823
    Versione Office
    Excel 2013
    Likes ricevuti
    1024
    Likes dati
    983

    Re: Copia fogli da un file ad un altro

    Prova con questa routine nel file 1.xls
    Codice: 
    Sub CopiaFogli()
    Dim Orig As Workbook
    Dim Dest As Workbook
    Dim i As Integer
    
    
    On Error GoTo Esci
    
    
    Set Dest = ThisWorkbook
    Set Orig = Workbooks.Open(Dest.Path & "/2.xlsx")
    
    
    For i = 4 To 1 Step -1
        Orig.Sheets(i).Copy before:=Dest.Sheets(1)
    Next
    
    
    Orig.Close
    
    
    Esci:
    Set Dest = Nothing
    Set Orig = Nothing
    
    
    End Sub
    P.S. i file 1.xls e 2.xls devono essere nella stessa cartella

  5. #5
    L'avatar di Keishusan
    Clicca e Apri
    Data Registrazione
    Jun 2016
    Località
    Rimini
    Messaggi
    35
    Versione Office
    2010
    Likes ricevuti
    0
    Likes dati
    0

    Re: Copia fogli da un file ad un altro

    Grazie mille!

Discussioni Simili

  1. [Risolto] MACRO copia range su un altro foglio con filtro
    Di cermeo nel forum Domande su Excel VBA e MACRO
    Risposte: 4
    Ultimo Messaggio: 22/02/17, 00:41
  2. Copia Incolla su altro file senza portare i riferimenti del vecchio File
    Di CarloM nel forum Domande su Excel in generale
    Risposte: 4
    Ultimo Messaggio: 05/02/17, 18:36
  3. Risposte: 19
    Ultimo Messaggio: 11/01/17, 19:50
  4. [Risolto] Stampare da un file excel fogli di lavoro presenti su un altro file excel
    Di Lorex nel forum Domande su Excel VBA e MACRO
    Risposte: 10
    Ultimo Messaggio: 09/12/16, 20:21
  5. [Risolto] copiare fogli da un file ad un'altro
    Di giovanni.mastellone nel forum Domande su Excel VBA e MACRO
    Risposte: 2
    Ultimo Messaggio: 20/10/16, 21:08

Permessi di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •