导出EXCEL - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

代码可用，但是只能导出一行数据

我想在窗口上能看见的订单全部导出,求大神帮忙

Dim Book As New XLS.Book(ProjectPath & "Attachments\民泰流水导出到007.xls") '打开模板

Dim fl As String = ProjectPath & "Reports\民泰流水导出到007.xls"

Dim Sheet As XLS.Sheet = Book.Sheets(0)

Book.Build() '生成报表

Book.Save(fl)

Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog

dlg.Filter= "Excel文件|*.xls" '设置筛选器

If dlg.ShowDialog = DialogResult.Ok Then

Book.Save(dlg.FileName)

Dim Proc As New Process

Proc.File = dlg.FileName

Proc.Start()

End If

主题：导出EXCEL