Combine 3 PDF Files as per the Excel Sheet and path provided in it.

[abdulads]

Hi, Please help me Merge PDF Documents as per the Excel Sheet and path provided in it.

Here we have to combine File Name 1,File Name 2 and File Name 3 and give the Output in the Final Folder with the Given output name.

File Name1	File Name2	File Name 3	Output
C:/Home/1.pdf	C:/Office/2.pdf	C:/Office/3.pdf	C:/Final/1&2&3.PDF
C:/Home/4.pdf	C:/Office/5.pdf	C:/Office/6.pdf	C:/Final/4&5&6.PDF
C:/Home/7.pdf	C:/Office/8.pdf	C:/Office/9.pdf	C:/Final/7&8&9.PDF

 

[abdulads]

Currently i know to Add Two Columns but unable to edit to add third column Please can someone help.

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