Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

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

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

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

Postdi marcus69 » 20/06/19 08:57

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?
marcus69
Utente Junior
 
Post: 32
Iscritto il: 19/10/17 14:39

Sponsor
 

Re: macro per esportare in pdf un foglio excel con nome e pa

Postdi FRIEDRICH » 20/06/19 17:18

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
Avatar utente
FRIEDRICH
Utente Junior
 
Post: 28
Iscritto il: 09/07/17 17:14

Re: macro per esportare in pdf un foglio excel con nome e pa

Postdi Anthony47 » 20/06/19 23:12

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.
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 16512
Iscritto il: 21/03/06 16:03
Località: Ivrea


Torna a Applicazioni Office Windows


Topic correlati a "macro per esportare in pdf un foglio excel con nome e path":

Excel
Autore: fra.dibia
Forum: Software Windows
Risposte: 1

Chi c’è in linea

Visitano il forum: Nessuno e 25 ospiti