以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  [分享]一次导出多个表到同一个工作簿里  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=161713)

--  作者：天宇科技 --  发布时间：2021/3/27 21:27:00 --  [分享]一次导出多个表到同一个工作簿里 帮助文件上一次导出一个表讲解得比较清楚，现分享一次性导出多个表在同一工作簿里的代码。 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

--  作者：有点蓝 --  发布时间：2021/3/28 20:35:00 --   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 “每次都要新建一个Exporter ex.SourceTableName = "二级一览表"  ex.FilePath = dlg.FileName  \'指定目标文件 ex.Format = "Excel" \'导出格式为Exc ex.Fields = "" \'指定导出字段 ex.NewTableName = "二级一览表" ex.Export() \'开始导出 \'

--  作者：天宇科技 --  发布时间：2021/3/29 15:19:00 --   谢谢蓝版指导