VBA 简单问题

来源：百度知道 编辑：UC知道 时间：2024/05/22 08:26:06
关闭时另存当前打开的工作薄，同时删除刚才关闭的工作薄。
我说的是excel工作薄
1楼回复的我复制到excel工作薄关闭事件中无法实现,显示变量未定义.
麻烦说清楚一点,多谢!

‘另存当打开的工作薄

ActiveWorkbook.SaveAs fileName:= _
newFileName, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
’删除刚才关闭的工作薄
CreateObject("scripting.filesystemobject").Deletefile oldFileName

1）晕，里面未定义的变量是： newFileName和oldFileName，需要你自己赋值的。
2）这段代码不能放在关闭事件里，关闭事件是说关闭前进行的操作，而你需要实现的删除操作必须把你需要删除的文件关闭。 你应该把代码放在Module模块李。