以文本方式查看主题

-  易表在线答疑  (http://egrid2000.com/dvbbs/index.asp)
--  用户社区  (http://egrid2000.com/dvbbs/list.asp?boardid=2)
----  [求助]使用ExportDBFile这个命令时,导出动态的文件名  (http://egrid2000.com/dvbbs/dispbbs.asp?boardid=2&id=16686)
--  作者：jackslowfuck
--  发布时间：2009/3/23 11:40:00
--  [求助]使用ExportDBFile这个命令时,导出动态的文件名
我在使用ExportDBFile这个命令时，我想在每次导出的时候询问我将要输出的文件名，而不是像公式里那样固定的文件名，可以吗？
--  作者：lyang70
--  发布时间：2009/3/23 11:47:00
--  
用Do(5)即可！
--  作者：还不错
--  发布时间：2009/3/23 12:51:00
--  
参考;
If(Exist(docdir+"产品成本计算单("+text(year(today()))+"."+[月份]+").xls") = True ,if(msgbox(docdir+"产品成本计算单("+text(year(today()))+"."+[月份]+").xls"+char(10)+char(13)+char(13)+"文件已存在!是否复盖？",2)= True ,ExportDBFile(docdir+"产品成本计算单("+text(year(today()))+"."+[月份]+").xls",6,"产品实际成本") And msgbox("产品成本计算单("+text(year(today()))+"."+[月份]+").xls"+char(10)+char(13)+char(13)+"文件导出成功!",0),msgbox("已取消数据导出!",0)),ExportDBFile(docdir+"产品成本计算单("+text(year(today()))+"."+[月份]+").xls",6,"产品实际成本") And msgbox("产品成本计算单("+text(year(today()))+"."+[月份]+").xls"+char(10)+char(13)+char(13)+"文件导出成功!",0))
--  作者：yangming
--  发布时间：2009/3/23 13:19:00
--  
http://bbs.egrid2000.com/cgi-bin/topic.cgi?forum=8&topic=37
这是通用导入导出的样表,应该能达到你的要求
--  作者：wjq1072
--  发布时间：2009/3/23 13:39:00
--  
用2楼的或者用函数：

GetFileName()

利用文件对话框获得一个文件名。

语法：

GetFileName(Filter, Title, Mode)

Filter
过滤器，指定在对话框的文件列表框中显示的文件的类型。
过滤器由description和fifter组成，中间使用使用符号“|”隔开。例如，选择过滤器为Text Files|*.txt，就显示所有的文本文件，前面的Text Files是description，后面的*.txt是fifter，fifter可以有多个文件类型组成，不同的文件类型用分号(;)隔开。
可以同时提供多个过滤器，这样话框显示时将出现一个过滤器列表，用它可以进行选择文件类型，过滤器之间同样使用符号“|”隔开。下列代码给出一个过滤器的例子，该过滤器允许选择文本文件或含有位图和图标的图形文件：
Text Files|*.txt|Pictures Files|*.bmp;*.ico

Tiltle   对话框标题

Mode     对话框类型，0为打开方式，1为保存方式

例子：
1、备份当前文件，备份文件的名称和位置由用户自己确定，可以增加一个按钮或菜单项，将其公式设为：
Save() And BackupFile(GetFileName("易表文件|*.egd","备份",1))

2、假定有一个照片列，希望由用户通过对话框选择照片填入到照片列，公式为：
SetCellText(GridName,Row,"照片",GetFileName("图形文件|*.jpg;*.bmp","选择照片",0))