主题：只导出查询的数据

有一个订单明细表， 做了一个查询窗口， 一个导出按钮， 一个EXCEL模板， 如何做到只导出查询的内容，就像系统命令， Syscmd.Project.ExportToExcel()， 跳出一个选择窗口，选择导出可见行一样呢？

Dim Book As New XLS.Book(ProjectPath & "Attachments\OrderList.xls")
Dim fl As String = ProjectPath & "Reports\OrderList.xls"
Book.Build() '生成细节区
Book.Save(fl) '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = fl
Proc.Start()