主题：见过这样的汇总表吗？狐表能否做到？

窗体关闭后，后台excel还在运行，不知用代码怎么关闭，另外，如果，关闭再开的话，会提示“excel已打开”的对话框。所以，应该给excel报表XLS.Book加一个方法delete，这样可删除已经存在的报表，可再用save方法生成新的报表。
另外，模板报表应该能够自由选择打开/不打开，这样用模板报表可直接套进WebBrowser。

用程序附带的学习档，按帮助套的，关键后4句。WebBrowser1路径要填全：test.xls
如果能够Book.Delete("G:\release\CaseStudy\Reports\test.xls")，那该多好啊！
按钮代码自动生成报表并打开：（窗口3及WebBrowser1请自己建）
Dim dt As Table = Tables("订单")
Dim Book As New XLS.Book '定义一个Excel工作簿
Dim Sheet As XLS.Sheet = Book.Sheets(0) '引用工作簿的第一个工作表
Dim Style As Xls.Style = Book.NewStyle '新建一个样式
Style.BackColor = Color.Red '样式的背景颜色设为红色
For c As Integer = 0 To dt.Cols.Count -1 '添加列标题
    Sheet(0, c).Value = dt.Cols(c).Name
Next
For r As Integer = 0 To dt.Rows.Count - 1 '填入数据
    For c As Integer = 0 To dt.Cols.Count -1
        Sheet(r +1, c).Value = dt.rows(r)(c)
    Next
    If dt.rows(r)("折扣") >= 0.15 Then '如果折扣大于等于0.15
        Sheet(r + 1,dt.Cols("折扣").Index).Style = Style '设置折扣单元格的样式
    End If
Next
'打开工作簿
Book.Save("G:\release\CaseStudy\Reports\test.xls")
with Forms("窗口3")
.Show()
.Controls("WebBrowser1").Address = "G:\release\CaseStudy\Reports\test.xls"
end with