如何实现EXCEL文件每天备份一次

ahrose

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

porpoise2004

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编辑过]