Salvataggio file excel come PDF tramite pulsante

Anonimo
2012-10-23T09:56:31+00:00

Salve a tutti!

Avrei gentilmente bisogno di associare un'azione ad un pulsante creato in un foglio excel in modo tale che premendo il pulsante il sistema in automatico mi prenda tutte le celle dove c'è scritto qualcosa e me li salvi in un percorso prestabilito nella mia rete ma in formato PDF.

Il tutto magari tramite VBA

In attesa Vi ringrazio in anticipo

Massimo

Microsoft 365 e Office | Excel | Per la casa | Windows

Domanda bloccata. Questa domanda è stata eseguita dalla community del supporto tecnico Microsoft. È possibile votare se è utile, ma non è possibile aggiungere commenti o risposte o seguire la domanda.

0 commenti
Risposta accettata dall'autore della domanda
Anonimo
2012-10-23T11:19:12+00:00

Sub SalvaInPDF()

    Const cPath  As String = "c:"

    Dim varNomeFile As Variant

    varNomeFile = Application.InputBox(Prompt:="Scrivi il nome del file PDF", _

        Title:="Nome dal file PDF da salvare", _

        Type:=2)

    If varNomeFile = False Then Exit Sub

    If Len(varNomeFile & vbNullString) = 0 Then Exit Sub

    ActiveSheet.ExportAsFixedFormat _

        Type:=xlTypePDF, _

        Filename:=cPath & varNomeFile, _

        Quality:=xlQualityStandard, _

        OpenAfterPublish:=False

End Sub

Devi solo decidere cosa succede se non scrivi nulla nella InputBox. Nel codice ho stabilito che la procedura esca senza fare altro. Potresti eventualmente assegnare un nome di default al file.

David

La risposta è stata utile?

2 persone hanno trovato utile questa risposta.
0 commenti

51 risposte aggiuntive

Ordina per: Più utili
Più utili Più recente Meno recente
  1. Anonimo
    2015-02-23T15:27:28+00:00

    Ciao Andrea,

    Non sono David ma, visto che il suo post e' tanto vecchio,  mi pemetto di rispondere.

    Prova di sostituire:

    Filename:=cPath & varNomeFile,

    con:

        Filename:=cPath & varNomeFile & Format(Date, "yyyymmdd"),

    ===

    Regards,

    Norman

    Salve, grazie ma mi da questo errore:

    La risposta è stata utile?

    0 commenti
  2. Anonimo
    2015-02-23T15:07:00+00:00

    Ciao Andrea,

    Non sono David ma, visto che il suo post e' tanto vecchio,  mi pemetto di rispondere.

    Prova di sostituire:

    Filename:=cPath & varNomeFile,

    con:

        Filename:=cPath & varNomeFile & Format(Date, "yyyymmdd"),

    ===

    Regards,

    Norman

    La risposta è stata utile?

    0 commenti
  3. Anonimo
    2015-02-23T14:46:22+00:00

    Sub SalvaInPDF()

        Const cPath  As String = "c:"

        Dim varNomeFile As Variant

       

        varNomeFile = Application.InputBox(Prompt:="Scrivi il nome del file PDF", _

            Title:="Nome dal file PDF da salvare", _

            Type:=2)

           

        If varNomeFile = False Then Exit Sub

        If Len(varNomeFile & vbNullString) = 0 Then Exit Sub

       

        ActiveSheet.ExportAsFixedFormat _

            Type:=xlTypePDF, _

            Filename:=cPath & varNomeFile, _

            Quality:=xlQualityStandard, _

            OpenAfterPublish:=False

           

    End Sub

    Devi solo decidere cosa succede se non scrivi nulla nella InputBox. Nel codice ho stabilito che la procedura esca senza fare altro. Potresti eventualmente assegnare un nome di default al file.

    David

    Salve David, ho trovato molto utile il codice personalizzando la stringa in cui il PDF viene salvato.

    Mi chiedevo se era possibile oltre alla possibilità di inserire il nome del file, fare in modo che gli venga aggiunta la dat in automatico.

    MI spiego, i documenti che salvo sono fatture e sarebbe bello che fossero archiviate con il nome del cliente e la data. Ora il nome lo posso anche inserirre a mano ma la data si può automatizzare?

    Grazie

    La risposta è stata utile?

    0 commenti
  4. Anonimo
    2015-01-20T12:05:26+00:00

    Ciao Gimart,

    Ti ringrazio per il cortese riscontro.

    ===

    Regards,

    Norman

    La risposta è stata utile?

    0 commenti