Pdf dosyalarını makro ile birleştirmek

[cavanoos]

Merhaba arkadaşlar;

Excel dosyalarını birleştirdiğim bir makro kodu var.Bunu pdf dosyalarını birleştirmek için kullanabilmek için üzerinde ne tür değişiklikler yapmak lazım.

Excel dosyalarını birleştirdiğim kod;

Sub Birlestir()
Dim AktifDosya As Workbook
Dim Dosya As Workbook
Dim DosyaAdi

Set AktifDosya = ActiveWorkbook

With Application.FileDialog(msoFileDialogOpen)
.AllowMultiSelect = True
.Title = "Birleştirilecek Dosyaları Seçin"

If .Show Then
For Each DosyaAdi In .SelectedItems
Set Dosya = Workbooks.Open(DosyaAdi)

Dosya.Worksheets(1).UsedRange.Copy AktifDosya.Worksheets(1).Range("A65536").End(xlUp)(2, 1)

Dosya.Close False
Set Dosya = Nothing
Next
End If
End With

Set AktifDosya = Nothing
End Sub