- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 多个表如何导出一个Excel文件 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=131432)
-- 发布时间：2019/2/26 10:14:00
-- 多个表如何导出一个Excel文件
我有多个表,想导出成Excel的一个文件,Excel文件里的Sheet为表名,请问一下 怎么写代码?
-- 发布时间：2019/2/26 10:21:00
--
直接saveexcel即可，如
http://www.foxtable.com/webhelp/scr/0559.htm
-- 发布时间：2019/2/26 10:34:00
--
Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls;*.xlsx" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
Dim Tab As WinForm.TabControl = e.Form.Controls("TabControl1")
For Each c As WinForm.Control In tab.Form.Controls
If TypeOf c Is WinForm.Table Then \'判断控件是否是是表格
Dim t As WinForm.Table = c \'使用特定类型的变量引用控件
Dim CurTable As Table =t.Table
Dim ex As New Exporter
Dim flg As New SaveExcelFlags
flg.VisibleOnly=False
ex.SourceTableName = CurTable.Name \'指定导出表
ex.FilePath = dlg.FileName \'指定目标文件 当多个Table对应一个文件名的时候,会转换成Excel的Sheet 就是这么神奇
ex.Format = "Excel" \'导出格式为Excel
ex.Export() \'开始导出
End If
Next
If MessageBox.Show("是否查看导出账页文件:"& dlg.FileName,"提示",MessageBoxButtons.YesNo,MessageBoxIcon.Question)=DialogResult.Yes Then
Dim Proc As New Process
Proc.File = dlg.FileName
Proc.Start()
End If
End If
-- 发布时间：2019/2/26 10:39:00
--
Dim e
Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls;*.xlsx" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
Dim Tab As WinForm.TabControl = e.Form.Controls("TabControl1")
For Each c As WinForm.Control In tab.Form.Controls
If TypeOf c Is WinForm.Table Then \'判断控件是否是是表格
Dim t As WinForm.Table = c \'使用特定类型的变量引用控件
Dim CurTable As Table =t.Table
curtable.SaveExcel(dlg.FileName, curtable.name)
End If
Next
If MessageBox.Show("是否查看导出账页文件:"& dlg.FileName,"提示",MessageBoxButtons.YesNo,MessageBoxIcon.Question)=DialogResult.Yes Then
Dim Proc As New Process
Proc.File = dlg.FileName
Proc.Start()
End If
End If
-- 发布时间：2019/2/26 11:00:00
--
你写的好看,感觉像是艺术品!!!
-- 发布时间：2019/2/26 14:49:00
--
saveexcel 循环调用即可。
今天也刚做完这个功能