怎么用VBA实现将Excel 关闭后直接另存到一个指定的路径,并在另存文件名后自动获取系统时间

已举报 回答 关注
怎么用VBA实现将Excel 关闭后直接另存到一个指定的路径,并在另存文件名后自动获取系统时间
问在线客服
扫码问在线客服
  • 回答数

    3

  • 浏览数

    4,288

3个回答 默认排序
  • 默认排序
  • 按时间排序

已采纳
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就是所备份的文件的路径。
取消 评论
不知道是不是这个意思:在Excel的ThisWorkbook模块中,粘贴下列代码。
Private Sub Workbook_BeforeClose(Cancel As Boolean) On Error Resume Next ThisWorkbook.Save'保存本文件 Application.DisplayAlerts = False ThisWorkbook.SaveAs "D:\ff\测试" & Format(Now, "yyyy年m月d日 h时m分s秒") & ".xls"'另存为其它文件,这里弄成你自己的路径和文件名 Application.DisplayAlerts = TrueEnd Sub
取消 评论
本例假设文件另存为:C:\aaa.xls,你可以自行修改
请在ThisWorkBook对象中输入如下代码:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.SaveAs Filename:="C:\aaa.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub
取消 评论
ZOL问答 > 怎么用VBA实现将Excel 关闭后直接另存到一个指定的路径,并在另存文件名后自动获取系统时间

举报

感谢您为社区的和谐贡献力量请选择举报类型

举报成功

经过核实后将会做出处理
感谢您为社区和谐做出贡献

扫码参与新品0元试用
晒单、顶楼豪礼等你拿

扫一扫,关注我们
提示

确定要取消此次报名,退出该活动?