Pulsante per salvataggio modulo in cartella

Question

Buonasera, ho creato un modulo in excel per compilazione dati e vorrei aggiungergli un pulsante Salva per il salvataggio del file in una specifica cartella. Inoltre vorrei che il file venga salvato con un valore presente una cella del modulo. Ringrazio in anticipo per l'aiuto.

Answer 1

Ciao Danjel,

grazie 1000 del tuo aiuto. Ho utilizzato la prima variante e funziona, già così potrei essere soddisfatto.

Ho però due altre richieste:

1. far sì che il modulo appena salvato non mi si apra in una nuova finestra dopo aver premuto il pulsante "Salva";

Se ho interpretato correttamente questa richiesta, forse prova qualcosa del genere:

'========>>

Option Explicit

'-------->>

Public Sub Salva_File()

Dim WB As Workbook 

Dim sPath As String, sStr As String, sFullname As String 

Dim sFileName As String 

Const sPercorso As String = "C:\Users\DanjelN" '<<=== Modifica

Const sCella_Nome_del_File As String = "A1" '<<=== Modifica

sStr = Application.PathSeparator 

If Right(sPercorso, 1) = sStr Then 

    sPath = sPercorso 

Else 

    sPath = sPercorso & sStr 

End If 

sFileName = ActiveSheet.Range(sCella\_Nome\_del\_File).Value 

Set WB = ThisWorkbook 

With WB 

sFullname = .FullName 

     .SaveAs Filename:=sPath & sFileName, FileFormat:=52 

     Workbooks.Open Filename:=sFullname 

    .Close 

End With 

End Sub

'<<========

2. creare ( se possibile !!! ) un tasto che mi cancelli il contenuto delle celle dopo il salvataggio del file. Questo punto non è così importante, ma se esiste un codice sarebbe top.

Qui ho una vera difficoltà a capire la tua intenzione! 😒

Ti prego gentilmente di confermare a quale dei due file fai riferimento e quali celle vuoi cancellare. In ogni caso, non capisco perché desideri salvare il file e quindi cancellare almeno una parte del suo contenuto.

===

Regards,

Norman

Answer 2

Ciao Danjel,

grazie per l'aiuto, ho risolto.

Richiesta 1 = il tuo suggerimento funziona, grazie 1000

Richiesta 2 = ho risolto creando un pulsante con macro per la cancellazione del contenuto, senza cancellare la formattazione, utilizzando Clear.Contents

Grazie ancora dell'aiuto!!!

Sono contento che abbia risolto e ti ringrazio per il cortese riscontro.

Per chiudere questa discussione, ti chiederei gentilmente di contrassegnare il mio codice.

===

Regards,

Norman

Answer 3

Ciao Norman,

grazie per l'aiuto, ho risolto.

Richiesta 1 = il tuo suggerimento funziona, grazie 1000

Richiesta 2 = ho risolto creando un pulsante con macro per la cancellazione del contenuto, senza cancellare la formattazione, utilizzando Clear.Contents

Grazie ancora dell'aiuto!!!

Danjel

Answer 4

Ciao Norman,

grazie 1000 del tuo aiuto. Ho utilizzato la prima variante e funziona, già così potrei essere soddisfatto.

Ho però due altre richieste:

1. far sì che il modulo appena salvato non mi si apra in una nuova finestra dopo aver premuto il pulsante "Salva";
2. creare ( se possibile !!! ) un tasto che mi cancelli il contenuto delle celle dopo il salvataggio del file. Questo punto non è così importante, ma se esiste un codice sarebbe top.

Grazie 1000 in anticipo.

Danjel

Answer 5

Ciao DanjelN,

Buonasera, ho creato un modulo in excel per compilazione dati e vorrei aggiungergli un pulsante Salva per il salvataggio del file in una specifica cartella. Inoltre vorrei che il file venga salvato con un valore presente una cella del modulo. Ringrazio in anticipo per l'aiuto.

Se vuoi salvare il nuovo file senza macro, prova qualcosa del genere:

• Alt+F11 per aprire l'editor di VBA
• Alt+IM per inserire un nuovo modulo di codice
• Nel nuovo modulo vuoto, incolla il seguente codice:

'========>>

Option Explicit

'-------->>

Public Sub Salva_File()

Dim sPath As String, sStr As String 

Dim sFileName As String 

Const sPercorso As String = **"C:\Users\DanjelN\"                   '<<=== Modifica** 

Const sCella\_Nome\_del\_File As String = **"A1"                           '<<=== Modifica** 

sStr = Application.PathSeparator 

If Right(sPercorso, 1) = sStr Then 

    sPath = sPercorso 

Else 

    sPath = sPercorso & sStr 

End If 

sFileName = ActiveSheet.Range(sCella\_Nome\_del\_File).Value 

ThisWorkbook.Sheets.Copy 

ActiveWorkbook.SaveAs Filename:=sPath & sFileName, FileFormat:=52 

End Sub

'<<========

• Alt+Q per chiudere l'editor di VBA e tornare a Excel.
• Salva il file con l'estensione xlsm
• Alt+F8 per aprire la finestra di gestione delle macro

Se invece vuoi salvare il file con eventuali macro esistenti, sostituisci il codice sopra con la seguente versione:

'========>>

Option Explicit

'-------->>

Public Sub Salva_File()

Dim sPath As String, sStr As String 

Dim sFileName As String 

Const sPercorso As String = **"C:\Users\DanjelN\"                   '<<=== Modifica** 

Const sCella\_Nome\_del\_File As String = **"A1"                           '<<=== Modifica** 

sStr = Application.PathSeparator 

If Right(sPercorso, 1) = sStr Then 

    sPath = sPercorso 

Else 

    sPath = sPercorso & sStr 

End If 

sFileName = ActiveSheet.Range(sCella\_Nome\_del\_File).Value 

ThisWorkbook.SaveAs Filename:=sPath & sFileName, FileFormat:=52 

End Sub

'<<========

In ogni caso, assegna la macro selezionata al tuo pulsante.

===

Regards,

Norman