Case "order.xls" Dim Book As New XLS.Book(ProjectPath & "Attachments\信息表.xls") Dim fl As String = ProjectPath & "Reports\信息表.xls" book.AddDataTable("职工信息总表","学校档案","Select * f rom {职工信息总表} where 姓名 = '王忠'") Book.Build() Book.Save(fl) Dim Proc As New Process Proc.File = fl Proc.Start() book.PreBuild = False e.WriteBook(book,"信息表.xls",False)