专家坐堂-EXecl报表分页后格式设置问题Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim ReportDate As String =Format( e.Form.Controls("StartDate2").Value ,"yyyy年MM月") \'定义开始日期

Dim st As Date = Date.Now

\'EXCEl报表_父表数据

Dim Book As New XLS.Book(ProjectPath & "Attachments\\yejitongji.xls")

Book.Build() \'生成细节区

Dim lj As String = ProjectPath & "" & ReportDate & "报表\\" & ReportDate & "业绩统计.xls" \'定义保存路径及文件名

Book.Save(lj) \'保存工作簿

\'excel模板应设置页面宽度\\高度为自动,如设置为1页,则分页无效

\'分栏分页

\'EXCEL_VBA_明细表数据

Dim tb As Table = Tables("业绩统计")

Dim nms() As String = {"序号","客销"}

tb.Filter = "类型 <>\'\'"

Dim prs As Integer = 28 \'每页细节区行数

Dim fl As Integer = 4 \'每页栏数

Dim ls As Integer = 3 \'每栏列数

Dim bts As Integer = 2 \'表头数

Dim bws As Integer = 0 \'表尾数

Dim csh As Integer \'每页初始行

Dim s,g,lz,zh As Integer

zh=prs+bts+bws \'每页总行数

Dim App As New MSExcel.Application

Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(lj)

Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)

App.ScreenUpdating = False

For p As Integer = 1 To math.Ceiling(tb.Rows.Count /( fl*prs)) - 1 \'p分页

Ws.Rows("1:" & zh).Copy(Ws.Range("a" & p*zh+1))

Ws.Cells.PageBreak = MSExcel.XlPageBreak.xlPageBreakNone\'清除所有分页符

Ws.Columns(fl*ls+1).PageBreak = MSExcel.XlPageBreak.xlPageBreakManual \'纵向分页

For p As Integer = 0 To math.Ceiling(tb.Rows.Count /( fl*prs)) - 1 \'p分页

csh=bts+p*zh

s = 0

g = 1

For r As Integer = P*FL*prs To math.min(tb.Rows.Count - 1,( p + 1) *fl* prs - 1) \'在每页数据内循环

lz = (Int(s/prs)) * ls+1 \'指定数据列数

If s/prs = Int((s+1)/prs) Then g = 1

ws.cells(csh+g,lz) = r+1

For m As Integer = 0 To nms.Length-1

ws.cells(csh+g,lz+m+1) = tb.rows(r)(nms(m))

g = g + 1 \'每页每列各数据累计次数

s = s + 1 \'每页各数据累计次数

\'msgbox((p+1)*zh+1)

Ws.Rows((p+1)*zh+1).PageBreak = MSExcel.XlPageBreak.xlPageBreakManual

Ws.PageSetup.CenterHeader = ""

MessageBox.Show("耗时: " & (Date.Now - st).TotalSeconds & "秒") \'计算并显示执行代码所花费的秒数

Wb.Save

App.ScreenUpdating =True

App.Visible = True

导出报表的格式如下，导出的数据能正常分页并显示（只是手动清除了客户名），但第二页的表格的格式并没有引用第一页的格式，请老师帮忙看下，要怎么处理第二页的格式才能跟第1页一样，谢谢

此主题相关图片如下：效果.jpg