主题：只导出查询的数据

有一个订单明细表， 做了一个查询窗口， 一个导出按钮， 一个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()

查询有多行数据， 只导出了选定的那一条数据， 必须选定全部内容才能导出

老师理解我的问题有误， 我的意思是一键导出所有查询出来的数据到EXCEL模板里