Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

[Excel] Macro personalizzata per salvare in PDF

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

Re: [Excel] Macro personalizzata per salvare in PDF

Postdi Anthony47 » 28/03/14 23:58

Io mi sono distratto ma tu un po' di piu'...
Fin dal primo messaggio ti avevo detto "Se da errore sull' istruzione ".ExportAsFixedFormat", allora mentre sei in debug e quell' istruzione e' evidenziata, premi Contr-g e nella finestra che si apre scrivi etc etc"

Se te ne fossi ricordato avremmo visto che il nome file somigliava a
C:\Users\UTENTE\PERCORSO\Invoice n. 26/E Date: 28-03-2014 ISURF LIMITED .pdf

Ma in windows non si puo' scrivere un nome file con caratteri quali "/" oppure ":" (e anche altri); devi quindi procedere a sostituire questi caratteri con altri non vietati, ad esempio con Replace successivi (o annidati), tipo
Codice: Seleziona tutto
sNome = Replace(sNome, "/", "_")


Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13899
Iscritto il: 21/03/06 16:03
Località: Ivrea

Sponsor
 

Re: [Excel] Macro personalizzata per salvare in PDF

Postdi calabrone80 » 31/03/14 13:37

Ciao Anthony, scusa ma ho dimenticato una parte del tuo suggerimento :( .

Ho fatto quello che mi hai detto ed ho eliminato tutti i caratteri vietati, ma adesso mi stampa in pdf, è ti ringrazio tanto, ma il nome che attribuisce è FALSO.PDF.

In cosa ho sbagliato ancora??? :cry: :cry: :?: :?:
calabrone80
Newbie
 
Post: 9
Iscritto il: 24/03/14 17:10

Re: [Excel] Macro personalizzata per salvare in PDF

Postdi Anthony47 » 31/03/14 13:53

Quale e' adesso la macro?
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13899
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: [Excel] Macro personalizzata per salvare in PDF

Postdi calabrone80 » 31/03/14 14:04

Sub SalvaPDF()

Dim sPath As String
Dim sNome As String


With ThisWorkbook

sPath = .Path

With .Worksheets("Invoice €")

sNome = .Range("b14").Value & _
" " & .Range("c14").Value & _
" " & .Range("b15").Value & _
" " & Format(.Range("c15").Value, "dd-mm-yyyy") & _
" " & .Range("g14").Value

.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=sPath & "\" & sNome = Replace(sNome, "/", "_") & ".pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True

End With

End With

Application.DisplayAlerts = True

End Sub
calabrone80
Newbie
 
Post: 9
Iscritto il: 24/03/14 17:10

Re: [Excel] Macro personalizzata per salvare in PDF

Postdi Anthony47 » 31/03/14 16:18

Filename:=sPath & "\" & sNome = Replace(sNome, "/", "_") & ".pdf", _
Abbastanza avventuroso...

Devi intervenire su sName, una volta calcolato, per eliminare non solo la "/" ma anche anche altri caratteri vietati; tipo:
Codice: Seleziona tutto
            sNome = .Range("b14").Value & _
                " " & .Range("c14").Value & _
                " " & .Range("b15").Value & _
                " " & Format(.Range("c15").Value, "dd-mm-yyyy") & _
                " " & .Range("g14").Value
'Queste per eliminare i caratteri vietati:
            sNome = Replace(sNome, "/", "_")
            sNome = Replace(sNome, ":", "_")

            .ExportAsFixedFormat _
             Type:=xlTypePDF, _
             Filename:=sPath & "\" & sNome & ".pdf", _
             'etc etc

(vedi le due righe aggiunte)

Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13899
Iscritto il: 21/03/06 16:03
Località: Ivrea

Precedente

Torna a Applicazioni Office Windows


Topic correlati a "[Excel] Macro personalizzata per salvare in PDF":


Chi c’è in linea

Visitano il forum: alfrimpa e 17 ospiti