Macro per xls a pdf

[Lele2774]

Ciao

ho bisogno di un grande, anzi grandissimo aiuto e spero che qualcuno possa aiutarmi.
non dovrebbe essere una cosa particolarmente difficile.

ho un file di excel con 2 sheet (foglio1 e foglio2)
io avrei bisogno di una macro che salvi foglio1 in formato pdf con il nome riportato in una cella (ad esempio A1) in una directory (diciamo cartella Pippo) e foglio2 (sempre in formato pdf) sempre con un nome nella cella A1 in un'altra cartella (per esempio Paperino).

semplificando:

Xls (sheet1 e sheet 2)====MACRO====> pdf1 in Pippo e pdf2 in Paperino)

grazie a tutti per l'aiuto

[Anthony47]

Vedi la macro sviluppata per Alea in questa lunga e confusa discussione: viewtopic.php?f=26&t=94224

Si tratta di una macro di stampa (macroPrintPDF1) che va richiamata da una seconda macro che "spiega" directory e nome file da usare.

La macro di stampa:

Codice: Seleziona tutto

Sub macroPrintPDF1(ByVal PercF As String, ByVal NFile As String)
'
'QUESTA VERSIONE E' DA RICHIAMARE COME UNA FUNZIONE DA ALTRA MACRO
' Es Call macroPrintPDF1 ("C:\Documenti\","pippo.pdf")
'
'Dim objPDFCreator As PDFCreator.clsPDFCreator '>> Early Bind
Dim objPDFCreator  '<<<  Late Bind

On Error Resume Next
    If Dir(PercF & NFile) = PercF & NFile Then Kill (PercF & NFile)
    Shell "taskkill /f /im PDFCreator.exe", vbHide
Application.Wait (Now + TimeValue("0:00:05"))
On Error GoTo 0
'
'Set objPDFCreator = New PDFCreator.clsPDFCreator '>>>
Set objPDFCreator = CreateObject("PDFCreator.clsPDFCreator") '<<
aaa1 = objPDFCreator.cProgramIsRunning

With objPDFCreator
.cStart "/NoProcessingAtStartup"
.cOption("UseAutosave") = 1
.cOption("UseAutosaveDirectory") = 1
.cOption("AutosaveDirectory") = PercF
.cOption("AutosaveFilename") = NFile
.cOption("AutosaveFormat") = 0
aaa = .cOption("AutosaveFilename")
.cVisible = False
.cClearCache
End With
'
ActiveSheet.PrintOut Copies:=1, ActivePrinter:="PDFCreator"   'stampa "Foglio"
objPDFCreator.cPrinterStop = False

'attesa disponibilita' file finale
Do
   DoEvents
Loop Until Dir(PercF & NFile) = NFile
'
'clear finale oggetto e kill processo
Set objPDFCreator = Nothing
Shell "taskkill /f /im PDFCreator.exe", vbHide
'
End Sub


La macro di richiamo, nel tuo caso dovrebbe essere:

Codice: Seleziona tutto

Sub PrintF12()
Sheets("Foglio1").select
     PercF="C:\QualeDirectory"   
     NFile=Range("A1").Value & ".pdf"
     Call macroPrintPDF1(PercF & "\", NFile)
Sheets("Foglio2").select
     PercF="C:\QualeDirectory2"   
     NFile=Range("A1").Value & ".pdf"
     Call macroPrintPDF1(PercF & "\", NFile)
End Sub


Prova e fai sapere.


Edit:
Quanto proposto ha senso sulle versioni Excel fino a XL2003; da XL2007 infatti il salvataggio in formato "pdf" e' gestito in modo nativo. Vedi post successivi a questo.
Anthony

[Lele2774]

anche in questo caso..... ci provo :-D
speriamo di essere in grado.

ancora grazie!!!!

[Anthony47]

Una precisazione, che probabilmente e' presente nella lunga discussione che ti ho linkato ma che e' bene fare in chiaro: devi prima installare la stampante virtuale PDFcreator che puoi scaricare qui: http://sourceforge.net/projects/pdfcreator/

In questo modo quando vai in stampa da qualsiasi applicativo Window avrai la possibilita' di stampare su PDFcreator, che corrisponde a creare un file pdf.
Per l' uso delle macro: da excel premi Alt-F11 e ti si aprira' l' editor delle macro; Menu /Inserisci /Modulo e si crea "Modulo1"; copia il codice delle macro e incollale su Modulo1. Personalizza il codice di Sub PrintF12 (i nomi dei fogli da stampare, le celle in cui prendere il nome scritto senza ".pdf"), lancia la macro (da excel: alt-F8, seleziona PrintF12 dall' elenco delle macro disponibili, premi Esegui).

Ciao

[Lele2774]

mmmm.....qui temo che dovrò lavorarci un pochettino.
grazie ancora

[Lele2774]

ho provato con la macro seguente, ma non funziona.
non capisco perchè.

brevissima spiegazione:
il file xls è composto da 3 fogli
- interfaccia (dove è posizionato il bottone per avviare la macro)
- Selling
- Buying

le 2 cartelle ove andare a salvare i file pdf in questione si chiamano:
- Buying
- Selling

mentre il nome con il quale si dovrebbe salvare i 2 file in pdf si trova nella cella A3

spero che tu possa aiutarmi :-)
--------------------------------------------------
Sub Macro3()
'
' Macro3 Macro
'

