怎么使用VBA代码实现excel文档每天自动备份

 
怎么使用VBA代码实现excel文档每天自动备份
2016-12-15 11:48:49 /故事大全

怎么使用VBA代码实现excel文档每天自动备份

实现这样“高大尚”的功能现有的excel功能无法完成,还得VBA编程的方法。当然,作为不懂VBA代码的你,只需要按下面步骤复制粘贴即可。

第1 步:打开要备份的excel文件,在工作表标签上右键单击,点击“查看代码”。

【点击图片进入下一页或下一篇】

第2步 在打开一个visualbasic窗口,双击工程窗口中的thisworkbook,把下面的代码粘贴到右侧的窗口中。

代码:

Private Sub Workbook_BeforeClose(Cancel As Boolean)

On Error Resume Next

Dim mypath As String, fname As String

fname = Format(Date, "yymmdd") & ThisWorkbook.Name

mypath = ThisWorkbook.Path & "/备份/"

ThisWorkbook.SaveCopyAs mypath & fname

End Sub

【点击图片进入下一页或下一篇】

第3步:在Visual basic窗口中点击保存命令,会弹出另存启用宏的提示,这时点击“否”按钮。

【点击图片进入下一页或下一篇】

在弹出的保存窗口中,选取保存类型为“Excel 启用宏的工作簿”。

【点击图片进入下一页或下一篇】

第4步:在当前文件夹中,新建一个名为“备份”的文件夹。

【点击图片进入下一页或下一篇】

所属专题:
如果您觉得本文或图片不错,请把它分享给您的朋友吧!

 
搜索
 
 
广告
 
 
广告
 
故事大全
 
版权所有- © 2012-2015 · 故事大全 SITEMAP站点地图-Foton Auman手机看故事 站点地图-Foton Auman