老师,
您好!
非常感谢你的指点.
我试了以下代码, 可以成功将Excel合并, 但如何将Excel转为PDF输出啊? 之前用Book.savetoPDF直接生成PDF, 现在代码应该怎样写?
'输出报表
Dim Book As New XLS.Book(ProjectPath & "Attachments\生产异常报告.xlsx")
Dim fl As String = ProjectPath & "Reports\生产异常报告.xlsx"
Book.Build() '生成细节区
Book.Save(fl) '保存工作簿
Dim App As New MSExcel.Application
Dim Wb As MSExcel.Workbook = App.WorkBooks.open(ProjectPath & "Reports\生产异常报告.xlsx")
Dim ws As MSExcel.WorkSheet
ws = Wb.WorkSheets(1)
Dim rg As MSExcel.Range = ws.Cells(ws.UsedRange.Rows.Count + 1, 1)
app.DisplayAlerts = False
For i As Integer = Wb.WorkSheets.Count To 2 Step - 1
Dim Ws2 As MSExcel.WorkSheet = Wb.WorkSheets(i)
Dim Rg2 As MSExcel.Range = Ws2.UsedRange
rg2.Copy
rg.PasteSpecial()
rg = ws.Cells(ws.UsedRange.Rows.Count + 1, 1)
Ws2.Delete
Next
Wb.Save
App.Quit
Dim Proc As New Process '打开工作簿
Proc.File = fl
Proc.Start()
End If
加好友 
发短信
Post By：2022/10/11 19:33:00 [只看该作者]
