恢复 Excel 更改答案

【问题标题】：Recover excel changes恢复 Excel 更改
【发布时间】：2018-06-22 05:10:00
【问题描述】：

我使用的是带有宏 (*.xlsm) 的 excel 文件，一整天没有保存，我保存为一个普通的 excel 文件 (*.xlsx) 并关闭了所有内容，现在我有一个旧的 xlsm 和一个新的xlsx.

有什么方法可以恢复代码？我确实做了很多更改，当我将文件保存在 xlsx 中时，我认为 excel 不会为我提供我的编码文件的早期版本。

【问题讨论】：

对不起，伙计，它现在消失了 - 当您保存为 .xlsx 时，Excel 会丢弃所有宏。生活和学习！
恐怕你运气不好。储蓄有点像投票，你想早点做，而且要经常做。
我做的一件事是复制我正在处理的宏的版本并粘贴到文本文件中——它们可以很好地粘贴回来。对不起，去过那里，感受一下你的痛苦。

【解决方案1】：

没有回答你的问题（你已经得到了坏消息......）但我在我的个人宏工作簿中有这段代码，并链接到 Excel 快速访问工具栏上的图标：

Public Sub SaveSnapshot()

    Dim fso As New Scripting.FileSystemObject
    Dim wb As Workbook, p As String
    Set wb = ActiveWorkbook

    p = wb.Path & "\Snapshots"

    If Not fso.FolderExists(p) Then fso.CreateFolder (p)

    wb.Save
    wb.SaveCopyAs p & "\" & Format(Now, "yyyymmdd_hhmmss") & "_" & wb.Name

End Sub

我养成了经常点击那个图标的习惯……

【讨论】：