Risultati da 1 a 15 di 15

Discussione: salva come PDF



  1. #1
    L'avatar di Tequila
    Clicca e Apri
    Data Registrazione
    Apr 2016
    LocalitÓ
    Cittadella
    EtÓ
    42
    Messaggi
    54
    Versione Office
    2010 e 2016
    Likes ricevuti
    0
    Likes dati
    9

    salva come PDF

    Buongiorno, mi sto cimentando in un pulsante "salva PDF" per salvare dei report di calcolo in modo immediato.

    il codice creato da abbinare al pulsante Ŕ il seguente
    Codice: 
    Sub SALVA_PDF()
    '
    ' SALVA_PDF Macro
    '
    
    '
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
            "C:\Desktop\CALCOLO\FINEGIRI_" & ActiveWorkbook.Worksheets("CALCOLO").Cells(3, 2).Value & ".pdf", Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
            False
    End Sub
    La macro funziona benissimo in quanto mi salva il PDF nella cartella apposita sul desktop, e mi salva in automatico il nome del file come FINEGIRI_"nome cella B3", per cui non mi serve nemmeno rinominarlo.
    Volevo aggiungere alla fine la data e l'ora in quanto se eseguo diversi calcoli per lo stesso "nome cella B3", invece di sovrascrivermi il file ne creerebbe diversi con nome uguali ma data ed orario differente.

    Il problema Ŕ che non so quale sia la sintassi corretta da inserire tra ....Cells(3,2).Value e &".pdf"
    Ho provato con & Format(Now(), "yyyy-mm-dd\_hh-mm") ma mi da errore.

    Premetto che non sono programmatore, mi sto cimentando da poco in questo campo, leggendo il codice VBA che si crea in automatico quando utilizzo il "registra macro", e questo tasto di salva pdf l'ho scopiazzato da uno trovato online un paio di mesi fa e leggermente modificato.

    Grazie dell'aiuto
    Non confondere mancanza di talento per genialitÓ.

  2. #2

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    LocalitÓ
    Napoli
    EtÓ
    64
    Messaggi
    6747
    Versione Office
    2013
    Likes ricevuti
    711
    Likes dati
    162

    Re: salva come PDF

    Ciao Tequila

    Prova in questo modo


    Codice: 
    Cells(3, 2).Value & Replace(CStr(Date), "/", "_") & ".pdf"
    In pratica nella data viene sostituito il carattere "/" (non ammesso) con l'underscore

    Alfredo

  3. #3
    L'avatar di Tequila
    Clicca e Apri
    Data Registrazione
    Apr 2016
    LocalitÓ
    Cittadella
    EtÓ
    42
    Messaggi
    54
    Versione Office
    2010 e 2016
    Likes ricevuti
    0
    Likes dati
    9

    Re: salva come PDF

    Dopo che rientro in ufficio provo a correggere il codice.
    Intanto grazie dell'aiuto.

    Inviato dal mio Elephone P8000 utilizzando Tapatalk
    Non confondere mancanza di talento per genialitÓ.

  4. #4

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    LocalitÓ
    Napoli
    EtÓ
    64
    Messaggi
    6747
    Versione Office
    2013
    Likes ricevuti
    711
    Likes dati
    162

    Re: salva come PDF

    Ciao Tequila

    Ho provato e funziona perfettamente.

    Codice: 
    Sub SALVA_PDF()
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
            "C:\C:\Desktop\CALCOLO\FINEGIRI_\" & ActiveWorkbook.Worksheets("CALCOLO").Cells(3, 2).Value & " " & Replace(CStr(Date), "/", "_") & ".pdf", Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
            False
    End Sub
    Il file viene salvato con il contenuto di B3 seguito dalla data con gli underscore es. pippo 05_05_2016

    Alfredo

    P.S. Ovviamente per provare ho messo una mia directory e non la tua

  5. #5
    L'avatar di Tequila
    Clicca e Apri
    Data Registrazione
    Apr 2016
    LocalitÓ
    Cittadella
    EtÓ
    42
    Messaggi
    54
    Versione Office
    2010 e 2016
    Likes ricevuti
    0
    Likes dati
    9

    Re: salva come PDF

    ciao, ho provato ma la macro mi restituisce "errore di run-time 1004: documento non salvato, Ŕ possibile che il file sia aperto o che si sia verificato un errore durante il salvataggio"

    io ho corretto mettendo il mio percorso di salvataggio, per˛ sul codice che hai riportato hai scritto "C:\C:\Desktop\CALCOLO.... ,
    E' un errore?
    Non confondere mancanza di talento per genialitÓ.

  6. #6
    L'avatar di Tequila
    Clicca e Apri
    Data Registrazione
    Apr 2016
    LocalitÓ
    Cittadella
    EtÓ
    42
    Messaggi
    54
    Versione Office
    2010 e 2016
    Likes ricevuti
    0
    Likes dati
    9

    Re: salva come PDF

    ho provato anche a ricrearla da zero ma ugualmente mi da errore.
    Non confondere mancanza di talento per genialitÓ.

  7. #7
    L'avatar di robynud
    Clicca e Apri
    Data Registrazione
    Dec 2015
    LocalitÓ
    Gardone Val Trompia
    EtÓ
    45
    Messaggi
    155
    Versione Office
    Office 2016
    Likes ricevuti
    24
    Likes dati
    65

    Re: salva come PDF

    ciao scusate se mi intrometto ma secondo me l'errore e il percorso di destinazione errato, Prova cosi, naturalmente al posto di Robynud ci devi mettere il tuo users, e impotante che ci sia la cartella CALCOLO seno ti da errore in quando non trova la cartella

    Codice: 
    
    Sub SALVA_PDF()
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
            "C:\Users\Robynud\Desktop\CALCOLO\" _
            & ActiveWorkbook.Worksheets("CALCOLO").Cells(3, 2).Value _
            & " " & Replace(CStr(Date), "/", "_") & ".pdf", _
            Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, _
            IgnorePrintAreas:=False, _
            OpenAfterPublish:=False
    End Sub

  8. #8
    L'avatar di Tequila
    Clicca e Apri
    Data Registrazione
    Apr 2016
    LocalitÓ
    Cittadella
    EtÓ
    42
    Messaggi
    54
    Versione Office
    2010 e 2016
    Likes ricevuti
    0
    Likes dati
    9

    Re: salva come PDF

    Grazie robynud, controllando il percorso editato mi ero accorto di aver messo una "\" in pi¨ :251: cosi invece di salvare il file con quel nome, cercava una sottocartella con quel nome.
    Non confondere mancanza di talento per genialitÓ.

  9. #9
    L'avatar di Tequila
    Clicca e Apri
    Data Registrazione
    Apr 2016
    LocalitÓ
    Cittadella
    EtÓ
    42
    Messaggi
    54
    Versione Office
    2010 e 2016
    Likes ricevuti
    0
    Likes dati
    9

    Re: salva come PDF

    ho corretto la macro aggiungendo anche l'ora cosi da avere orari diversi per eventuali salvataggi multipli durante la stessa giornata

    Nel mio caso mi salva il file con questo nome "CALCOLO_FINEGIRI_prova_data_05_05_2016_ore_16-02.pdf"

    Grazie a tutti per l'aiuto.

    il codice ora risulta cosý:
    Codice: 
    Sub SALVA_PDF()
    '
    ' SALVA_PDF Macro
    '
    
    '
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
            "C:\Users\Utente05\Desktop\STRUMENTI_CALCOLO\CALCOLO_FINEGIRI_" & ActiveWorkbook.Worksheets("CALCOLO").Cells(3, 2).Value & "_data_" & Replace(CStr(Date), "/", "_") & Format(Now(), "\_ore_hh-mm") & ".pdf", Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
            False
    End Sub
    Non confondere mancanza di talento per genialitÓ.

  10. #10
    L'avatar di robynud
    Clicca e Apri
    Data Registrazione
    Dec 2015
    LocalitÓ
    Gardone Val Trompia
    EtÓ
    45
    Messaggi
    155
    Versione Office
    Office 2016
    Likes ricevuti
    24
    Likes dati
    65

    Re: salva come PDF

    ciao Tequila, anche se hai risolto io ti suggerirei una piccola modifica, in modo da non avere piu l'errore della cartella mancante, la fai creare alla macro, questa Ŕ la macro ti crea la cartella vuota se non c'Ŕ e dopo ti salva il file in pdf, e ho aggiunto anche i secondi al nome del pdf :166: basta scrivere l'indirizzo nella cella A2, il nome della cartella nella cella C2, e il nome del file nella cella b2.

    Codice: 
    
    Sub Crea_Cartella_E_File()
    Dim Indirizzo As String
    Dim NomeCartella As String
    Indirizzo = Range("A2").Value
    NomeFile = Range("B2").Value
    NomeCartella = Range("C2").Value
    ChDrive "C"
    
    If Dir(Indirizzo & NomeCartella, vbDirectory) = "" Then
        MkDir (Indirizzo & NomeCartella)
    End If
    
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
            Indirizzo & NomeCartella & "\" & NomeFile _
            & "_data_" & Replace(CStr(Date), "/", "_") _
            & Format(Now(), "\_Ore_hh_mm_ss") _
            & ".pdf", Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, _
            IgnorePrintAreas:=False, _
            OpenAfterPublish:=False
    End Sub

  11. I seguenti 2 utenti hanno dato un "Like" a robynud per questo post:


  12. #11
    L'avatar di Tequila
    Clicca e Apri
    Data Registrazione
    Apr 2016
    LocalitÓ
    Cittadella
    EtÓ
    42
    Messaggi
    54
    Versione Office
    2010 e 2016
    Likes ricevuti
    0
    Likes dati
    9

    Re: salva come PDF

    grazie mille robynud,molto interessante questa cosa. :286:
    Non confondere mancanza di talento per genialitÓ.

  13. #12
    L'avatar di svizzera
    Clicca e Apri
    Data Registrazione
    Sep 2016
    LocalitÓ
    M÷hlin Svizzera
    EtÓ
    67
    Messaggi
    337
    Versione Office
    2010
    Likes ricevuti
    0
    Likes dati
    10

    Re: salva come PDF

    Ciao a tutti, il poter registrare una copia di fattura e`una cosa che mi interessa, mi piacerebbe poter creare una tabella per poter registrare la data, il cliente, e il totale, inoltre registrare una copia in formato PDF e nominare con data, e nome del cliente. la cosa che vi devo dire e`che Excel io sono solamente in grado di inserire le macro solo con registra macro, non mi sono mai dedicato con Visual Basic mi auguro che ci sia qualcuno che mi possa aiutare a risolvere il problema.
    Anticipatamente Grazie.

  14. #13

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    LocalitÓ
    Napoli
    EtÓ
    64
    Messaggi
    6747
    Versione Office
    2013
    Likes ricevuti
    711
    Likes dati
    162

    Re: salva come PDF

    Paolo ti avevo chiesto di aprire una "tua" discussione e non accodarti ad una preesistente.

    Fallo ed allega un file di esempio specificando quello che vuoi ottenere.
    Alfredo

    "Non esistono cose facili o difficili; esistono cose che si sanno e cose che non si sanno"

    "Solo due cose sono infinite: l'universo e la stupiditÓ umana; riguardo l'universo ho ancora dei dubbi" (Albert Einstein)

  15. #14
    L'avatar di svizzera
    Clicca e Apri
    Data Registrazione
    Sep 2016
    LocalitÓ
    M÷hlin Svizzera
    EtÓ
    67
    Messaggi
    337
    Versione Office
    2010
    Likes ricevuti
    0
    Likes dati
    10

    Re: salva come PDF

    Ciao Alfrimpa pensavo che accodarsi nella stessa discussione del problema, si poteva fare. Scusatemi se ho sbagliato qualcosa, ora cerco di mettere assieme un esempio poi apro una discussione.
    A presto. Paolo

  16. #15

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    LocalitÓ
    Napoli
    EtÓ
    64
    Messaggi
    6747
    Versione Office
    2013
    Likes ricevuti
    711
    Likes dati
    162

    Re: salva come PDF

    Paolo non Ŕ un problema accodarsi ma aprire una nuova discussione (e lo diciamo nell'interesse dell'utente) garantisce spesso maggiore visibilitÓ e quindi maggiori possibilitÓ di risposta.
    Alfredo

    "Non esistono cose facili o difficili; esistono cose che si sanno e cose che non si sanno"

    "Solo due cose sono infinite: l'universo e la stupiditÓ umana; riguardo l'universo ho ancora dei dubbi" (Albert Einstein)

Discussioni Simili

  1. [Risolto] Salva con nome personalizzato
    Di rodyskorps nel forum Domande su Excel in generale
    Risposte: 15
    Ultimo Messaggio: 24/10/16, 11:26
  2. Salva in Pdf [Excel 2010]
    Di Powerwin nel forum Domande su Excel in generale
    Risposte: 6
    Ultimo Messaggio: 31/05/16, 23:31
  3. Macro in Excel per Mac salva in pdf
    Di FABIOGALLIANI nel forum Domande su Excel VBA e MACRO
    Risposte: 18
    Ultimo Messaggio: 29/05/16, 21:13
  4. crea cartella + salva nomefile.xlsm + salva nomefile.pdf
    Di Tequila nel forum Domande su Excel VBA e MACRO
    Risposte: 7
    Ultimo Messaggio: 20/05/16, 21:46
  5. filtra salva ed invia
    Di ste75v nel forum Domande su Excel VBA e MACRO
    Risposte: 10
    Ultimo Messaggio: 22/10/15, 23:27

Permessi di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •