Generare pdf con data e ora

Question

Ho sviluppato un foglio excel per gestire un elenco clienti in azienda, ma mi sono bloccato in un punto: vorrei generare un file pdf rinominato con data e ora tipo ipotizzando che siano le 13.00 del 08/03/2014, il file dovrà essere rinominato 080320141300.pdf o una cosa simile.

I file generati dovrebbero finire in una cartella determinata.

Che codice dovrei scrivere in VBA?

Answer 1

Manca solo una cosa: il file non dovrebbe finire in documenti, ma in una cartella specifica. Si può fare?

Ciao Ferrarista,

Prova:

'---------->>

Public Sub Tester()

    Dim SH As Worksheet

    Dim sStr As String

    Const myPath As String = "C:\BestCars\RollsRoyce\SiverCloud"     '<<==== Cambia

    Set SH = ActiveSheet

    sStr = Format(Now, "yyyymmddhhmm") & ".pdf"

    SH.ExportAsFixedFormat Type:=xlTypePDF, _

                           Filename:=myPath & sStr, _

                           Quality:=xlQualityStandard, _

                           IncludeDocProperties:=True, _

                           IgnorePrintAreas:=False, _

                           OpenAfterPublish:=False

End Sub

'<<===========

===

Regards,

Norman

Answer 2

ok risolto era una svista mia. Grazie mille

Answer 3

mi da questo errore

Answer 4

Manca solo una cosa: il file non dovrebbe finire in documenti, ma in una cartella specifica. Si può fare?

Answer 5

Ho sviluppato un foglio excel per gestire un elenco clienti in azienda, ma mi sono bloccato in un punto: vorrei generare un file pdf rinominato con data e ora tipo ipotizzando che siano le 13.00 del 08/03/2014, il file dovrà essere rinominato 080320141300.pdf o una cosa simile.

I file generati dovrebbero finire in una cartella determinata.

Che codice dovrei scrivere in VBA?

Ciao Ferrarista,

Alt-F11 per aprire l'editor di VBA

Alt-IMper inserire un nuovo modulo di codice

Nel nuovo modulo vuoto, incolla il seguente codice:

'===========>>

Option Explicit

'---------->>

Public Sub Tester()

    Dim SH As Worksheet

    Dim sStr As String

    Set SH = ActiveSheet

    sStr = Format(Now, "yyyymmddhhmm") & ".pdf"

    SH.ExportAsFixedFormat Type:=xlTypePDF, _

                           Filename:=sStr, _

                           Quality:=xlQualityStandard, _

                           IncludeDocProperties:=True, _

                           IgnorePrintAreas:=False, _

                           OpenAfterPublish:=False

End Sub

'<<===========

Alt-Q per chiudere l'editor di VBA

Alt-F8 per aprire la finestrina macro

Seleziona Tester | Esegui

Ho usato un formato  equivalente  a aaaammggoomm per la data e l'ora perché questo consente che più file siano facilmente ordinati in ordine di data. Se, comunque, vuoi mantenere il formato che hai specificato nel tuo esempio, sostituisci la riga di codice

    sStr = Format(Now, "yyyymmddhhmm") & ".pdf"

con:

     sStr = Format(Now, "ddmmyyyyhhmm") & ".pdf"

===

Regards,

Norman