macro per esportare in pdf un foglio excel con nome e path

[marcus69]

ciao,

leggendo sul forum, gli argomenti gia postati, sono arrivato a questo

Sub SalvaPDF()
Dim wks1 As Worksheet
Dim dati As Range
Dim percorso As String
Set vks1 = Worksheets("DAY")
Set dati = vks1.Range("a1:h48")
nomefile = CStr(vks1.Range("c1").Value)
percorso = ("/Users/Marco/Desktop")
'percorso = "Users:Marco:Desktop" ( altro tentativo di percorso )
dati.ExportAsFixedFormat Type:=xlTypePDF, FileName:=percorso & nomefile, _
Quality:=xlQualityStandard, OpenAfterPublish:=False
Set wks1 = Nothing
Set dati = Nothing
End Sub

il file pdf lo crea, ma con il nome della File Excel è nella cartella Marco/Libreria/Containers/com.microsoft.Excel/Data/fileesportato.pdf

non legge il valore di c1 ( che è una data ) e non lo mette sul Desktop, avete idea per cortesia del motivo?

[FRIEDRICH]

Ciao Marco,

la data contiene lo slash (/), che è un carattere non ammesso nel nome del file, occorre formattare la data diversamente, come da esempio seguente. Nel percorso manca / dopo Desktop. Inoltre hai dichiarato la variabile wks1 e nel codice invece usi vks1 e la variabile nomefile non è dichiarata. E' opportuno usare Option explicit che forza la dichiarazione esplicita di tutte le variabili.

Prova con il codice corretto:

Codice: Seleziona tutto

Sub SalvaPDF()

    Dim wks1 As Worksheet
    Dim dati As Range
    Dim percorso As String
    Dim nomefile As String

    Set wks1 = Worksheets("DAY")
    Set dati = wks1.Range("a1:h48")
    nomefile = Format((wks1.Range("c1").Value), "dd-mmmm-yyyy")
    percorso = "C:\Users\Marco\Desktop\"
    dati.ExportAsFixedFormat Type:=xlTypePDF, Filename:=percorso & nomefile, _
Quality:=xlQualityStandard, OpenAfterPublish:=False

End Sub

[Anthony47]

Marcus non l'ha ancora detto, ma credo che lavori con un Mac; in questo caso dovra' adattare l'istruzione percorso = etc etc alla sintassi del suo sistema.

Ciao a tutti.