VBA to combine PDFs into one PDF file
Here's free e-course of PDF Automation using VBA: link
Option Explicit
Sub CombinePDFsTest()
Dim lr&, j&, myArrFiles() As String
lr = Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row 'A as primary key
ReDim myArrFiles(lr) As String
For j = 2 To lr
myArrFiles(j - 2) = Sheets("Sheet1").Cells(j, 1)
Next
Call CombinePDFs(myArrFiles, "C:\Users\M515269\Desktop\final\existingFileName_toCombineHere.pdf", _
"C:\Users\M515269\Desktop\final\final_combined_file_name.pdf")
End Sub
Public Function CombinePDFs(arrFiles() As String, path_docPC_combineTo As String, path_saveAs_final As String) As Boolean
Dim DestinationPDF As Acrobat.CAcroPDDoc
Dim SourcePDF As Acrobat.CAcroPDDoc
Dim docpc_final As Acrobat.CAcroPDDoc
Dim i As Integer
Dim failedCount As Integer
On Error GoTo AcrobatAPI_Missing:
Set DestinationPDF = CreateObject("AcroExch.PDDoc")
Set SourcePDF = CreateObject("AcroExch.PDDoc")
Set docpc_final = CreateObject("AcroExch.PDDoc")
docpc_final.Open path_docPC_combineTo
For i = LBound(arrFiles) + 1 To UBound(arrFiles)
SourcePDF.Open (arrFiles(i))
If docpc_final.InsertPages(docpc_final.GetNumPages - 1, SourcePDF, 0, SourcePDF.GetNumPages, 0) Then
CombinePDFs = True
Else
failedCount = failedCount + 1
End If
SourcePDF.Close
Next i
docpc_final.Save 1, path_saveAs_final
docpc_final.Close
Set SourcePDF = Nothing
Set docpc_final = Nothing
AcrobatAPI_Missing:
If failedCount <> 0 Then
CombinePDFs = False
End If
On Error GoTo 0
End Function
