Question

求VBA高手帮忙，想在Excel 宏A运行完成后自动另存为整个workbook，另存文件名为当时的

求VBA高手帮忙，想在Excel 宏A运行完成后自动另存为整个workbook，另存文件名为当时的GMT时间。希望可以提供代码的例子，非常感谢！

Answer 1

你试试在“workbook"的 Private Sub Workbook_BeforeClose(Cancel As Boolean) 中加入如下句子：
myNowTime = Format(Now, "yymmdd" &"-" & "hhmmss")
ActiveWorkbook.SaveAs Filename:=currPath & myNowTime &".xls", AddToMru:=False ‘（”currPath“为你的路径及文件名称）

追问

谢谢您，再求助个白痴的问题，我现在写的是文件打开Excel自动运行宏A,然后用您的答案自动另存文件，可是如果我打开另存的文件就又开始自动运行宏A了，就又另存了文件，如此循环…如果我想把另存为的文件设置为禁用宏的格式，fileformat该如何设置呢？

Answer 2

excel自动另存需要编写宏函数。
可以在ThisWorkBook对象中输入代码完成，
代码如下：
Private Sub Workbook_BeforeClose(Cancel As Boolean) ActiveWorkbook.SaveAs Filename:="C:\aaa.xls", _ FileFormat:=xlNormal, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:=False, CreateBackup:=False End Sub
其中C:\aaa.xls就是所备份的文件的路径。

Answer 3

ActiveWorkbook.SaveAs Filename:= _
ThisWorkbook.Path & "\" & Format(Date, "yyyy-MM-dd hh:mm:ss") ，FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False

Answer 4

例子语句：
ActiveWorkbook.SaveAs Format(Now(), "yyyymmdd")