以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助] 狐表导出能不能保存多层表头和合并模式  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=149848)

--  作者:职业技术学校
--  发布时间:2020/5/13 17:12:00
--  [求助] 狐表导出能不能保存多层表头和合并模式
Dim dlg As New SaveFileDialog \'定一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls" \'设置筛选器
Dim ss As String
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
    ss = dlg.FileName
    If FileSys.FileExists("& ss &") = True Then
        FileSys.DeleteFile("& ss &",2,2) \'则彻底删
    End If
    Dim ex As New Exporter
    ex.SourceTableName = "在制品查询_Table1" \'指定导出表
    ex.FilePath = ss    \'指定目标文件
    ex.Format = "Excel" \'导出格式为Excel
    ex.Export()
End If

狐表导出能不能保存多层表头和合并模式
我用这段代码保存以后,没有合并模式和多层表
变成这个样子

图片点击可在新窗口打开查看此主题相关图片如下:多层表头没有了.png
图片点击可在新窗口打开查看

如果要保存之前的多层表头和合并模式,代码如何写,能不能给个示列,导出为execl

--  作者:有点蓝
--  发布时间:2020/5/13 17:31:00
--  
换种方法导,参考:http://www.foxtable.com/webhelp/topics/0559.htm
--  作者:职业技术学校
--  发布时间:2020/5/14 6:49:00
--  
谢谢,这种方式能保存合并模式,但是不能保存汇总合计吗?
--  作者:有点蓝
--  发布时间:2020/5/14 9:12:00
--  
不能的。更复杂的用法建议自己设计模板导出:http://www.foxtable.com/webhelp/topics/2877.htm