有分页符才是合理的。
模板不支持父子孙的嵌套方式，可能是这个功能的一个漏洞，虽然可以用，但是不确定会不会有问题。
分页符只能通过代码去掉
Dim Book As New XLS.Book(ProjectPath & "Attachments\新进.xls")
Dim fl As String = ProjectPath & "Reports\新进.xls"
Book.Build() '生成细节区
Book.Save(fl) '保存工作簿
Dim App As New MSExcel.Application
try
Dim Wb2 As MSExcel.WorkBook = App.WorkBooks.Open(fl)
Dim Ws As MSExcel.WorkSheet = Wb2.WorkSheets(1)
App.ActiveWindow.view = MSExcel.XlWindowView.xlPageBreakPreview '要把页面设置为分页状态,才能正常获取分页符
Ws.ResetAllPageBreaks '删除所有分页符
Wb2.save()
catch ex As Exception
msgbox(ex.message)
finally
App.quit
End try
加好友 
发短信
Post By：2021/2/20 15:24:00 [显示全部帖子]
