试试
Dim App1 As New MSExcel.Application
try
Dim Wb1 As MSExcel.WorkBook = App1.WorkBooks.Open(rpt)
Dim Wb2 As MSExcel.WorkBook = App1.WorkBooks.Open(rpt2)
Dim Ws1 As MSExcel.WorkSheet = Wb1.WorkSheets(1) '指定要复制的工作表
Dim Ws2 As MSExcel.WorkSheet = Wb2.WorkSheets(1)
Ws2.UsedRange.Copy
ws1.Select
Dim count As Integer = Ws1.UsedRange.Rows.Count+1
Ws1.Rows(count).PageBreak = MSExcel.XlPageBreak.xlPageBreakManual
'ws1.Cells(1,Ws1.UsedRange.Columns.Count).Select '横向拷贝
ws1.Cells(count,1).Select '纵向拷贝
ws1.paste
For i As Integer = count To Ws1.UsedRange.Rows.Count
If ws1.cells(i,1).Text.Contains("本页合计") Then
If i < Ws1.UsedRange.Rows.Count Then
Ws1.Rows(i+1).PageBreak = MSExcel.XlPageBreak.xlPageBreakManual
End If
End If
Next
wb1.Save
wb1.ExportAsFixedFormat(MSExcel.XlFixedFormatType.xlTypePDF, pdf, MsExcel.XlFixedFormatQuality.xlQualityStandard, True, False, System.Reflection.Missing.Value, System.Reflection.Missing.Value, False, System.Reflection.Missing.Value)
'app1.visible = True
app1.quit
catch ex As exception
msgbox(ex.message)
app1.quit
End try
加好友 
发短信
Post By：2019/8/28 12:26:00 [只看该作者]
此主题相关图片如下：问题.jpg
