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-01-13T10:22:38+00:00

    Ciao David,

    Ringrazio per la pronta risposta, trovato il problema grazie al risultato, era il percorso che stupidamente non avevo inserito.

    vorrei chiedervi una ultima domanda, e' possibile inserire una msgbox che mi chieda dove salvare il pdf?

    creando questo documento che finirà tra i colleghi, mi chiedevo se era possibile fare che ogni collega possa inserire una cartella a piacimento, es: descktop, documenti ecc

    grazie per tutto

    DavideG

    Vedi il suggerimento di - David - .   Più in particolare, vedi l'uso suggerito del InputBox di Excel:

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

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

            Type:=2)

    ===

    Regards,

    Norman

    La risposta è stata utile?

    0 commenti
  2. Anonimo
    2015-01-13T10:03:34+00:00

    Ringrazio per la pronta risposta, trovato il problema grazie al risultato, era il percorso che stupidamente non avevo inserito.

    vorrei chiedervi una ultima domanda, e' possibile inserire una msgbox che mi chieda dove salvare il pdf?

    creando questo documento che finirà tra i colleghi, mi chiedevo se era possibile fare che ogni collega possa inserire una cartella a piacimento, es: descktop, documenti ecc

    grazie per tutto

    DavideG

    La risposta è stata utile?

    0 commenti
  3. Anonimo
    2015-01-13T07:44:33+00:00

    Ciao David,

    Errore di run-time '1004':

    Documento non salvato. é possibile che il documento sia aperto o che

    si sia verificato un errore durante il salvataggio

    Al fine di indagare il problema, prova a sostituire temporaneamente

    ActiveSheet.ExportAsFixedFormat _

    Type:=xlTypePDF, _

    Filename:=cPath & varNomeFile, _

    Quality:=xlQualityStandard, _

    OpenAfterPublish:=False

    con:

    MsgBox "Percorso = " & cPath & vbNewLine & "Nome del file = " & varNomeFile

        ActiveSheet.ExportAsFixedFormat _

                Type:=xlTypePDF, _

                Filename:=cPath & varNomeFile, _

                Quality:=xlQualityStandard, _

                OpenAfterPublish:=False

     Incolla il messaggio risultante nella tua risposta qui.

    ===

    Regards,

    Norman

    La risposta è stata utile?

    0 commenti
  4. Anonimo
    2015-01-12T08:32:16+00:00

    Buongiorno, trovo utilissimo questa macro ma nel attivarla subito dopo la richiesta del nome mi viene un errore:

    Errore di run-time '1004':

    Documento non salvato. é possibile che il documento sia aperto o che

    si sia verificato un errore durante il salvataggio

    nella scelta premendo Debug mi evidenzia in giallo questa parte di codice:

        ActiveSheet.ExportAsFixedFormat _

    Type:=xlTypePDF, _

    Filename:=cPath & varNomeFile, _

    Quality:=xlQualityStandard, _

    OpenAfterPublish:=False

    potreste gentilmente aiutarmi a capire dov'è' il problema?

    il foglio excel contiene altre 12 macro ed utilizzo excel 2010

    La risposta è stata utile?

    0 commenti