导出的问题~~

[flysky37]

将表的内容导出成excel文件~~
如何在运行时让用户设置导出文件的路径和文件名

[noproblem12]

new_name="new.xls"
new_file=putfile('Excel文件',new_name,'xls')
if empty(new_file)
retu
endif


copy file "temp_test.dbf" to &new_file type 5
delet file "temp_test.dbf"

我的一段代码，你可以参考

[noproblem12]

写错了
应该是：


copy file "temp_test.dbf" to &new_file type xl5
delet file "temp_test.dbf"

[fj_jiangqi]

COPY TO FileName
[FIELDS FieldList]
[Scope] [FOR lExpression1] [WHILE lExpression2]
[[WITH] CDX] | [[WITH] PRODUCTION]
[NOOPTIMIZE]
[[TYPE] [FOXPLUS | FOX2X | DIF | MOD
| SDF | SYLK | WK1 | WKS | WR1 | WRK | CVS | | XLS | XL5
| DELIMITED [WITH Delimiter | WITH BLANK | WITH TAB
| WITH CHARACTER Delimiter]]]
[AS nCodePage
getdir(),getfile(),FULLPATH(),LOCFILE()参考函数
-------------------------
我流落在凄凉的世界里－孤苦伶仃
我过着动荡无助的生活－四处漂泊