Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Rinominare Nome File in Excel

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Rinominare Nome File in Excel

Postdi pascod » 20/09/12 11:42

Ciao, ho provato a cercare ma non sono riuscito a trovare la risposta a questa semplicissima domanda:
come Rinomino un File excel usando un Msg box da compilare a cura dell'utilizzatore?

Questa è la macro che copia un foglio( e lo rinomina) in un nuovo workbook.
Voglio far rinominare il workbook a scelta dell'utente con un msg box in maniera tale che lo salvi sul suo desktop col nome imputato nel MSg Box.. è possibile?
Thanks guys

Sub Macro2()
'
' Macro2 Macro
'
Sheets("CLIENTE").Select
Sheets("CLIENTE").Copy
ActiveSheet.Name = Range("C2")
ActiveSheet.Select

End Sub
Office 2010 su Windows 7 Prof.
pascod
Utente Junior
 
Post: 42
Iscritto il: 03/01/12 09:54

Sponsor
 

Re: Rinominare Nome File in Excel

Postdi Flash30005 » 20/09/12 13:58

Si può fare
l'unico consiglio è non salvare sul desktop
se proprio vuoi così invia il percorso del suo desktop :D

ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Rinominare Nome File in Excel

Postdi pascod » 20/09/12 15:17

no no.. non ti preoccupare possiamo salvare in una cartella standard di windows 7!!!
Grazie.. Attendo
Office 2010 su Windows 7 Prof.
pascod
Utente Junior
 
Post: 42
Iscritto il: 03/01/12 09:54

Re: Rinominare Nome File in Excel

Postdi Flash30005 » 20/09/12 15:48

cambia solo il percorso
Codice: Seleziona tutto
Sub salvaF2()
ThisFile = InputBox("Salva Con Nome") & ".xls"
If ThisFile = ".xls" Then
MsgBox "Nome file non valido"
Exit Sub
End If
Sheets("CLIENTE").Select
Sheets("CLIENTE").Copy
 ActiveSheet.Name = Range("C2")
Directory = "C:\Appoggio\"
ActiveWorkbook.SaveAs Filename:=Directory & ThisFile
'ActiveWorkbook.Close  '<<<< togli il commento se vuoi chiudere il file appena salvato
MsgBox _
" Il Tuo File è stato salvato correttamente " & vbCrLf & _
" " & vbCrLf & _
(ThisFile), vbInformation

End Sub


Ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Rinominare Nome File in Excel

Postdi pascod » 20/09/12 17:29

Mitico!
Office 2010 su Windows 7 Prof.
pascod
Utente Junior
 
Post: 42
Iscritto il: 03/01/12 09:54

Re: Rinominare Nome File in Excel

Postdi pascod » 25/09/12 16:36

Giusto per completezza..
ho appena "scaricato" un ebook che mi faccia conoscere a fondo il mondo del vba!
Office 2010 su Windows 7 Prof.
pascod
Utente Junior
 
Post: 42
Iscritto il: 03/01/12 09:54

Re: Rinominare Nome File in Excel

Postdi Flash30005 » 25/09/12 19:01

Ottimo!
così presto potrai dare anche tu qualche consiglio nel Forum ;)

ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-


Torna a Applicazioni Office Windows


Topic correlati a "Rinominare Nome File in Excel":


Chi c’è in linea

Visitano il forum: Nessuno e 6 ospiti