标题：应增加系统菜单上的Excel报表【事件】
现在有：beforebuild、afterbuild、等等····
感觉应增加一个：BeforeOpen 事件
比如：
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报表问题都能迎刃而解了。
不知我说明白了没有。
呵呵，用AfterBuild事件就行，这个时候报表已经生成了，只是没有保存而已。
呵呵，用AfterBuild事件就行，这个时候报表已经生成了，只是没有保存而已。
就是AfterBuild事件不起作用才提出的呀····
不是VBA，是下面这个，但没有执行··· ：
Dim Book As New XLS.Book(ProjectPath & "reports\分组统计1.xls")
Dim Sheet As XLS.Sheet
Sheet = Book.Sheets(0)
Sheet(0,10).Value = "制单人:" & User.Name
Sheet(Sheet.Rows.Count,10).Value = "制单人:" & User.Name
Book.Save(ProjectPath & "reports\分组统计1.xls")
怎么办呢？
帮助中这个AfterBuild中没有一点代码实例，不知道怎么样写代码才能执行
此主题相关图片如下：未命名aft.jpg
测试成功，在示例文件"Excel报表.table"的AfterBuild加入事件：
If e.book.TempLate = "出库单"
Dim Sheet As XLS.Sheet = e.Book.Sheets(0)
Sheet(15,5).Value = "制单人:" & User.Name '修改模板,加入制单人信息
End If
成功地在出库单下方加上了制单人。
真是要谢谢啊···· 阿门 