以文本方式查看主题 - 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出错。 查询界面生成的多层表头是成功的,但是导出的时候却出错了。如下图所示,下图是多层表头的生成例子,但是导出的时候却出错了 请问,是否因为空格,或者特殊字符,导致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 -- 非常感谢,按照你的做法已经解决~~~ |