excel中，希望一键 实现 三个命令 “①保存一下，②另存为以当前日期及时间命名的文件，比如2010-11-6_20-

Question

快捷键
excel中，希望一键 实现 三个命令：
①保存一下，
②另存为以当前日期及时间命名的文件，比如“2010-11-6_20-39-14.xls”
③关闭

【cl861007】和【CrazymenLu】两位老兄都是高手，代码我试了一下 ，提示错误，可能是我弄的不对
小弟很笨，没玩过这么深的，
还没时间去看书
谁能一步一步教我一下，50分相送

Answer 1

不知是什么错误，我试了一下没有问题，但是为了避免每次提示警告信息，所以加了两句。

具体步骤：在菜单-视图-工具栏-选中控件工具箱，在弹出的新窗口，按一下设计模式，选择-命令按钮，然后在EXCEL你希望的地方画上一个按钮，接着右键，查看代码，将下列代码拷贝到两行（sub.... end sub)之间。然后再在控件菜单点击“退出设计模式”（和设计模式同一个按钮）。

这样以后你要这个功能只要点击这个按钮就可以了。

这样详细了吧。

Application.DisplayAlerts = False

ThisWorkbook.Save

ThisWorkbook.SaveAs ThisWorkbook.Path &

Answer 2

这样的快捷键是没有的，给的办法就是去做VBA宏设计，这个是完全能实现你的功能的。
具体操作这样，工具--》宏--》录制新宏，然后把你的1 2步骤做一遍，然后停止宏，然后你在按ALT+F11，然后点击左边的模块文件夹，查看模块1，然后你就可以看到，生成的代码了，再拿本VBA的书稍微了解一下，就可以完成你的功能了，如果你觉得无法看懂代码的话，你可以找一些VBA高手，帮你做一个宏。

Answer 3

Sub ThreeInOne()
ThisWorkbook.Save
ThisWorkbook.SaveAs ThisWorkbook.Path & "\" & Application.WorksheetFunction.Text(Date, "yyyy-mm-dd") & "_" & Replace(Time, ":", "-") & ".xls"
ActiveWindow.Close
End Sub