Salva solo un foglio



  • Salva solo un foglio
    di Bassotto data: 04/08/2010

    Buonasera a tutti dovrei risolvere un problema ho un file xls formato da 5 fogli, ho la necessità di salvare con nome solo il foglio1, con il vba ho risolto il problema di salvare con nome prendendo da una cella il percorso e da un'altra il nome che cambia ogni volta. ma mi salva tutto il file completo dei 5 fogli.m la domanda è possibile salvare solo il foglio1.
    grazie



  • di Enzo (utente non iscritto) data: 05/08/2010

    La soluzione potrebbe essere questa
    se per ipotesi in a1 hai il percorso e in a2 il nome del file puoi memorizzare queste due variabili esempio nomepercorso= range ("a1").value & range (2a2").value
    poi puoi spostare o copiare foglio1 a seconda che tu voglia mantenere il foglio1 nel file iniziale
    l'istruzione e'
    sheets("foglio1").select
    sheets("foglio1").move
    poi salvarlo utilizzando la variabile che ti ho indicato inizialmente
    l'istruzione qui sotto fa quello che ti ho appena descritto
    p.s. il foglio qui viene spostato se vuoi copiarlo sostituisci .move con .copy
    ciao



     
    SUB SALVA()
     NOMEPERCORSO = Range("A1").Value & Range("A2").Value
        Sheets("Foglio1").Select
        Sheets("Foglio1").Move
        ActiveWorkbook.SaveAs Filename:=NOMEPERCORSO, FileFormat:=xlNormal, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
    END SUB