Unire due pdf salvati nella stessa cartella [RISOLTA - CHIUSA]

In una cartella di lavoro sono salvati due file.pdf:

FilePdf1 = "C:\Users\User\Desktop\Cartella1\Partita1.pdf" 'file 1
FilePdf2 = "C:\Users\User\Desktop\Cartella1\Partita2.pdf" 'file 2

C'è la possibilità con vba di unirli in un unico file:

FilePdf3 = "C:\Users\User\Desktop\Cartella1\Finale.pdf" 'risultato finale

ovviando a programmi esterni come per esempio PDFTk Server?

Il VBA è il linguaggio di programmazione di Office quindi con Acrobat (pdf) non c’entra nulla.

Quello che puoi fare è, se disponi di una versione di Excel dalla 2010 in poi, usare le Power Query per trasformare i due pdf in file di Excel per poi riunirli in un solo foglio che potrai esportare nuovamente in pdf.

In rete ho trovato questo link:
https://wellsr.com/vba/2017/word/combine-pdfs-with-vba-and-adobe-acrobat/
che come spiega l'Autore:
Questa macro funziona da Word, Excel e altre applicazioni di Microsoft Office, ma prima di poterla eseguire, è necessario aggiungere un riferimento alla libreria di tipo Adobe Acrobat X.0

Bene non sapevo.

Allora segui e fai quanto scritto nel link.

Pensavo di aver fatto una cosa positiva nella condivisione, ma sono il solito ingenuo e ci casco sempre.

Devo imparare ancora non solo il vba.

Grazie comunque per avermi invitato garbatamente a seguire quanto scritto nel link, cosa che stavo già facendo e sono a buon punto.

Rex
sei inutilmente polemico....

Cosa avrebbe dovuto dirti Alfredo - saluti - visto che (Bene non sapevo) non era a conoscenza di quella possibilità?

Ti ha semplicemente suggerito di seguire le indicazioni del link.

Buon Anno

Io ci avevo letto un tono tipo: io ti ho dato una soluzione tu ne hai un'altra a questo punto arrangiati.

Se ho interpretato male mi scuso con alfrimpa.

Io seguo sempre i consigli che mi vengono dati senza fare polemiche.

Anzi aspetto con ansia un contributo di quanti hanno conoscenze di vba indiscutibilmente superiori alle mie anche perché l'argomento di che si tratta è abbastanza "tosto" e forse potrebbe essere utile ad altri Utenti.

In fin dei conti è questo lo spirito del Forum o sbaglio, al di là che una discussione venga aperta per risolvere un problema dell'OP.

Grazie e rinnovo gli Auguri di Buon anno.

Ma se non conoscevo la possibilità illustrata nel link che hai segnalato cos'altro avrei potuto dirti se non seguire quanto in esso illustrato?

Ed inoltre una risposta, in base alle mie conoscenze l'avevo comunque data.

Non potevo sapere se per te andava bene oppure no.

Io mi sono scusato e per me la questione è risolta.

Se mi puoi dare una mano date le conoscenze di vba lo apprezzerò altrimenti me ne farò una ragione.

Mi sembra di aver letto che nel Forum ognuno vi partecipa senza alcun obbligo di dare o ricevere risposte.

Io aspetto se vengono bene se non vengono va bene lo stesso.

Ed infatti io ho risposto sulla base di quelle che sono le mie conoscenze.

Altro non posso dire.

Il link che ho condiviso tratta di codice vba applicato ad excel.

Volevo solo dirti che navigando di qua e di là nei vari forum ho potuto apprezzare che poi tanto "scarso" in vba non lo sei, anzi ne hai da insegnare e quindi pensavo che potessi dare un tuo contributo.

Ma va bene così.

Ti ringrazio comunque, io proseguo lasciando fuori ogni polemica.

Per quanti fossero interessati aggiungo questi altri link:
https://stackoverflow.com/questions/50298884/how-i-can-merge-multi-pdfs-files-by-using-vba-code
https://stackoverflow.com/questions/58959735/combine-2-pdfs-in-one-using-vba

rex88 (nTdQ231201), 03/01/2024 11:22:

---

Volevo solo dirti che navigando di qua e di là nei vari forum ho potuto apprezzare che poi tanto "scarso" in vba non lo sei, anzi ne hai da insegnare e quindi pensavo che potessi dare un tuo contributo.

---

Ma non posso sapere tutto e questa era una delle tante cose che non sapevo.

Non sono nessuno per dare giudizi, ma continuo a pensare che sei all'altezza di interpretare qualunque codice di vba applicato ad excel e trarne soluzioni.

E questo non lo dico per piaggeria.

ciao
il link che hai sottoposto al post #3 funziona perfettamente, lo hai provato?

saluti

Ciao,

sono rimasto fermo perché nel frattempo ho visionato gli altri link purtroppo tutti in inglese e li ho dovuti tutti tradurre in italiano.

Sono contento che tu lo abbia già testato e che funzioni perfettamente.

Nel pomeriggio mi metto a fare anch'io qualcosa e poi se sei disponibile ne possiamo discutere.

Grazie

ciao
prova a buttare giù qualcosa e se non va, sottoponi quanto hai fatto e vedremo di arrivare in fondo.

C'è poco da fare, quel codice lo lasci inalterato, ti crei una macro che alimenta un array con il percorso e nome dei file da unire, crei una variabile con percorso e Nuovo nome da assegnare ai file uniti e passi il tutto a quel codice.....

