主题：Excel报表：每页都要显示这个页脚，怎么办？

 我这样处理了，分享一下：

Dim Book As New XLS.Book(ProjectPath & "Attachments\分页汇总.xls")
Dim Sheet As XLS.Sheet  
Book.Build()
Sheet = Book.Sheets(0)
Sheet.Rows.RemoveAt(Sheet.rows.count-2)
Sheet.Rows.RemoveAt(Sheet.rows.count-2)

For i As Integer = 2  To Sheet.rows.count-14 Step 14   '> 这里的数字要根据你模板的情况设置
    Sheet(i+12, 3).Value = "审核:"
    Sheet(i+12, 6).Value = "制单:" 
Next

Sheet(Sheet.rows.count,3).Value = "审核:"
Sheet(Sheet.rows.count-1,6).Value = "制单:"   

Book.Save("C:\foxtable\CaseStudy\Reports\分页汇总2.xls")
Dim Proc As New Process
Proc.File = "C:\foxtable\CaseStudy\Reports\分页汇总2.xls"
Proc.Start()