Invio file in .pdf da file esterno

[GretPartecipante Gret]

Buonasera a tutti,

ho trovato in rete questa macro:

Sub exporta_fogli_PDF()
    Sheets(Array(1, 2)).Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:="C:\Users\....\OneDrive\Desktop\file.pdf"
End Sub

che fa al caso mio, solo che i fogli sono di un file esterno e il nome viene preso dalla cella B7.

Qualcuno ha qualche suggerimento da darmi?

Grazie mille in anticipo della vostra disponibilità e buona continuazione 🙂

 

[Luca73Partecipante Luca73 Karma: 56 pts]

Se il file è esterno devi fare riferimento al corretto workbook, se non specificato si fa riferimento al workbook attivo.

 

Workbook("NomedelWorkbook).Sheet(numeroonomedelSheet).Export......

Per il nome come da range B7 devi modificare con qualcosa del genere

Filename:="C:\Users\....\OneDrive\Desktop\" & Range("B7").value & ".pdf"

[GretPartecipante Gret]

Ciao Luca73 e grazie per aver risposto.

Ho provato la soluzione ma mi da errore su tutta questa parte:

`    Workbook("Quotation #1").Sheets(Array(1, 2)).ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:="C:\Users\....\OneDrive\Desktop\" & "Quote " & Range("B7").Value & ".pdf"`

inoltre mi esce un messaggio che dice "Tipo non corrispondente" ma il nome del file è quello  

Chiedo scusa se non ho ben specificato ma la cella a cui devo fare riferimento è sempre del file esterno.

[Luca73Partecipante Luca73 Karma: 56 pts]

sicuramente:

workbooks e non workbook (scusami)

il nome penso sia completo di estensione

se la cella è nel file esterno allora devispecificarla in maniera completa

workbook("nomeW)".Sheet(numeroonomedelSheet).range("B7")

 

suggerimento usa help e registratore.

allega un file con la macro intera.

Ciao

Luca

[GretPartecipante Gret]

Ho cambiato il nome del file esterno perchè ho pensato che non stava funzionando per via del carattere speciale "#".

Ora mi esce un nuovo messaggio "Subscript out of range" (non so come si traduce ) e mi evidenzia sempre tutto.

Allego entrambi i file e grazie mille per il supporto.

In FileMaster è presente la macro.

 

Allegati:

You must be logged in to view attached files.

[Luca73Partecipante Luca73 Karma: 56 pts]

Come ti avevo scritto prima il nome del workbook deve essere completo di estensione.

a me quella sotto funziona mettndo opportunamnte la directory di destinazione.

 

Workbooks("FileEsempio.xlsx").Sheets(1).ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:="C:\Users\....\documents\Quote" & Workbooks("FileEsempio.xlsx").Sheets(1).Range("B7") & ".pdf"
End Sub

[GretPartecipante Gret]

Scusa l'ignoranza, ma a te salva in pdf i due fogli del file esterno?  

Io avrei la necessità di salvare in un unico pdf i due fogli e non solo uno.

[Luca73Partecipante Luca73 Karma: 56 pts]

Il mio esempio era per un foglio solo.

Prova con

Sub FogliPDF()

Workbooks("FileEsempio.xlsx").Activate
Workbooks("FileEsempio.xlsx").Sheets(Array(1, 2)).Select

Selection.ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:="C:\Users\ltravai\documents\" & "Quote" & Workbooks("FileEsempio.xlsx").Sheets(1).Range("B7") & ".pdf"
End Sub

[GretPartecipante Gret]

Grazie, funziona alla grande!  

Era proprio quello che cercavo.

Grazie mille ancora e buona continuazione  

[Autore]

Articoli