saluti

Anche a me funziona perfettamente.

A questo punto volevo vedere come fare per unire due file.pdf salvati in due cartelle diverse:

File1.pdf salvato nella cartella1
File2.pdf salvato nella cartella2.

Entrambe le cartelle sono su dektop.

ciao
visto che "anche a te funziona perfettamente", basta che indichi i due percorsi nelle tue due celle.
Qual è il problema?

Intanto, se vuoi, sottoponi a beneficio di altri la procedurina con la quale passi i valori alla Private Function MergePDFs di quel sito.

saluti

Il problema è che mi sono fermato al semplice codice del link.

...quindi non ti funziona perfettamente...perchè quella Routine da sola non funziona in quanto non è eseguibile

Hai almeno un'idea di come si passino i parametri che una Function richiede?

Forse non mi sono spiegato il codice funziona perchè l'ho testato.

Se ti riferisci al seguito del tuo post sono fermo.

Nel Link oltre alla funzione c'è anche una sub che ho inserito.

Ho messo sul foglio1 il pulsante con la macro e i due file si uniscono in un nuovo file.pdf uno a seguire l'atro.

Questa è la sub

Sub Combine_PDFs_Demo()
Dim strPDFs(1 To 2) As String
Dim bSuccess As Boolean

strPDFs(1) = "C:\Users\User\Desktop\UnirePdf\File1.pdf"
strPDFs(2) = "C:\Users\User\Desktop\UnirePdf\File2.pdf"

bSuccess = MergePDFs(strPDFs, "C:\Users\User\Desktop\UnirePdf\NuovoPDF.pdf")

If bSuccess = False Then MsgBox "Impossibile combinare tutti i PDF", vbCritical, "Impossibile unire i PDF"

End Sub

C'è bisogno di altro da fare?

rex88 (nTdQ231201), 03/01/2024 16:58:

---

Forse non mi sono spiegato il codice funziona perchè l'ho testato.

---

Quindi se lo hai testato hai creato un sub che gli passa i parametri perchè, ripeto, quella macro da sola non funziona.

Pertanto non capisco quale sia la difficoltà se i due file da unire sono in cartelle diverse; basta che nel tuo foglio indichi i percorsi dei due file e li passi a quella Routine

In effetti il codice si limita semplicemente ad unire due file.pdf che sono inseriti nella stessa cartella

E tu mi confermi che va bene.

Adesso sto vedendo come fare per unire due file.pdf salvati in due cartelle diverse.

rex88 (nTdQ231201), 03/01/2024 17:12:

---

In effetti il codice si limita semplicemente ad unire due file.pdf che sono inseriti nella stessa cartella

---

Non è così....
Il codice unisce i file che tu gli passi, siano essi nello stesso percorso che in percorsi diversi.

Sarebbe più corretto che tu dicessi che non sei stato in grado di farlo funzionare oppure che mostrassi come lo hai fatto funzionare visto che da solo non funziona ( e tre).

saluti

eh, ma se tu fai le correzioni dei post dopo che ti ho risposto, come faccio a sapere quel che fai?

Comunque bene quanto hai aggiunto al post #22.

Pertanto hai risolto in autonomia, in quanto basta cambiare strPDFs(1) oppure strPDFs(2) con i relativi percorsi.

saluti

Quando ho modificato il mio post ci siamo accavallati e non ho visto quello che mi avevi scritto prima.

E di questo ti chiedo scusa.

Mi dispiace per l'incomprensione ma spero che tu mi creda.

Comunque onestamente quello che ho fatto l'ho rilevato dal link che ho segnalato nel forum dove a metà pagina c'è riportata la sub che ho scritto nel precedente post e che io ho adattato al mio file.

Non voglio passare per quello che non sono, mi dispiacerebbe.

Grazie.

rex88

Per quanto riguarda i due percorsi ho modificato la macro in questo modo:

Sub Combine_PDFs_Demo()
Dim strPDFs(1 To 2) As String
Dim bSuccess As Boolean

strPDFs(1) = "C:\Users\User\Desktop\UnirePdf\2022\File1.pdf"
strPDFs(2) = "C:\Users\User\Desktop\UnirePdf\2023\File2.pdf"

bSuccess = MergePDFs(strPDFs, "C:\Users\User\Desktop\UnirePdf\NuovoPDF.pdf")

If bSuccess = False Then MsgBox "Impossibile combinare tutti i PDF", vbCritical, "Impossibile unire i PDF"

End Sub

Grazie

rex88

La macro consente di unire due file.pdf definiti (File1 e File2), ma se volessimo per esempio unire un Filex e un Filey come dovremo strutturarla?

Mettendo per esempio su una userform una CB che seleziona la cartella 1 e una TB che riporta il Filex e una CB che seleziona la cartella 2 e una TB che riporta il Filey per poi unirli con una macro posta su un pulsante.

E' una cosa fattibile?

rex88 (nTdQ231201), 03/01/2024 20:20:

---

E' una cosa fattibile?

---

Certamente....prova a sottoporre un esempio di come hai strutturato il foglio, la UserForm e i tentativi che hai fatto per alimentare le Combo e le textBox.

Ma siamo sicuri che i file da unire siano sempre e solo 2 ??

Altrimenti si dovrebbe ipotizzare qualcosa di diverso.

saluti