Foxtable(狐表) → 用户栏目 → 专家坐堂 → 多层表头表的导出


  共有4982人关注过本帖树形打印复制链接

主题：多层表头表的导出
帅哥哟，离线，有人找我吗？
mxl810823
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：374 积分：3160 威望：0 精华：0 注册：2018/2/27 17:32:00 		多层表头表的导出  发帖心情 Post By：2020/7/14 11:06:00 [只看该作者]

有多层表头的表，想导出到EXCEL时表头自动生成多层，如何做？一行一列地组合吗？

图片点击可在新窗口打开查看此主题相关图片如下：123.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
cd_tdh
 小大  2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐精 帖子：3223 积分：21413 威望：0 精华：0 注册：2016/3/28 16:57:00 		  发帖心情 Post By：2020/7/14 11:08:00 [只看该作者]

用excel模板
 回到顶部
帅哥，在线噢！
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：112377 积分：572147 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/7/14 11:09:00 [只看该作者]

默认导出就是多层的

 回到顶部
帅哥哟，离线，有人找我吗？
mxl810823
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：374 积分：3160 威望：0 精华：0 注册：2018/2/27 17:32:00 		  发帖心情 Post By：2020/7/14 12:13:00 [只看该作者]

做模板行不通，因为每月的周和日期不同，系统菜单的高速导出的是可以多层表头，但是我要的是在窗口里编程导出，用户看不到系统菜单的。这个程序怎么搞

 回到顶部
帅哥哟，离线，有人找我吗？
linyunu1
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：163 积分：1100 威望：0 精华：0 注册：2020/1/16 11:58:00 		  发帖心情 Post By：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文件
 回到顶部
帅哥哟，离线，有人找我吗？
mxl810823
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：374 积分：3160 威望：0 精华：0 注册：2018/2/27 17:32:00 		  发帖心情 Post By：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
这个程序可以导出我指定的表名，不用选择列默认所有列，导出完可以立即打开文件，可就是不会导出多层表头，如何实现，要怎么改程序？？
 回到顶部
帅哥，在线噢！
有点蓝
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：112377 积分：572147 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/7/14 14:50:00 [只看该作者]

Exporter本身不支持，使用SaveExcel：http://www.foxtable.com/webhelp/topics/0559.htm

 回到顶部
帅哥哟，离线，有人找我吗？
mxl810823
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：374 积分：3160 威望：0 精华：0 注册：2018/2/27 17:32:00 		  发帖心情 Post By：2020/7/14 16:14:00 [只看该作者]

好了，终于解决问题。谢谢各位热心解答

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05078 秒, 4 次数据查询