oxel=CREATEOBJECT('excel.application')
oxel.workbooks.add
.此处省略excel中的数据汇总，格式调整。
.
set defa to ('d:\datasys\report\')
savPath="d:\datasys\report\"
newName="Backup(" + TTOC(DATETIME())+"-HA-"+ tsup + "(" + tteam + ")-HC Report-"+rmsn+rmsy+".xlsx"
savName="HA-"+ tsup + "(" + tteam + ")-HC Report-"+rmsn+rmsy+".xlsx"
IF file("&savName") THEN
   rename"&savname" to "&newName"   这句不能运行，请版主帮忙看看。
endif
oxel.activeworkbook.saveas(&savPath+&savName)
oxel.workbooks.close
oxel.quit

我的目的： 在文件保存之前，检查有没有相同名称的文件存在，如果有，把那个文件另存为（backup-原文件.xlsx），然后保存生成的文件。

我刚才测试了一下

Rename "1.xlsx" to "2.xlsx"   这个可以成功运行

嘻嘻，被我改着改着，就ok了

这年头，上个班不容易啊。。。。。

ok了?

又出问题了。。所以开始感慨了

rename "&savName" to "1.xlsx"  这样是可以的
rename "&savName" to "&newName"  这样就不行，这是为啥呀

提示： 无效的文件名或路径

rename "&savName" to "&newName"  改成 rename &savName to &newName 取掉引号

版主：搞不定啊

令主子费心了，这次真的ok了

是我自己粗心。
改成这个，就ok
newName="Backup(" + TTOC(DATETIME()，1)+"-HA-"+ tsup + "(" + tteam + ")-HC Report-"+rmsn+rmsy+".xlsx"