VBA Merge PDF's based on path

[Daccota_lenny]

Hello!

I need help getting VBA to Merge PDF's based on the path. I've attached a photo. Column A, B, C are file paths as they currently exist. I need VBA to grab and merge all of these columns files and use the Output location in column D as the reference for the new path name and where it should be saved/named. I have Acrobat Pro and Office 365.

EDIT: I should also note that this is just an example, the PDFs being merged will be hundreds of rows so the code would need to be able to move down to the next row, execute the task and so forth.

 

[John_w]

Try the code at

Combine multiple PDF files with VBA

Dear VBA Specialists, I want to create a macro which merges multiple PDF files, but the amount of files that has to be merged is variable and need to be determined in the excelsheet. So my wish is to gain a VBA code that reads the filenames out of a folder, Somehow select which ones should...

www.mrexcel.com

which merges 2 input PDFs specified in columns A and B to create 1 output PDF specified in column C. You would need to modify the code to handle 3 input PDFs specified in columns A to C and the output PDF in D.

 

[abdulads]

Public Sub Merge_PDFs()

Dim PDFfiles As Variant
Dim i As Long
Dim objCAcroPDDocDestination As Acrobat.CAcroPDDoc
Dim objCAcroPDDocSource As Acrobat.CAcroPDDoc

With ActiveSheet
PDFfiles = .Range("A2", .Cells(.Rows.Count, "C").End(xlUp)).Value
End With

'Create Acrobat API objects

Set objCAcroPDDocDestination = CreateObject("AcroExch.PDDoc")
Set objCAcroPDDocSource = CreateObject("AcroExch.PDDoc")

'Loop through rows, open PDF file in column A, open and insert PDF file in column B, save as PDF file in column C

For i = 1 To UBound(PDFfiles)
objCAcroPDDocDestination.Open PDFfiles(i, 1)
objCAcroPDDocSource.Open PDFfiles(i, 2)
If Not objCAcroPDDocDestination.InsertPages(objCAcroPDDocDestination.GetNumPages - 1, objCAcroPDDocSource, 0, objCAcroPDDocSource.GetNumPages, 0) Then
MsgBox "Error merging" & vbCrLf & PDFfiles(i, 1) & vbCrLf & "and" & vbCrLf & PDFfiles(i, 2), vbExclamation
End If
objCAcroPDDocSource.Close
objCAcroPDDocDestination.Save 1, PDFfiles(i, 3)
objCAcroPDDocDestination.Close
Next

Set objCAcroPDDocSource = Nothing
Set objCAcroPDDocDestination = Nothing

MsgBox "Done"

End Sub

 

[alansidman]

Here is a no coding alternative with Power Query