[已解决]EXCEL文档怎么实现5分钟另外保存一份?

qzc804030 · 发表于 2011-12-27 12:59

EXCEL文档怎么实现5分钟另外保存一份?保存的文件以保存的时间命名?谢谢!

最佳答案

Zipall

2011-12-27 15:00

2段代码分别在thisworkbook和模块1中.
为测试效果5秒1次,时间自己改.
(, 下载次数: 4)

zsx720629 · 发表于 2011-12-27 13:04

后轰保存为xls还xlsx

qzc804030 · 发表于 2011-12-27 13:20

zsx720629 发表于 2011-12-27 13:04
后轰保存为xls还xlsx

保存时间.XLS
谢谢!

suye1010 · 发表于 2011-12-27 13:22

Sub BackupBeforeUpdate()
Dim BackupPath As String
MsgBox ThisWorkbook.Name
BackupPath = ThisWorkbook.Path & "\Backup"
If Dir(BackupPath, vbDirectory) <> "" Then
ThisWorkbook.SaveCopyAs Filename:=BackupPath & Replace(ThisWorkbook.Name, ".xls", "(" & Format(Date, "YYYY-mm-dd") & Format(Time, " HH-MM") & ").xls")
Else
MkDir BackupPath
ThisWorkbook.SaveCopyAs Filename:=BackupPath & Replace(ThisWorkbook.Name, ".xls", "(" & Format(Date, "YYYY-mm-dd") & Format(Time, " HH-MM") & ").xls")
End If
Application.OnTime Now() + TimeValue("00:05:00"), "BackupBeforeUpdate"
VBA.DoEvents
End Sub

复制代码

zsx720629 · 发表于 2011-12-27 13:49

本帖最后由 zsx720629 于 2011-12-27 13:52 编辑

看一下这个，行不行

菜鸟锐 · 发表于 2011-12-27 13:58

qzc804030 · 发表于 2011-12-27 14:09

在实验中,谢谢!大家的支持,我在学习中,偷大家的经验.

qzc804030 · 发表于 2011-12-27 14:17

qzc804030 发表于 2011-12-27 14:09
在实验中,谢谢!大家的支持,我在学习中,偷大家的经验.

启动的时候保存了,过5分钟保存的时候,显示找不到宏.不能保存文件!

qzc804030 · 发表于 2011-12-27 14:18

zsx720629 发表于 2011-12-27 13:49
看一下这个，行不行

启动的时候保存了,过5分钟保存的时候,显示找不到宏.不能保存文件!

qzc804030 · 发表于 2011-12-27 14:44

suye1010 发表于 2011-12-27 13:22

你的运行宏的时候保存一个,接下来就不自动保存了

		自动登录	找回密码
密码			注册