恢复 excel 更改
Recover excel changes
我正在使用带有宏 (*.xlsm) 的 excel 文件,在一整天没有保存之后,我保存为一个普通的 excel 文件 (*.xlsx) 并关闭了所有内容,现在我有一个旧的 xlsm 和一个新的 xlsx。
有什么方法可以恢复代码?我确实做了很多更改,当我将文件保存在 xlsx 中时,我认为 excel 不会给我编码文件的早期版本。
没有回答你的问题(你已经得到了坏消息......)但我在我的个人宏工作簿中有这段代码并链接到 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
我养成了经常点击那个图标的习惯...
我正在使用带有宏 (*.xlsm) 的 excel 文件,在一整天没有保存之后,我保存为一个普通的 excel 文件 (*.xlsx) 并关闭了所有内容,现在我有一个旧的 xlsm 和一个新的 xlsx。
有什么方法可以恢复代码?我确实做了很多更改,当我将文件保存在 xlsx 中时,我认为 excel 不会给我编码文件的早期版本。
没有回答你的问题(你已经得到了坏消息......)但我在我的个人宏工作簿中有这段代码并链接到 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
我养成了经常点击那个图标的习惯...