现在有: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报表问题都能迎刃而解了。
不知我说明白了没有。
[此贴子已经被作者于2011-3-28 16:22:04编辑过]