Excel 2010 VBA 入门 068 将当前工作簿备份至指定目录

目录

示例：

实现代码

工作簿对象(Workbook)的SaveCopyAs方法

SaveCopyAs方法和SaveAs方法的区别

---

示例：

    在许多时候，希望能够为工作簿创建一个备份，以防误操作而丢失数据。如何为当前工作簿自动备份一个副本至指定目录，并以日期和时间为文件名？

实现代码

Option Explicit

Sub 备份工作簿()
    Dim FileFullName As String
    Dim FilePath As String
    FilePath = ThisWorkbook.Path
    FileFullName = FilePath & Format(Now, "yymmddhhnnss") & ".xlxs"
    thisworkbokk.SaveAs FileFullName
End Sub

工作簿对象(Workbook)的SaveCopyAs方法

SaveCopyAs方法可以保存一个工作簿的副本至指定的目录，其语法为：

Workbook.SaveCopyAs filename

其中，Workbook为工作簿对象。参数filename为副本的完整路径。

SaveCopyAs方法和SaveAs方法的区别

    SaveCopyAs方法和SaveAs方法都可以实现将某个指定的工作簿另存为一个工作簿。但它们有以下区别。</