代码可用,但是只能导出一行数据
我想在窗口上能看见的订单全部导出,求大神帮忙
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