If Messagebox("确定要导出数据吗?",4+32,"提示")=6

SELECT 表名
COPY TO (PUTFILE( "excel文件名:","123","xls")) xl5

eole=CREATEOBJECT('Excel.application')
eole.Workbooks.Open('d:新建文件夹 (5)\123.xls')

endif

怎么保持那导出和打开EXCEL的路径的一郅....

己經解決

If Messagebox("确定要导出数据吗?",4+32,"提示")=6
select 表名
mm=(PUTFILE( "excel文件名:","123","xls"))
COPY TO '&mm' xl5
eole=CREATEOBJECT('Excel.application')
eole.Workbooks.Open('&mm')
.
.
.
eole.ActiveWorkbook.Save
eole.Workbooks.Close
eole.Quit
endif