Dim Book As New
XLS.Book("c:\book5.xls") Book.Marks.Add("最大日期",Tables("表名").Compute("Max(日期)")) Book.Marks.Add("最小日期",Tables("表名").Compute("Min(日期)")) Book.Build() Book.Save("c:\reports\test.xls") Dim Proc As New
Process Proc.File = "c:\reports\test.xls" Proc.Start()