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()