vba help - Merge all pdf files from a folder into single PDF

[Mallesh23]

Hi Team,

Need your help , I have a folder which contain pdf files. I want to merge all PDF files into Single PDF.
Like Consolidation we do in excel. is it possible via vba, or any software required.


Snapshot of single file,

Below are the PDF files list of a folder ,which needs to Merge OR Consolidate.

Thanks
mg

 

[Mallesh23]

Hi Team,

I am using excel 2016, I see below vba library. I don't know Which library required for combining multiple pdf files.

Thanks
mg

 

[Dossfm0q]

what about

Sub JoinFiles()

Dim StrPath As String, FileName As String, FileExt As String
FileName = "Name It" ' New File name <<<<<
FileExt = ".pdf"
 StrPath = Environ("USERPROFILE") & "\Desktop\pdf Folder" ' replace with Your Folder Path
 
Call JoinFiles_In_One(StrPath, FileName, FileExt)

End Sub

Public Sub JoinFiles_In_One(FlderPath As String, FileName As String, FileExt As String)

Dim oFSO As Object
Dim oFolder As Object
Dim oFile As Object
Dim SourceFile As String, TargetFile As String
StrPath = FlderPath
PathArr = Split(StrPath, "\")
UstrPath = UBound(PathArr)
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFolder = oFSO.GetFolder(StrPath)
    ' List Files
    N = 0
    SourceFile = ""
    TargetFile = ""
    For Each oFile In oFolder.Files
        If oFile.Name <> FileName & FileExt Then
            Open FlderPath & "\" & oFile.Name For Binary As #1
            N = N + 1
            SourceFile = Right(FileExt, Len(FileExt) - 1) & "_" & N
            SourceFile = String(LOF(1), 0)
            
            Get #1, 1, SourceFile
            Close #1
        TargetFile = TargetFile & SourceFile
       End If
    Next oFile
     'Mergge  File
         Open FlderPath & "\" & FileName & FileExt For Binary As #1
         Put #1, 1, TargetFile
         Close #1

End Sub

 

[Dossfm0q]

or
Please go through

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

 

[Mallesh23]

Hi Dossfm0q,

Few pdf created from image file, few pdf created from outlook mail.

Needs to combine such type of PDFs. is it possible for such of scenario.





Thanks
mg

 

[Mallesh23]

Hi Dossfm0q,

Thanksk for your help , I have tested your given code, Macro run start to End.
It has created Final PDF as Name It, but it has single PDF in it. Last PDF Files.

But I see size has increased of Final output... but merged pdf missing.



Thanks
mg