Question

请教网络牛人!EXCEL 函数(另存为)

想做一个excel 关闭的时候自动另存为的 宏知识有限,请教excel 能手,Private Sub Workbook_Close()Sub saveit()Application.DisplayAlerts = FalseActiveWorkbook.SaveCopyAs "F:\★调价单★\" & Format(Now, "yyyy.mm.dd") & ".xls"End Sub以上的宏 是可以另存为 但是不是自动 (关闭的时候自动另存为) 好了,这里重新一下这个 宏 的功能,如有不清晰麻烦说明下1.关闭该excel时候 自动另存为 不用提示!2.另存为指定的路径3.另存为时 检测是否存在 当前日期yyyy.mm 的文件夹 没有的话自动创建4.保存到 指定路径下 yyyy.mm 的文件夹内 命名为 yyyy.mm.dd 的文件名5.检测有 yyyy.mm.dd 同名 的excel 文件时,在文件后加-1 即(2009.01.01-1) 功能上如果有什么缺点,\者 有更好的想法也可以提议下,谢谢!

Answer 1

看来你遇到的问题有两个，1是关闭前自动执行的过程名不清楚；2是文件命名规则。
对于你说的文件夹目录命名什么的，个人觉得不必要买次检测，或者你直接建立好久可以了，是在需要可以用MkDir函数建立目录，我觉得代码这样修改：
Public Sub auto_close()
Application.DisplayAlerts = False
ActiveWorkbook.SaveCopyAs "d:\" & Format(Now, "yyyy-mm-dd h_m_ss") & ".xls"
End Sub

Answer 2

你不用问了，你就是个网络牛人。什么东西不是要靠他人的头脑来解决，要自己动手，自己满足自己才是最好的，不要光靠别人。自己好好加油！我相信你一定能够解决这个问题。

Answer 3

牛人，受教了。