原代码： Dim Book As New XLS.Book(ProjectPath & "Attachments\建设银行批量付款.xlsx") '打开模板
Dim fl As String = ProjectPath & "Reports\建设银行批量付款.xlsx"
Dim Sheet As XLS.Sheet = Book.Sheets(0)
For Each r As Row In Tables("人工费明细表").GetCheckedRows '选择选中的行
r("导出付款") = True
r("导出付款日期") = Date.Now
r.Save()
Next
Dim Sum As Long = Tables("人工费明细表").GetCheckedRows.Count '获取导出数量
msgbox("合计导出人工费付款明细共【 " & sum & " 】条!")
Book.Build() '生成报表
Book.Save(fl)
Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
dlg.FileName = tb.current("项目名称") & tb.current("账务月份")
dlg.Filter= "Excel文件|*.xlsx" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then
Book.Save(dlg.FileName)
Dim Proc As New Process
Proc.File = dlg.FileName
Proc.Start()
End If
此主题相关图片如下：搜狗截图18年05月28日1213_1.png
我想导出选择的行，但现在导出来是全部页面的数据
下面是导出的模板
此主题相关图片如下：搜狗截图18年05月28日1214_2.png
模板不加上<all>,就打印了一行数据，加上就打印全部数据，不是我要的选中行，请老师帮忙修改哪里
加好友 
发短信
Post By：2018/5/28 12:16:00 [显示全部帖子]
此主题相关图片如下：搜狗截图19年12月07日1017_1.jpg