Excel Forum

Code: Select all

'Other code
Dim i As Integer

Set Acro_App = New Acrobat.AcroApp
Set Acro_DestDoc = New Acrobat.AcroPDDoc
Set Acro_TargDoc = New Acrobat.AcroPDDoc

For cntr = 2 To Sheet1.Cells(Sheet1.Rows.Count, "a").End(xlUp).Row
    If Sheet1.Range("b" & cntr).Value <> "" Then
        If VBA.Dir(Sheet1.Range("a" & cntr).Value) = "" Then
            MsgBox "File " & Sheet1.Range("a" & cntr).Value & "doesnt exists.."
            Exit Sub
        Else
            ReDim Preserve Select_Files(i)
            Select_Files(i) = Sheet1.Range("a" & cntr).Value
            i = i + 1
        End If
    End If
Next cntr

'    Select_Files = Sheet1.Range("A2:A500").Value
'    Acro_DestDoc.Open (Select_Files(LBound(Select_Files), 1))
Acro_DestDoc.Open (Select_Files(LBound(Select_Files)))
'Other code

Code: Select all

ReDim Preserve Select_Files(i)

Code: Select all

Acro_DestDoc.Open (Select_Files(LBound(Select_Files)))
        For cntr = LBound(Select_Files) + 1 To UBound(Select_Files)

        Acro_TargDoc.Open (Select_Files(cntr, 1))


        If Acro_DestDoc.InsertPages(Acro_DestDoc.GetNumPages() - 1, Acro_TargDoc, 0, Acro_TargDoc.GetNumPages(), True) = True Then
            'MsgBox "Merge in process......"
        End If


    Acro_TargDoc.Close

        Next cntr

Code: Select all

Acro_TargDoc.Open (Select_Files(cntr,1))

Code: Select all

Acro_TargDoc.Open (Select_Files(cntr))