以文本方式查看主题

-  易表在线答疑  (http://egrid2000.com/dvbbs/index.asp)
--  用户社区  (http://egrid2000.com/dvbbs/list.asp?boardid=2)
----  [求助]能否将这文件转为Excel 5.0格式  (http://egrid2000.com/dvbbs/dispbbs.asp?boardid=2&id=20166)

--  作者:zhouwenxia
--  发布时间:2010/10/31 10:03:00
--  [求助]能否将这文件转为Excel 5.0格式
[这个贴子最后由zhouwenxia在 2010/10/31 10:04am 第 1 次编辑]

本人在导出Excel5.0文件时出错,不能将其完全导出,有部分不能导出,求请各位高人指教,帮忙导出。文件密码为:1234
egd文件下载
--  作者:wjq1072
--  发布时间:2010/10/31 11:37:00
--  
egd文件下载
--  作者:zhouwenxia
--  发布时间:2010/10/31 12:05:00
--  
谢谢!但还是有点数据不能导出,如第一行数据的“联系电话2”不能导出,不知是何原因?
--  作者:wjq1072
--  发布时间:2010/10/31 12:33:00
--  
公式:
EvalFor(GridName,"联系电话1","Char(9)+[联系电话1]") And
EvalFor(GridName,"联系电话2","Char(9)+[联系电话2]") And
EvalFor(GridName,"联系电话3","Char(9)+[联系电话3]") And
EvalFor(GridName,"联系电话4","Char(9)+[联系电话4]") And
EvalFor(GridName,"联系电话5","Char(9)+[联系电话5]") And

Eval("ExportDBFile(docdir+""ABC"",5,"""+Substitute(ListGrids(),"|",""") And ExportDBFile(docdir+""ABC"",5,""")+""")") And

EvalFor(GridName,"联系电话1","Substitute([联系电话1],Char(9),"""")") And
EvalFor(GridName,"联系电话2","Substitute([联系电话2],Char(9),"""")") And
EvalFor(GridName,"联系电话3","Substitute([联系电话3],Char(9),"""")") And
EvalFor(GridName,"联系电话4","Substitute([联系电话4],Char(9),"""")") And
EvalFor(GridName,"联系电话5","Substitute([联系电话5],Char(9),"""")")


--  作者:hbfnmxb
--  发布时间:2010/10/31 19:48:00
--  
做个标记,数据导出我需要的公式。太好了