| 以文本方式查看主题 - 易表在线答疑 (http://egrid2000.com/dvbbs/index.asp) -- 用户社区 (http://egrid2000.com/dvbbs/list.asp?boardid=2) ---- 如何将数据导出为excel表，按导出的时间命名 (http://egrid2000.com/dvbbs/dispbbs.asp?boardid=2&id=19292) |
| -- 作者：hds2008 -- 发布时间：2010/4/19 17:01:00 -- 如何将数据导出为excel表，按导出的时间命名 请高手指点，我下面的公式错在哪里： ExportDBFile(docdir + "\\excel\\系统备份之项目表已存档" + text(Now()),6,1,45,"<>","") |
| -- 作者：还不错 -- 发布时间：2010/4/19 17:14:00 -- ExportDBFile(docdir + "excel\\系统备份之项目表已存档" + text(Now())+".xls",6,1,45,"<>","") |
| -- 作者：hds2008 -- 发布时间：2010/4/19 22:03:00 -- 试过了，还是不行。提示：无法创建文件 |
| -- 作者：还不错 -- 发布时间：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) |
| -- 作者：还不错 -- 发布时间：2010/4/20 7:59:00 -- 下面引用由hds2008在 2010/04/19 05:01pm 发表的内容： 请高手指点，我下面的公式错在哪里： ExportDBFile(docdir + "\\excel\\系统备份之项目表已存档" + text(Now()),6,1,45,"<>","") 45应该是比较列吧？如何是的话，应该"45","<>","" -=-=-=- 以下内容由 还不错 在 2010年04月20日 08:01am 时添加 -=-=-=- docdir+"excle\\系统备份之项目已存档" |
| -- 作者：hds2008 -- 发布时间：2010/4/20 8:28:00 -- 45是比较列。没加text(now())之前，代码是可以运行的 |
| -- 作者：wjq1072 -- 发布时间：2010/4/20 9:06:00 -- 下面引用由hds2008在 2010/04/20 08:28am 发表的内容： 45是比较列。没加text(now())之前，代码是可以运行的 那这样试试？ Eval("ExportDBFile(docdir+""\\excel\\系统备份之项目表已存档""+"""＋text(Now())+""",6,1,45,""<>"","""")") |