易表在线答疑技术与交流用户社区 → 如何将数据导出为excel表,按导出的时间命名


  共有6773人关注过本帖树形打印复制链接

主题:如何将数据导出为excel表,按导出的时间命名

帅哥哟,离线,有人找我吗?
hds2008
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:论坛游民 帖子:122 积分:23 威望:0 精华:0 注册:2008/11/19 9:17:00
如何将数据导出为excel表,按导出的时间命名  发帖心情 Post By:2010/4/19 17:01:00 [只看该作者]

请高手指点,我下面的公式错在哪里:
ExportDBFile(docdir + "\excel\系统备份之项目表已存档" + text(Now()),6,1,45,"<>","")

 回到顶部
帅哥哟,离线,有人找我吗?
还不错
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:火箭侠 帖子:1937 积分:283 威望:0 精华:0 注册:2006/8/12 9:40:00
  发帖心情 Post By:2010/4/19 17:14:00 [只看该作者]

ExportDBFile(docdir + "excel\系统备份之项目表已存档" + text(Now())+".xls",6,1,45,"<>","")
 



 回到顶部
帅哥哟,离线,有人找我吗?
hds2008
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:论坛游民 帖子:122 积分:23 威望:0 精华:0 注册:2008/11/19 9:17:00
  发帖心情 Post By:2010/4/19 22:03:00 [只看该作者]

试过了,还是不行。提示:无法创建文件

 回到顶部
帅哥哟,离线,有人找我吗?
还不错
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:火箭侠 帖子:1937 积分:283 威望:0 精华:0 注册:2006/8/12 9:40:00
  发帖心情 Post By:2010/4/20 7:56:00 [只看该作者]

这是我做的文件中导出公式,可以参考一下:
SetLabel("载入数据…",GridName+"导出中…") And If(Exist(docdir+"导出数据\"+[系统说明!年度]+"年"+mid([%统计月份%],0,2)+"【"+[系统说明!账套名称]+"】"+GridName+".xls") = True ,if(msgbox(docdir+"导出数据\"+[系统说明!年度]+"年"+mid([%统计月份%],0,2)+"【"+[系统说明!账套名称]+"】"+GridName+".xls    "+char(10)+char(13)+char(13)+"文件已存在!是否复盖?",2)= True , ExportDBFile(docdir+"导出数据\"+[系统说明!年度]+"年"+mid([%统计月份%],0,2)+"【"+[系统说明!账套名称]+"】"+GridName+".xls",6,GridName) And msgbox([系统说明!年度]+"年"+mid([%统计月份%],0,2)+"【"+[系统说明!账套名称]+"】"+GridName+".xls    "+char(10)+char(13)+char(13)+"文件导出成功!",0),msgbox("已取消数据导出!  ",0)),ExportDBFile(docdir+"导出数据\"+[系统说明!年度]+"年"+mid([%统计月份%],0,2)+"【"+[系统说明!账套名称]+"】"+GridName+".xls",6,GridName) And msgbox([系统说明!年度]+"年"+mid([%统计月份%],0,2)+"【"+[系统说明!账套名称]+"】"+GridName+".xls    "+char(10)+char(13)+char(13)+"文件导出成功!",0)) And SetLabel("载入数据…",GridName)

 回到顶部
帅哥哟,离线,有人找我吗?
还不错
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:火箭侠 帖子:1937 积分:283 威望:0 精华:0 注册:2006/8/12 9:40:00
  发帖心情 Post By:2010/4/20 7:59:00 [只看该作者]

下面引用由hds20082010/04/19 05:01pm 发表的内容:
请高手指点,我下面的公式错在哪里:
ExportDBFile(docdir + "\excel\系统备份之项目表已存档" + text(Now()),6,1,45,"<>","")

45应该是比较列吧?如何是的话,应该"45","<>",""

-=-=-=- 以下内容由 还不错2010年04月20日 08:01am 时添加 -=-=-=-
docdir+"excle\系统备份之项目已存档"

 回到顶部
帅哥哟,离线,有人找我吗?
hds2008
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:论坛游民 帖子:122 积分:23 威望:0 精华:0 注册:2008/11/19 9:17:00
  发帖心情 Post By:2010/4/20 8:28:00 [只看该作者]

45是比较列。没加text(now())之前,代码是可以运行的

 回到顶部
帅哥哟,离线,有人找我吗?
wjq1072
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:16190 积分:125850 威望:1 精华:0 注册:2006/8/12 12:29:00
  发帖心情 Post By:2010/4/20 9:06:00 [只看该作者]

下面引用由hds20082010/04/20 08:28am 发表的内容:
45是比较列。没加text(now())之前,代码是可以运行的

那这样试试?
Eval("ExportDBFile(docdir+""\excel\系统备份之项目表已存档""+"""+text(Now())+""",6,1,45,""<>"","""")")

 回到顶部