多个pdf文件指定页合并为一个文件

假定所需要合并的多个pdf的全路径文件名在工作表sheet1的A列，对应的需要合并的页在B列，合并后的名称为 new.pdf
代码如下：

Dim PDFdoc As Object, TempPDFdoc As Object
Dim filename As String
Dim pagenum As Long
Set PDFdoc = CreateObject("AcroExch.PDDoc")
Set TempPDFdoc = CreateObject("AcroExch.PDDoc")
TempPDFdoc.Create
With sheets("sheet1")
For i = 1 To .Range("A65536").End(xlUp).Row
fileName =  .Cells(i, 1) 
pagenum = .Cells(i, 2) 
If PDFdoc.Open(fileName) Then
TempPDFdoc.InsertPages TempPDFdoc.GetNumPages - 1, PDFdoc, pagenum, 1, 0
PDFdoc.Close
End If
Next i
sfilename = "new.pdf"
With TempPDFdoc
.Save PDSaveFull, sfilename
.Close
End With
Set PDFdoc = Nothing
Set TempPDFdoc = Nothing
End With