- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 多层表头表的导出 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=152522)
-- 发布时间：2020/7/14 11:06:00
-- 多层表头表的导出
有多层表头的表，想导出到EXCEL时表头自动生成多层，如何做？一行一列地组合吗？
此主题相关图片如下：123.png
-- 发布时间：2020/7/14 11:08:00
--
用excel模板
-- 发布时间：2020/7/14 11:09:00
--
默认导出就是多层的
-- 发布时间：2020/7/14 12:13:00
--
做模板行不通，因为每月的周和日期不同，系统菜单的高速导出的是可以多层表头，但是我要的是在窗口里编程导出，用户看不到系统菜单的。这个程序怎么搞
-- 发布时间：2020/7/14 12:23:00
--
http://www.foxtable.com/webhelp/topics/1080.htm
导入导出
| 命令 | 说明 |
| Syscmd.Table.ExportToText() | 导出为文本文件 |
| Syscmd.Table.ExportToXML() | 导出为XML文件 |
| Syscmd.Table.Merge() | 合并表 |
| Syscmd.Table.QuickMerge() | 高速合并 |
| Syscmd.Table.MergeFromXML() | 合并XML文件 |
| Syscmd.Table.MergeFromText() | 合并文本文件 |
| Syscmd.Project.Import() | 导入数据 |
| Syscmd.Project.QuickImport() | 高速导入 |
| Syscmd.Project.QuickExport() | 高速导出 |
| Syscmd.Project.ImportFromXML() | 导入XML文件 |
| Syscmd.Project.ImportFromText() | 导入文本文件 |
| Syscmd.Project.ExportToAccess() | 导出为Access文件 |
| Syscmd.Project.ExportToExcel() | 导出为Excel文件 |
-- 发布时间：2020/7/14 14:41:00
--
我知道“Syscmd.Project.ExportToExcel()”这个可以导出来是多层表头，但是导出过程要输入表名和选择导出列，而且不能导出完以后立即打开导出的文件。这是我不想要的。
所以我写了以下程序
Dim dlg As New FolderBrowserDialog \'选择保存路径
If dlg.ShowDialog = DialogResult.Ok Then
Dim ml As String = "" & dlg.SelectedPath & ""
Dim ss As String = "年度费用"
Dim ex As New Exporter
ex.SourceTableName = "人工费用" \'指定导出表
ex.FilePath = "" & ml & "" & "\\" & "" & ss & "" & ".xls" & "" \'指定目标文件
ex.Format = "Excel" \'导出格式为Excel
ex.Export() \'开始导出
Dim Proc As New Process
Proc.File = ("" & ml & "" & "\\" & "" & ss & "" & ".xls" & "")
Proc.Start()
MessageBox.Show("导出完成")
End If
这个程序可以导出我指定的表名，不用选择列默认所有列，导出完可以立即打开文件，可就是不会导出多层表头，如何实现，要怎么改程序？？
-- 发布时间：2020/7/14 14:50:00
--
Exporter本身不支持，使用SaveExcel：http://www.foxtable.com/webhelp/topics/0559.htm
-- 发布时间：2020/7/14 16:14:00
--
好了，终于解决问题。谢谢各位热心解答