主题：应增加系统菜单上的Excel报表【事件】

Dim Book As New XLS.Book(ProjectPath & "Attachments\分组统计.xls")
Dim Sheet As XLS.Sheet
Sheet = Book.Sheets("sheet1")
Book.Build()
Book.Save(ProjectPath & "reports\分组统计.xls")
'------------------------------------------------

1、估计虚线上下的代码，系统在生成Excel报表时都已经提供了的。

2、自己写代码时，这里（虚线之间）可以对报表进行加工的（比如下面这段代码）··· 所以，要有针对这里的报表事件就好了。

Dim Book1 As New XLS.Book(ProjectPath & "reports\分组统计.xls")
Dim Sheet1 As XLS.Sheet
Sheet1 = Book1.Sheets("sheet1")

···· 需要修改、添加的地方 ····

Book1.Save(ProjectPath & "reports\分组统计.xls")

'-----------------------------------------------
Dim Proc As New Process
Proc.File = ProjectPath & "reports\订单.xls"
Proc.Start()

这样，很多时候就不必做自己的按钮了。  更多的excel报表问题都能迎刃而解了。