| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 怎样导出当前table而不是整个datatable? (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=96069) |
| -- 作者：huangxueyao -- 发布时间：2017/2/12 13:51:00 -- 怎样导出当前table而不是整个datatable? Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog dlg.Filter= "Excel文件|*.xls" \'设置筛选器 If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮 Dim ex As New Exporter ex.Format = "Excel" \'导出格式为Excel ex.SourceTableName = "采购流水账" \'指定导出表 ex.Fields = "日期,采购人,项目名称,费用分类,计价单位,单价,数量,小计,备注,报销状态,费用归属,加工厂结账" \'按此顺序导出指定的字段 ex.filepath = dlg.FileName \'指定目标文件 ex.Export() \'开始导出 End If 以上代码是整个datatable的数据一起导出的
|
| -- 作者：wyz20130512 -- 发布时间：2017/2/12 15:03:00 -- 设置筛选条件即可！ |
| -- 作者：有点色 -- 发布时间：2017/2/12 15:23:00 -- 方法一
Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
Dim ex As New Exporter
ex.Format = "Excel" \'导出格式为Excel
ex.SourceTableName = "采购流水账" \'指定导出表
ex.Fields = "日期,采购人,项目名称,费用分类,计价单位,单价,数量,小计,备注,报销状态,费用归属,加工厂结账" \'按此顺序导出指定的字段
ex.filepath = dlg.FileName \'指定目标文件
ex.Filter = Tables("采购流水账").Filter
ex.Export() \'开始导出
End If
|
| -- 作者：有点色 -- 发布时间：2017/2/12 15:25:00 -- 方法二：直接saveExcel
Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog |