多个表如何导出一个Excel文件 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

我有多个表,想导出成Excel的一个文件,Excel文件里的Sheet为表名,请问一下怎么写代码?

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

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

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

你写的好看,感觉像是艺术品!!! 图片点击可在新窗口打开查看

saveexcel 循环调用即可。

今天也刚做完这个功能

主题：多个表如何导出一个Excel文件