主题：如何合并pdf文件

把多个word、excel复制粘贴到一个word里面，然后用word另存为pdf，即可。

操作word，参考 http://foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=99542&skin=0

另存为pdf，参考

Dim app As New MSWord.Application
try
    Dim fileName = "d:\test.doc"
    Dim doc = app.Documents.Open(fileName)
    doc.ExportAsFixedFormat("d:\test.pdf", MSWord.WdExportFormat.wdExportFormatPDF)
    doc.saved = True
    app.Quit
catch ex As exception
    msgbox(ex.message)
    app.Quit
End try

一样的，用vba打开excel，拷贝，然后粘贴过去，就行了的。如

Dim app As New MSWord.Application
try
    Dim fileName = "d:\test.doc"
    Dim doc = app.Documents.Open(fileName)
   
    Dim App2 As New MSExcel.Application
    Dim Wb As MSExcel.WorkBook = App2.WorkBooks.Open("D:\test.xls")
    Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1) '指定要复制的工作表
    Ws.UsedRange.Copy
    wb.saved = True
    app2.DisplayAlerts = False
   
    app.ActiveWindow.Selection.WholeStory
    app.Selection.MoveRight(Unit:=1)
    app.Selection.TypeText(Text:=vbcrlf)
    app.ActiveWindow.Selection.paste
   
    App2.Quit
   
    app.visible = True
catch ex As exception
    msgbox(ex.message)
    app.Quit
End try