用EXCEL VBA 解决文件自动备份问题

用EXCEL VBA 解决文件自动备份问题
我们做会计的离不开EXCEL表。

有些表很重要，每次修改完都得进行一次备份，比如将桌面上操作过的EXCEL表拷贝到D盘下面。

一般的做法是先修改，再复制，再粘贴到D 盘，但是，如果这个表非常重要且我们几乎每天都要修改，那么这种方式就显得十分麻烦了。

怕就怕哪天忘记备份，遇到个神马病毒就完蛋了。

有没有简单方法？回答是肯定的。

最近笔者通过对EXCEL VBA的研究发现解决这个问题易如反掌。

方法如下：
第一步：打开EXCEL表，选择视图—＞工具栏—＞visual basic；
第二步：出现如下画面后，点击visual basic 编辑器按钮；
第三步：双击“thisworkbook”，在右边的大框中输入如下程序代码段：
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Workbooks("冯涛.xls").SaveAs "d:\冯涛.xls"
End Sub
大功告成，保存关闭文件即可。

以后您再也不必为忘记备份文件而发愁了。

因为只要您修改了这个名为“冯涛”的EXCEL文件，计算机就会自动将修改结果保存到D盘。

需要说明的的：冯涛.xls为您的EXCEL文件名，可以修改，”d:\”为您需要备份的文件目标目录，也可以修改。