ExcelVBA函数:保存当前工作簿的临时副本

在实际工作中，需要备份多个副本，以便于【恢复为前期文档】，或者【保留修订痕迹】。

用以下函数，可以<快速>地在桌面（也可以自定义为特定文件夹、可以选择的文件夹）上保存多个副本。

Sub 保存当前工作簿的临时副本()

    Dim wb As Workbook
    Dim filePath As String
    Dim baseName As String
    Dim newFileName As String
    Dim folderPath As String
    Dim timeStamp As String
    Dim fileExt As String

    Set wb = ActiveWorkbook

    baseName = Left(wb.Name, InStrRev(wb.Name, ".") - 1)
    fileExt = Mid(wb.Name, InStrRev(wb.Name, "."))
    
    folderPath = wb.Path

    timeStamp = Format(Now(), "yyyyMMddHHmmss")

    ' 当前文件名 + 时间戳 + 原始文件的后缀
    newFileName = baseName & " 临时副本 " & timeStamp & fileExt

    filePath = folderPath & "\" & newFileName

    wb.SaveCopyAs filePath

    MsgBox "副本已成功保存为：" & vbCrLf & filePath, vbInformation, "大生"

End Sub