帮助文件上一次导出一个表讲解得比较清楚，现分享一次性导出多个表在同一工作簿里的代码。
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.SourceTableName = "二级一览表"
ex.FilePath = dlg.FileName '指定目标文件
ex.Format = "Excel" '导出格式为Exc
ex.Fields = "" '指定导出字段
ex.NewTableName = "二级一览表"
ex.Export() '开始导出
'
ex.SourceTableName = "三级一览表"
ex.FilePath = dlg.FileName '指定目标文件
ex.Format = "Excel" '导出格式为Excel
ex.Fields = "" '指定导出字段
ex.NewTableName = "三级一览表"
ex.Export() '开始导出
End If
加好友 
发短信
Post By：2021/3/27 21:27:00 [只看该作者]
