QTP excel 重命名保存

execname="D:\test1.xls"
Set bjexc=createobject("excel.application")
On error resume next
Set bjworkbook=objexc.workbooks.open("d:\test.xls")
If err.number<>0 Then
 msgbox "打开失败"
End If
On error goto  0

objexc.activeworkbook.saveas execname, 1
objworkbook.close true
Set bjworkbook= nothing
Set bjexc= nothing