以文本方式查看主题

-  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=107763)

--  作者:kenxc
--  发布时间:2017/10/9 16:10:00
--  多层表头成功,但导出EXCEL出错。
查询界面生成的多层表头是成功的,但是导出的时候却出错了。如下图所示,下图是多层表头的生成例子,但是导出的时候却出错了

图片点击可在新窗口打开查看此主题相关图片如下:qq截图20171009160751.png
图片点击可在新窗口打开查看

请问,是否因为空格,或者特殊字符,导致EXCEL无法导出,之前没有碰到这样的事情,请专家解答一下。

--  作者:有点甜
--  发布时间:2017/10/9 16:24:00
--  

你导出代码怎么写的?直接用saveexcel导出。

 

http://www.foxtable.com/webhelp/scr/0559.htm

 


--  作者:kenxc
--  发布时间:2017/10/9 16:58:00
--  
Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
    Dim ex As New Exporter
    ex.SourceTableName = e.Form.Name & "_Table1" \'指定导出表
    ex.filepath = dlg.FileName  \'指定目标文件
    ex.Format = "Excel" \'导出格式为Excel
    \'ex.Fields = "日期,客户,数量,单价" \'指定导出字段
    \'ex.Filter = "[单号] = \'1\'" \'指定导出条件
    ex.Export() \'开始导出
    MessageBox.Show("导出成功!")
End If

-----代码如上,我试试你给的代码是否可以导出

--  作者:有点甜
--  发布时间:2017/10/9 17:03:00
--  
Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
    Tables(e.Form.Name & "_Table1").SaveExcel(dlg.FileName, "aaa")
    MessageBox.Show("导出成功!")
End If

--  作者:kenxc
--  发布时间:2017/10/9 17:08:00
--  
非常感谢,按照你的做法已经解决~~~