以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]导出是空白的,求教  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=102850)

--  作者:yangsion
--  发布时间:2017/6/26 20:32:00
--  [求助]导出是空白的,求教

参考帮助写成了

Dim ex As New Exporter
Dim Table1 As String = Forms("窗口2").Controls("Table1").name
ex.SourceTableName = Table1 \'指定导出表
ex.FilePath = "c:\\Data\\订单.xls" \'指定目标文件
ex.Format = "Excel" \'导出格式为Excel
ex.Export() \'开始导出

 但是导出后是空白的,只有列名。选择表点系统工具 导出-XCEL文件正常。点高速导出也是空白

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:bom 测试_201706262026.zip


--  作者:wyz20130512
--  发布时间:2017/6/26 21:03:00
--  
Dim ex As New Exporter
Dim Table1 As String = Forms("窗口2").Controls("Table1").Table.Name
ex.SourceTableName = Table1 \'指定导出表
ex.FilePath = "c:\\Data\\订单.xls" \'指定目标文件
ex.Format = "Excel" \'导出格式为Excel
ex.Export() \'开始导出

--  作者:yangsion
--  发布时间:2017/6/26 21:12:00
--  
你这个导出也是空白的哦
--  作者:有点蓝
--  发布时间:2017/6/26 21:51:00
--  
这种表狐表Exporter识别不了的,只能这样导

Tables("table1").SaveExcel("f:\\123.xls","sheet1")

--  作者:wyz20130512
--  发布时间:2017/6/26 21:54:00
--  
经测试,4楼方法正确。查看你的表生成的代码,已超出了FT帮助中介绍的方法。
[此贴子已经被作者于2017/6/26 21:55:52编辑过]

--  作者:yangsion
--  发布时间:2017/6/26 22:18:00
--  

怎么我执行这个代码没有反应哦


--  作者:有点蓝
--  发布时间:2017/6/26 22:56:00
--  
测试没有问题,自己改改存储路径
--  作者:yangsion
--  发布时间:2017/6/27 1:43:00
--  
完美,我之前是直接把F改成C,这样不行,改成D或者C\\DATE就OK了,谢谢各位老师