Merge PDFs listed in a ListBox

[sunilbsrv2k]

Hi All,

I am sorry for repeating this question, as I had posted it in another thread.

My question is: I have a Listbox, in which the PDf files of a folder is listed.

Below is a program to merge PDFs.

I want this program to take the contents of this Listbox and combine them into one.

Request your help.

Sub Main()
   
    Const DestFile As String = "MergedFile.pdf" ' <-- change to suit
   
    Dim MyPath As String, MyFiles As String
    Dim a() As String, i As Long, f As String
   
     ' Choose the folder or just replace that part by: MyPath = Range("E3")
    With Application.FileDialog(msoFileDialogFolderPicker)
         '.InitialFileName = "C:\Temp\"
        .AllowMultiSelect = False
        If .Show = False Then Exit Sub
        MyPath = .SelectedItems(1)
        DoEvents
    End With
   
      ' Populate the array a() by PDF file names
    If Right(MyPath, 1) <> "\" Then MyPath = MyPath & "\"
    ReDim a(1 To 2 ^ 14)
    f = Dir(MyPath & "*.pdf")
    While Len(f)
        If StrComp(f, DestFile, vbTextCompare) Then
            i = i + 1
            a(i) = f
        End If
        f = Dir()
    Wend
   
    ' Merge PDFs
    If i Then
        ReDim Preserve a(1 To i)
        MyFiles = Join(a, ",")
        Application.StatusBar = "Merging, please wait ..."
        Call MergePDFs(MyPath, MyFiles, DestFile)
        Application.StatusBar = False
    Else
        MsgBox "No PDF files found in" & vbLf & MyPath, vbExclamation, "Canceled"
    End If
   
End Sub

Thanks

 

[cerfani]

not sure your question, but here are lots of examples on using listboxes... https://analysistabs.com/vba-code/excel-userform/listbox/

what exactly is the problem?

 

[sunilbsrv2k]

Hi,

Thanks for your reply.

Maybe I might not have put forward correctly.

In the above code, I will be selecting a folder using MFDialogPicker, which will then list all the files that have an extension ".pdf".

Now, my issue is, I have a listbox in which the same files will be listed.

I want the above program to take these files listed in the listbox and perform the task mentioned in above program.

Could any os you please help me in this.

Thanks