导出数据，EXCEL报表功能，为什么导出数据重复，很多人都生成了两条记录，有些人又只生成了一条记录。是想同时把几张表生成一个EXCLEL工作簿里。
导出数据代码：
Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
dlg.Filter= "EXCEL文件|*.Xls" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
Dim ex As New Exporter
ex.SourceTableName = "一级一览表"
ex.FilePath = dlg.FileName '指定目标文件
ex.Format = "Excel" '导出格式为Excel
ex.Fields = "序号,填报学校,行政区域,职场证书编号,证件类型,证件号码,姓名,性别,出生日期,职场系列,职场级别,职场名称,评审活动是否设置评审专业,评审专业名称,本地评审专业名称,评审时间,发证机构,评审机构,批准时间,职场文件文号,备注" '指定导出字段
ex.NewTableName = "一级一览表"
ex.Export() '开始导出
ex = New Exporter
ex.SourceTableName = "二级一览表"
ex.FilePath = dlg.FileName '指定目标文件
ex.Format = "Excel" '导出格式为Exc
ex.Fields = "序号,填报学校,行政区域,职场证书编号,证件类型,证件号码,姓名,性别,出生日期,职场系列,职场级别,职场名称,评审活动是否设置评审专业,评审专业名称,本地评审专业名称,评审时间,发证机构,评审机构,批准时间,职场文件文号,备注" '指定导出字段
ex.NewTableName = "二级一览表"
ex.Export() '开始导出
ex = New Exporter'
ex.SourceTableName = "三级一览表"
ex.FilePath = dlg.FileName '指定目标文件
ex.Format = "Excel" '导出格式为Excel
ex.Fields = "序号,填报学校,行政区域,职场证书编号,证件类型,证件号码,姓名,性别,出生日期,职场系列,职场级别,职场名称,评审活动是否设置评审专业,评审专业名称,本地评审专业名称,评审时间,发证机构,评审机构,批准时间,职场文件文号,备注" '指定导出字段
ex.NewTableName = "三级一览表"
ex.Export() '开始导出
End If
——————————————————————————————————————————————————————————————————————————————————————————————————————
生成EXCEL报表代码：
Dim Book As New XLS.Book(ProjectPath & "Attachments\教师职场表.xlsx")
Dim fl As String = ProjectPath & "Reports\教师职场表.xlsx"
Book.Build() '生成细节区
Book.Sheets(0).Rows.RemoveAt(0) '删除第一行,Excel报表的第一行通常是标记行
Book.Save(fl) '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = fl
Proc.Start()
加好友 
发短信
Post By：2021/3/31 10:35:00 [只看该作者]
