| | Post: 1 | Registrato il: 10/03/2017
| Città: BRINDISI | Età: 47 | Utente Junior | excel | | OFFLINE | |
|
10/03/2017 13:32 | |
Buongiorno,
ho un probblema,premetto che non sono molto preparato su macro,
devo salvare dati da foglio di lavoro excel e salvarli in pdf su cartella da me indicatache non riesco,inoltre
quanto vado salvare con la formula seguente mi salva tutte le 109 pagine.
Sub SalvaInPDF()
Dim ws As Worksheet
Dim strIndirizzo As String
Dim myFile As Variant
Dim strFile As String
On Error GoTo errHandler
Set ws = ActiveSheet
'apre la finestra di dialogo per il salvataggio dei file
'la cartella di default è la stessa della cartella di excel
strFile = Replace(Replace(ws.Name, " ", ""), ".", "_") _
& "_" _
& Format(Now(), "yyyy-mm-dd_hh-mm") _
& ".pdf"
strFile = ThisWorkbook.Path & "" & strFile
myFile = Application.GetSaveAsFilename _
(InitialFileName:=strFile, _
FileFilter:="PDF Files (*.pdf), *.pdf", _
Title:="Seleziona la cartella e inserisci il nome del file da salvare")
If myFile <> False Then
ws.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=myFile, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
MsgBox "Il file PDF è stato salvato."
End If
exitHandler:
Exit Sub
errHandler:
MsgBox "Non ho potuto salvare il file PDF"
Resume exitHandler
End Sub |
|
| | Post: 471 | Registrato il: 16/08/2015
| Città: CORDENONS | Età: 67 | Utente Senior | Excel 2016-32bit Win11 | | OFFLINE |
|
10/03/2017 22:55 | |
Serve un separatore di path, cambia questa riga in:
strFile = ThisWorkbook.Path & " \" & strFile
______________________________________________________________
C'è chi fa le COSE a CASO e chi fa CASO alle COSE (Ignoto) |
| | Post: 1 | Registrato il: 10/03/2017
| Città: BRINDISI | Età: 47 | Utente Junior | excel | | OFFLINE | |
|
11/03/2017 16:22 | |
Grazie,
Solo che mi salva sempre le 110 fogli del programma excel da fatto.
Io vorrei salvare solo il foglio lavoro n1 nella cartella da me indicata. |
| | Post: 474 | Registrato il: 16/08/2015
| Città: CORDENONS | Età: 67 | Utente Senior | Excel 2016-32bit Win11 | | OFFLINE |
|
11/03/2017 17:03 | |
A questo punto devi solo gestire l'area da salvare che solo tu puoi sapere.
Forse se alleghi un file senza dati sensibili e qualche indicazione in più su cosa vuoi salvare qualcuno potrebbe darti una ulteriore mano.
______________________________________________________________
C'è chi fa le COSE a CASO e chi fa CASO alle COSE (Ignoto) |
| | Post: 3 | Registrato il: 10/03/2017
| Città: BRINDISI | Età: 47 | Utente Junior | excel | | OFFLINE | |
|
11/03/2017 17:49 | |
allegato file in discussione.
praticamente quanto vado sul pulsante pdf per salvare il foglio lavoro mi salva tutte le pagine.
inoltre vorrei imputare la destinazione dove salvare il file.
desktop cartella scadenzario. |
|
|