La consultazione del forum è libera per tutti.
Per poter porre un quesito è invece necessario essere un utente registrato (clicca qui se non lo sei).
Tutti gli utenti che richiedono un supporto, come da REGOLAMENTO, sono caldamente invitati ad allegare un file di esempio con l'indicazione di quello che si desidera ottenere.
Salve a tutti, come posso salvare un file, tramite un pulsante, assegnandogli come nome lo stesso che mi compare nell'intestazione?
Grazie
ciao
Sub SalvaFile() ActiveWorkbook.SaveAs Filename:= _ "C:\Users\poivr\Desktop\" & ActiveSheet.PageSetup.CenterHeader & ".xlsm", FileFormat _ :=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False End Sub
chiaro che il percorso sarà il tuo non il mio
io ho usato l'intestazione al centro
.LeftHeader = sinistra
.CenterHeader = centro
.RightHeader = destra
Ciao, grazie per la solerte risposta, ho creato la macro che mi hai postato, ma quando la eseguo mi genera un errore di run-time 1004 dicendomi che è impossibile accedere al file.
ciao
come ti ho specificato
quella macro di salvataggio funziona solo sul mio PC
devi mettere il tuo percorso e utilizzare
ActiveSheet.PageSetup.CenterHeader
come nome file
fai una cosa
clicca con il destro tenendo schiacciato maiuscolo
su un file inserito dove vuoi salvare il tuo
seleziona copia come percorso
e incollalo su una risposta
ti allego un altro esempio dove il file si salva su una cartella
Sub SalvaFile()
ActiveWorkbook.SaveAs Filename:= _
"C:\Users\poivr\Documents\Forum excel\" & ActiveSheet.PageSetup.CenterHeader & ".xlsm", FileFormat _
:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub
la parte in rosso la devi cambiare con il tuo percorso
Ciao, ti mando l'errore visualizzato e la macro modificata.
ciao
ad occhio hai dimenticato una barra \
Sub SalvaFile()
ActiveWorkbook.SaveAs Filename:= _
"C:\Utenti\g.delprete\Desktop\Nuova cartella\prova\prova\" & ActiveSheet.PageSetup.CenterHeader & ".xlsm", FileFormat _
:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub
tu salvi il file in
desktop
nuova cartella\prova\prova
hai 2 sottocartelle
La situazione si fa sempre più complicata, ho aggiunto la barra (mio errore), ma il risultato non è cambiato per niente, sempre errore di run-time.
ciao
mi è venuto un dubbio
ma tu la cartella Nuova cartella/prova/prova
l'hai creata o la devi creare
la macro funziona se le cartelle le tyrova
Le cartelle esistono
ciao
se tu nel desktop hai una cartella
che si chiama Nuova cartella con dentro una cartella che si chiama prova che a sua volta ha
dentro una cartella che si chiama prova..........funziona l'ho provata più volte
l'unica è che il percorso sia sbagliato
fai una cosa
vai nella sottocartella prova.......la seconda
tieni cliccato il maiuscolo
poi DX sulla cartella e seleziona copia percorso
e incollalo qui
C:\Users\g.delprete\Desktop\Nuova cartella\Prova\Prova
ciao
spiegato il perchè
devi users Users non non utenti
Sub SalvaFile() ActiveWorkbook.SaveAs Filename:= _ "C:\Users\g.delprete\Desktop\Nuova cartella\prova\prova\" & ActiveSheet.PageSetup.CenterHeader & ".xlsm", FileFormat _ :=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False End Sub
ciao
ti allego le immagini
FILE
macro mia
Sub SalvaFile() ActiveWorkbook.SaveAs Filename:= _ "C:\Users\poivr\Desktop\Nuova cartella\prova\prova\" & ActiveSheet.PageSetup.CenterHeader & ".xlsm", FileFormat _ :=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False End Sub
desktop
apro cartella nuova
apro cartella prova
una volta lanciata la macro
in cartella prova.....l'ultima trovo
ti allego il file con il tuo percorso.....è l'unica cosa da controllare
cambia il nome dell'intestazione
se lo scarichi ricordati di levare il blocco
con il tuo file compare l'errore.
Ti posto la mia tabella anche se a questo punto posso pensare che il problema sta nel pc.
