| | Post: 37 | Registrato il: 25/05/2015
| Età: 53 | Utente Junior | 2007 | | OFFLINE | |
|
  24/08/2021 18:44 | |
salve io uso la seguente macro per esportare una selezione di selle di un foglio excel in formato pdf ma me lo esporta attribuendogli sempre il nome che io ho inserito nella macro in questo caso è "da rinominare", io invece vorrei che automaticamente si salvasse con il nome del file stesso.
allego trascrizione dello script:
Sub SALVAPDF()
'
' SALVAPDF Macro
' SALVATAGGIO IN PDF
'
'
Range("A1:AF65").Select
ActiveWindow.SmallScroll Down:=-48
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"D:\RUOLI\Ruoli base\DA RINOMINARE.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
Range("AH6").Select
End Sub
grazie dell'aiuto |
|
| | Post: 71 | Registrato il: 02/04/2018
| Città: PESCARA | Età: 75 | Utente Junior | EXCEL 2016 - SPREAD32 | | OFFLINE |
|
| 24/08/2021 21:31 | |
ciao, io faccio parte dei novizi ma a volte mi diverto ad esercitarmi sulle domande stesse poste dagli utenti, per vedere se troverei da solo le soluzioni, ne ho trovata una, che mi sembra vada bene nel tuo caso, anche se sono convinto che i "bravi" interverranno con soluzioni ineccepibili.
SE&O:
Sub SALVAPDF()
'
' SALVAPDF Macro
' SALVATAGGIO IN PDF
'
'
Range("A1:AF65").Select
ActiveWindow.SmallScroll Down:=-48
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"D:\RUOLI\Ruoli base\" & ActiveSheet.name & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
Range("AH6").Select
End Sub
LEO
https://t.me/LordBrum |
| | Post: 37 | Registrato il: 25/05/2015
| Età: 53 | Utente Junior | 2007 | | OFFLINE | |
|
| 25/08/2021 10:31 | |
re: macro esportazione pdf nome file ciao la soluzione da te proposta funziona ma non è quello che io voglio ottenere, la tua soluzione mi salva un pdf nella cartella desiderata con il nome del foglio excel attivo, io vorrei che il file venisse salvato con il nome del file excel da qui viene originato.
hai qualche idea? |
| | Post: 72 | Registrato il: 02/04/2018
| Città: PESCARA | Età: 75 | Utente Junior | EXCEL 2016 - SPREAD32 | | OFFLINE |
|
| 25/08/2021 10:58 | |
ciao
sempre ribadendo che non sono per niente esperto, penso che ci si debba intendere esattamente sul nome che si vuole ottenere salvato.
se il file si chiama, per esempio, Archivio.xlsm, e se vuoi che venga salvato come Archivio.xlsm.pdf, allora nella macro la riga
"D:\RUOLI\Ruoli base\" & ActiveSheet.name & ".pdf" dovrebbe essere
"D:\RUOLI\Ruoli base\" & ActiveWorkbook.name & ".pdf",
così come aveva scritto ieri sera l'utente Tanimon, che poi però ha cancellato il suo post
se va bene ok, altrimenti dobbiamo aspettare qualcuno veramente esperto, io sto imparando
LEO
https://t.me/LordBrum |
| | Post: 3.207 | Registrato il: 06/04/2013
| Utente Master | 2010 | | OFFLINE |
|
| 25/08/2021 11:33 | |
Ciao
NomeFile=Left(activeworkbook.name, InStr(activeworkbook.name, ".") - 1)
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"D:\RUOLI\Ruoli base\" & NomeFile & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
saluti Domenico
Win 10 - Excel 2016 |
| | Post: 38 | Registrato il: 25/05/2015
| Età: 53 | Utente Junior | 2007 | | OFFLINE | |
|
| 25/08/2021 12:35 | |
L2018, 25/08/2021 10:58:
ciao
sempre ribadendo che non sono per niente esperto, penso che ci si debba intendere esattamente sul nome che si vuole ottenere salvato.
se il file si chiama, per esempio, Archivio.xlsm, e se vuoi che venga salvato come Archivio.xlsm.pdf, allora nella macro la riga
"D:\RUOLI\Ruoli base\" & ActiveSheet.name & ".pdf" dovrebbe essere
"D:\RUOLI\Ruoli base\" & ActiveWorkbook.name & ".pdf",
così come aveva scritto ieri sera l'utente Tanimon, che poi però ha cancellato il suo post
se va bene ok, altrimenti dobbiamo aspettare qualcuno veramente esperto, io sto imparando
|
| | Post: 39 | Registrato il: 25/05/2015
| Età: 53 | Utente Junior | 2007 | | OFFLINE | |
|
| 25/08/2021 12:40 | |
L2018, 25/08/2021 10:58:
ciao
sempre ribadendo che non sono per niente esperto, penso che ci si debba intendere esattamente sul nome che si vuole ottenere salvato.
se il file si chiama, per esempio, Archivio.xlsm, e se vuoi che venga salvato come Archivio.xlsm.pdf, allora nella macro la riga
"D:\RUOLI\Ruoli base\" & ActiveSheet.name & ".pdf" dovrebbe essere
"D:\RUOLI\Ruoli base\" & ActiveWorkbook.name & ".pdf",
così come aveva scritto ieri sera l'utente Tanimon, che poi però ha cancellato il suo post
se va bene ok, altrimenti dobbiamo aspettare qualcuno veramente esperto, io sto imparando
anche se non sei uno esperto sappi che la tua soluzione funziona a meraviglia e ciò purtroppo mi rende conscio che ne so veramente poco. ti ringrazio . |
| | Post: 73 | Registrato il: 02/04/2018
| Città: PESCARA | Età: 75 | Utente Junior | EXCEL 2016 - SPREAD32 | | OFFLINE |
|
| 25/08/2021 12:53 | |
grazie del riscontro, ma non dimentichiamo la soluzione di Domenico, che mi sembra più tecnica, ma mi pare anche che porti al mio stesso risultato, perchè lui prende il nome del file, ci toglie l'estensione e lo salva come pdf, io invece ho osservato empiricamente qualcosa di più semplice.
se poi questo non sia giusto e possa dare luogo ad altri errori, non saprei.
Per questo dicevo che era necessario sapere esattamente che tipo di nome si voleva.
Ciao
LEO
https://t.me/LordBrum |
| | Post: 40 | Registrato il: 25/05/2015
| Età: 53 | Utente Junior | 2007 | | OFFLINE | |
|
| 25/08/2021 13:04 | |
assolutamente lungi da me snobbare l'aiuto di qualcuno , la soluzione di domenico mi risevo di sviscerarne il funzionamentro e se è più idonea in un secondo tempo, la tua è stata facile e veloce da implementare nello script, e per ora non genera errori di sorte .
grazie a tutti per l'aiuto solerte e sopra tutto funzionante
grazie ancora |
|
|
|
|