Office中国论坛/Access中国论坛

标题: 如何实现EXCEL文件每天备份一次 [打印本页]

作者: ahrose 时间: 2005-8-22 14:50
标题: 如何实现EXCEL文件每天备份一次
我用EXCEL制作了一个仓库管理软件,随着资料的增多,EXCEL文件的增大,我很害怕万一哪一天该文件损坏了该怎么办.请各位高手能否设计一下:每天保存的时候它自动会以当天的日期作为备份文件的文件名.

作者: porpoise2004 时间: 2005-8-23 04:32
EXCEL自己有生成备分文件功能

可以在WORKBOOK后加一段程序实现

利用一个单元格记录当天的备份情况,确定是否备份

Private Sub Workbook_BeforeClose(Cancel As Boolean)

If Sheet1.Cells(1, 1) = True Then

ActiveWorkbook.SaveCopyAs "C:\Backup.XLS"

Sheet1.Cells(2, 1) = Now()

End If

End Sub

''''''A1单元格为 =if(A3-A2>=1,TRUE,FALSE) ,A3为 = now()

[此贴子已经被作者于2005-8-22 20:33:49编辑过]

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)