Risultati da 1 a 15 di 15

Discussione: Esportare singolo foglio da xlsm a xlsx.



  1. #1
    L'avatar di James
    Clicca e Apri
    Data Registrazione
    Feb 2016
    Località
    Bari
    Messaggi
    35
    Versione Office
    2016 Mac
    Likes ricevuti
    0
    Likes dati
    0

    Esportare singolo foglio da xlsm a xlsx.

    Salve

    Desideravo una macro che mi permettesse,premuto il pulsante, di esportare il singolo foglio Archivio nel formato xlsx, il fomato excel.
    File Allegati File Allegati

  2. #2

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2808
    Versione Office
    Excel 2013
    Likes ricevuti
    1020
    Likes dati
    979
    Se ho capito bene, basta che usi il registratore di macro e salvi con nome la nuova Cartella come "Cartella di lavoro di Excel"
    e associ la macro appena creata al tasto che hai già inserito

  3. #3
    L'avatar di James
    Clicca e Apri
    Data Registrazione
    Feb 2016
    Località
    Bari
    Messaggi
    35
    Versione Office
    2016 Mac
    Likes ricevuti
    0
    Likes dati
    0
    Si ma salvando come nuova Cartella, me la salva con tutti i 4 fogli presenti, io la vorrei salvare come nuova cartella ma con il singolo foglio.

  4. #4

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2808
    Versione Office
    Excel 2013
    Likes ricevuti
    1020
    Likes dati
    979
    Tasto dx sulla linguetta del foglio desiderato "Sposta o copia"
    Sposta i fogli selezionati ==> nella cartella ==> (Nuova cartella)
    flag su "Crea una copia"
    sempre con il registratore attivato

  5. #5

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Sardegna
    Età
    37
    Messaggi
    4019
    Versione Office
    2013
    Likes ricevuti
    1227
    Likes dati
    923
    Ciao a tutti,
    si potrebbe usare questa macro (in un modulo standard):

    Codice: 
    Option Explicit
    
    
    Sub esporta()
    Dim Percorso As String, Nome As String
    
    
    Percorso = ActiveWorkbook.Path
    Nome = ActiveSheet.Name & " " & Format(Date, "dd-mm-yyyy")
    ActiveSheet.Copy
    ActiveWorkbook.SaveAs Percorso & "\" & Nome & ".xlsx"
    ActiveWorkbook.Close
    MsgBox "File salvato con il nome : " & Nome & ".xlsx"
    
    
    End Sub
    Il nome del file sarà "Archivio" e la data del giorno in cui è stato salvato.
    Il percorso sarà lo stesso del file originale.

    [EDIT]
    :280:... non avevo più aggiornato la pagina e non ho visto le nuove risposte...
    File Allegati File Allegati

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare."

  6. I seguenti utenti hanno dato un "Like"


  7. #6
    L'avatar di James
    Clicca e Apri
    Data Registrazione
    Feb 2016
    Località
    Bari
    Messaggi
    35
    Versione Office
    2016 Mac
    Likes ricevuti
    0
    Likes dati
    0
    Mi da questo errore perchè? ho qualche limitazione attiva?

    Errore di runtime "1004":

    Non si dispone dell'autorizzazione a salvare file in questo percorso.x0017Accertarsi di disporre dell'accesso in scrittura per questo percorso oppure scegliere un percorso diverso

  8. #7

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Sardegna
    Età
    37
    Messaggi
    4019
    Versione Office
    2013
    Likes ricevuti
    1227
    Likes dati
    923
    Citazione Originariamente Scritto da James Visualizza Messaggio
    Mi da questo errore perchè? ho qualche limitazione attiva?

    Errore di runtime "1004":

    Non si dispone dell'autorizzazione a salvare file in questo percorso.x0017Accertarsi di disporre dell'accesso in scrittura per questo percorso oppure scegliere un percorso diverso
    Non ho idea di quale sia il tuo percorso....
    Prova a cambiarlo per vedere se funziona.

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare."

  9. #8

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Sardegna
    Età
    37
    Messaggi
    4019
    Versione Office
    2013
    Likes ricevuti
    1227
    Likes dati
    923
    [EDIT]
    leggo solo ora che hai il Mac...

    se non sbaglio, il percorso nel Mac va scritto in modo differente (es. "slash" invece di "back-slash") ma non avendo il Mac non saprei quale possa essere il reale problema.

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare."

  10. #9

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Sardegna
    Età
    37
    Messaggi
    4019
    Versione Office
    2013
    Likes ricevuti
    1227
    Likes dati
    923
    Prova a mettere i due punti (:) al posto del backslash (\):

    Codice: 
    Sub esporta()
    Dim Percorso As String, Nome As String
    
    
    Percorso = ActiveWorkbook.Path
    Nome = ActiveSheet.Name & " " & Format(Date, "dd-mm-yyyy")
    ActiveSheet.Copy
    ActiveWorkbook.SaveAs Percorso & ":" & Nome & ".xlsx"
    ActiveWorkbook.Close
    MsgBox "File salvato con il nome : " & Nome & ".xlsx"
    
    
    End Sub

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare."

  11. #10
    L'avatar di James
    Clicca e Apri
    Data Registrazione
    Feb 2016
    Località
    Bari
    Messaggi
    35
    Versione Office
    2016 Mac
    Likes ricevuti
    0
    Likes dati
    0
    Si si con Windows funziona benissimo, ti ringrazio. Desideravo solo se fosse possibile, eliminare il pulsante nel file Archivio esportato.

  12. #11

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Sardegna
    Età
    37
    Messaggi
    4019
    Versione Office
    2013
    Likes ricevuti
    1227
    Likes dati
    923
    Citazione Originariamente Scritto da James Visualizza Messaggio
    Si si con Windows funziona benissimo, ti ringrazio. Desideravo solo se fosse possibile, eliminare il pulsante nel file Archivio esportato.
    Aggiungi queste righe (in rosso) al codice:

    Codice: 
    Option Explicit
    
    Sub esporta()
    Dim Percorso As String, Nome As String
    
    Percorso = ActiveWorkbook.Path
    Nome = ActiveSheet.Name & " " & Format(Date, "dd-mm-yyyy")
    ActiveSheet.Copy
    ActiveWorkbook.SaveAs Percorso & "\" & Nome & ".xlsx"
    ActiveSheet.Shapes("Button 1").Delete
    ActiveWorkbook.Save
    ActiveWorkbook.Close
    MsgBox "File salvato con il nome : " & Nome & ".xlsx"
    
    End Sub
    Ci sarebbe da prevedere il caso in cui il file (con lo stesso nome) esiste già.... ci farai sapere se si può presentare questo problema.

    [EDIT]
    Se nel file originale il pulsante non si chiama "Button 1" dovrai modificare il nome per cancellare il giusto pulsante.

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare."

  13. #12
    L'avatar di James
    Clicca e Apri
    Data Registrazione
    Feb 2016
    Località
    Bari
    Messaggi
    35
    Versione Office
    2016 Mac
    Likes ricevuti
    0
    Likes dati
    0
    Di regola non si dovrebbe presentare come problema, perchè il foglio viene salvato a fine giornata. Desideravo sapere nel caso ho più bottoni all'interno del foglio devo ripetere la seguente istruzione, mettendo Button 2 e Button 3? perchè prevedo tre pulsanti.

    ActiveSheet.Shapes("Button 1").Delete
    ActiveSheet.Shapes("Button 2").Delete
    ActiveSheet.Shapes("Button 3").Delete



  14. #13

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Sardegna
    Età
    37
    Messaggi
    4019
    Versione Office
    2013
    Likes ricevuti
    1227
    Likes dati
    923
    Citazione Originariamente Scritto da James Visualizza Messaggio
    Di regola non si dovrebbe presentare come problema, perchè il foglio viene salvato a fine giornata. Desideravo sapere nel caso ho più bottoni all'interno del foglio devo ripetere la seguente istruzione, mettendo Button 2 e Button 3? perchè prevedo tre pulsanti.

    ActiveSheet.Shapes("Button 1").Delete
    ActiveSheet.Shapes("Button 2").Delete
    ActiveSheet.Shapes("Button 3").Delete


    Se i nomi dei pulsanti sono quelli...allora si.
    Se ci dovessero essere molti pulsanti converrebbe utilizzare un ciclo For...Next per eliminarli tutti.

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare."

  15. #14

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Sardegna
    Età
    37
    Messaggi
    4019
    Versione Office
    2013
    Likes ricevuti
    1227
    Likes dati
    923
    A scanso di equivoci....
    questo è il codice completo.
    - ) Controlla se il file esiste e nel caso ti fa scrivere un nome univoco per il file
    - ) Elimina tutti i pulsanti dal nuovo file
    - ) Salva il nuovo file e lo chiude

    Codice: 
    Option Explicit
    
    
    Sub esporta()
    Dim Percorso As String, Nome As String, Alternativo As String
    Dim Forma As Shape
    
    
    Percorso = ActiveWorkbook.Path
    Nome = ActiveSheet.Name & " " & Format(Date, "dd-mm-yyyy")
    'Controlla se esiste già un file con lo stesso nome
    If Dir(Percorso & "\" & Nome & ".xlsx") <> "" Then
        MsgBox "Esiste già un file con il nome :" & Nome & ".xlsx" & vbCrLf & _
        "Inserire un nome univoco per il file."
        Alternativo = CStr(InputBox("Inserire un nome univoco", "Nome File..."))
        Nome = Alternativo & " " & Format(Date, "dd-mm-yyyy")
    End If
    
    
    'Copia il foglio e lo salva in un nuovo file
    ActiveSheet.Copy
    ActiveWorkbook.SaveAs Percorso & "\" & Nome & ".xlsx"
    
    
    'Elimina tutti i pulsanti del foglio
    For Each Forma In ActiveSheet.Shapes
        Forma.Delete
    Next
    
    
    ActiveWorkbook.Save
    ActiveWorkbook.Close
    MsgBox "File salvato con il nome : " & Nome & ".xlsx"
    
    
    End Sub
    File Allegati File Allegati

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare."

  16. #15
    L'avatar di James
    Clicca e Apri
    Data Registrazione
    Feb 2016
    Località
    Bari
    Messaggi
    35
    Versione Office
    2016 Mac
    Likes ricevuti
    0
    Likes dati
    0
    Perfetto ringrazio tutti per il prezioso aiuto.

Discussioni Simili

  1. esportare colonne in file xlsm
    Di alex_drastic nel forum Domande su Excel VBA e MACRO
    Risposte: 14
    Ultimo Messaggio: 10/03/17, 22:43
  2. Stampare date diversei da un singolo foglio....
    Di Juan2016 nel forum Domande su Excel in generale
    Risposte: 2
    Ultimo Messaggio: 17/01/17, 17:32
  3. Import dati (da CSV) e formattazione filtrata su altro foglio (XLSM)
    Di freepredator nel forum Domande su Excel VBA e MACRO
    Risposte: 16
    Ultimo Messaggio: 24/09/16, 02:52
  4. Esportare foglio su documento Word
    Di iliomil nel forum Domande su Excel VBA e MACRO
    Risposte: 3
    Ultimo Messaggio: 12/07/16, 11:50
  5. Salvare singolo foglio in excel
    Di James nel forum Domande su Excel in generale
    Risposte: 0
    Ultimo Messaggio: 26/02/16, 11:14

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
  •