Salva singolo foglio o più foglio di lavoro

ges

Excel/VBA Expert
Amministratore
Expert
21 Giugno 2015
18.123
736
113
Como
2011MAC 2016WIN
316
Per salvare un singolo foglio di lavoro come cartella.
Visual Basic:
Sub SalvaFoglio()
    Dim percorso As String
    Dim nomefile As String
    percorso = ThisWorkbook.Path & "\"
    nomefile = "pippo.xlsx"
    ActiveSheet.Copy
    ActiveWorkbook.SaveAs Filename:=percorso & nomefile
    ActiveWindow.Close
End Sub
Per salvare più fogli in una cartella di lavoro bisogna creare un Array
Visual Basic:
Sub SalvoPiuFogli()
    Dim percorso As String
    Dim nomefile As String
    Dim myArray As Variant
    percorso = ThisWorkbook.Path & "\"
    nomefile = "pippo.xlsx"
    myArray = Array("Foglio1", "Foglio3", "Foglio4")
    Sheets(myArray).Copy
    ActiveWorkbook.SaveAs Filename:=percorso & nomefile
    ActiveWindow.Close
End Sub
Il percorso e il nome del file sono indicati a titolo di esempio possono essere cambiati.
 

Sostieni ForumExcel

Aiutaci a sostenere le spese e a mantenere online la community attraverso una libera donazione!