VBA内容撤销还原猜想

wajour

VBA可还原不知道各位老师们是如何实现的，当初看到有些插件说支持撤销操作。
今天不经意发现range.value还有个参数可以将单元格相关的所有信息都翻译成xml来表达。
此时想到的是VBA是否可以利用这种方式来实现还原撤销，希望各位老师指点一下，谢谢

看见星光

http://club.excelhome.net/thread-690984-1-1.html

wajour

看见星光 发表于 2015-7-2 23:09
http://club.excelhome.net/thread-690984-1-1.html

这个看过了
就是这个undo撤销跟这个xml反写应该可以以假乱真了，担心数据多会顿卡

coby001

wajour 发表于 2015-7-2 23:11
这个看过了
就是这个undo撤销跟这个xml反写应该可以以假乱真了，担心数据多会顿卡

Sub 按钮2_Click()
    Dim xml As New DOMDocument
    If [A1] <> "" Then
        xml.LoadXML (Range("A1:H16").Value(xlRangeValueMSPersistXML))
        xml.Save ("C:\TEMP.XML")
        Range("A1:H16").Clear
    End If
End Sub
Sub 按钮1_Click()
    Dim xml As New DOMDocument
    If [A1] = "" Then
       'xml.LoadXML (Range("A1:H16").Value(xlRangeValueXMLSpreadsheet))
        xml.Load ("C:\TEMP.XML")
        Range("A1:H16").Range("A1:H16").Value(xlRangeValueMSPersistXML) = xml.xml
    End If
End Sub
----------------------
xlRangeValueMSPersistXML
改成这样，就报错了，说不支持该方法

coby001

wajour 发表于 2015-7-2 23:11
这个看过了
就是这个undo撤销跟这个xml反写应该可以以假乱真了，担心数据多会顿卡

也不支持 条件格式
条件格式会被清除掉~

coby001

自定义单元格格式能保留

coby001

wajour 发表于 2015-7-2 23:11
这个看过了
就是这个undo撤销跟这个xml反写应该可以以假乱真了，担心数据多会顿卡

Option Explicit

Dim xmlRng$

Sub 按钮2_Click()
    If [A1] <> "" Then
        xmlRng = Range("A1:H16").Value(xlRangeValueXMLSpreadsheet)
        Range("A1:H16").Clear
    End If
End Sub

Sub 按钮1_Click()
    If [A1] = "" Then
        Range("A1:H16").Range("A1:H16").Value(xlRangeValueXMLSpreadsheet) = xmlRng
    End If
End Sub


---------------
其实，只要字符串就行了，不用xmlDOM 的
多个 区域的range 可以存在 字符串数组了。

wajour

coby001 发表于 2015-7-3 00:27
Option Explicit

Dim xmlRng$

嗯 导出文件主要是为了让效果更明显 关闭表格后也可以恢复内容

香川群子

一般说，没这个必要。

如果需要撤销全部的宏运行结果，只需不保存文件，然后重新打开文件就是未运行宏的状态了。

为自动化起见，可以在执行宏之前，加上一句保存原始文件作为备份的代码。

…………
而如果想要分步撤销……那就太复杂了（如果是一个较大型的宏代码的话）
而且，基本上毫无意义的。

如果说一定需要，那么把大型的宏过程分拆为几个子过程，每个子过程运行之前自动做一下备份即可。

…………
应该相信微软工程师的经验，如果他们没有开发这个功能，一定是不需要的、或意义不大的。

liucqa

https://support.microsoft.com/zh-cn/kb/285891/en-us

oBook.Worksheets(1).Range("B2").Resize(nRecords + 2, nFields + 1).Value(11) = oResults.xml 'Note: xlRangeValueXMLSpreadsheet=11


https://support.microsoft.com/zh-cn/kb/278976
oRangeXML.LoadXML Range("A1:C8").Value(xlRangeValueXMLSpreadsheet)