'
Sheets("Buying").Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\admin\Desktop\Prova\Buying\Range("C3").Value & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
Sheets("Selling").Select
Range("A1").Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\admin\Desktop\Prova\Selling\Range("C3").Value & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
Sheets("Interfaccia").Select
Range("A1").Select
End Sub

[Anthony47]

Ah ma allora hai 2007 o 2010, dove il formato pdf e' supportato in modo nativo...

Diamo per scontato che la directory C:\Users\admin\Desktop\Prova\Buying esista nel tuo pc; devi pero' comporre decorosamente il nome concatenando i valori costanti (inseriti tra gli apici) con i valori che devono essere estratti dal foglio; insomma nella tua macro non
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\admin\Desktop\Prova\Selling\Range("C3").Value & ".pdf", Quality:= _
ma
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\admin\Desktop\Prova\Selling\" & Range("C3").Value & ".pdf", Quality:= _

Ciao

[Lele2774]

ti ringrazio moltissimo.

appena posso....ci riprovo ;-)

[Lele2774]

probabilmente....sono stupido
non riesco ad implementare correttamente questa MACRO
------------------------------
Sub BS_copy()
'
' BS_copy Macro
'

'
Sheets("AIR_1").Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"\\Mxpfs01\shares\MXP Share\SALES\Quotation\sales activity 2012\quotazioni (selling)\" & Range("M3").Value & ".pdf", Quality:=_xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
Sheets("Buying").Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"\\Mxpfs01\shares\MXP Share\SALES\Quotation\sales activity 2012\quotazioni (buying)\" & Range("M3").Value & ".pdf",
, Quality:=_xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
Sheets("AIR_1").Select
End Sub
-----------------------

non capisco dove accidenti sbaglio.

[Anthony47]

In che senso non riesci a implementarla? Quando la esegui che cosa ti succede?
I drive di rete a cui fai riferimento nel percorso del file sono accessibili in scrittura, provando manualmente?

Ciao

[Lele2774]

succede che mi da errore.
mi si apre la pagina di programmazione segnalandomi che qualcosa non funziona regolarmente.

non lo so, forse è un problema di sintassi, ma non saprei dove cercare ( e quindi risolvere) il problema.

sta di fatto che con la medesima macro, invece di mettere l'istruzione di lettura del valore nella cella M3 per salvare il file in pdf, metto "pippo"...la macro mi crea il file, nella posizione corretta, nominandolo pippo.pdf.
UFFFFF....HELP!!!!!

[Anthony47]

succede che mi da errore.
mi si apre la pagina di programmazione segnalandomi che qualcosa non funziona regolarmente.
non lo so, forse è un problema di sintassi, ma non saprei dove cercare ( e quindi risolvere) il problema.

Lele, se non vuoi dire che errore ti da' ne' dove allora dovresti chiedere lumi o candele su http://www.lostregone.com. Io non avendo proprieta' paranormali non so che dire di fondato.
Per curiosita', in M3 che cosa c' e' scritto?

Ciao

[Lele2774]

in M3 c'è una formula che restituisce una stringa di testo.

quanto all'errore, come detto, si apre l'editor indicandomi anche in questo caso un "runtime error"

[Anthony47]

Se vuoi fare un passo avanti:
Quale errore, su quale linea, quando. Sono cose che il "debug" dice in chiaro sul tuo video (non sul mio); eventualmente fai uno screenshot in cui queste cose sono evidenti e pubblicalo

Che cosa e' visualizzato in M3 quando hai questo errore?

Ciao