在VSTO项目中使用Excel的撤销功能（二）

iCells

在上一篇中已经实现了在VSTO中调用VBA工程中的过程来实现撤销功能，OnUnDO函数必须是调用VBA中的过程名，如果每一个撤销的过程都需要放入到VBA中去实现，不仅繁琐，还失去了VSTO开发插件的意义。

查看原文：https://www.cnblogs.com/iCells/articles/16694342.html

其实可以通过VSTO调用一个固定的VBA，再通过VBA来调用VSTO内撤销过程的方法来实现，核心在于VBA如何调用VSTO中的过程，其实现过程如下：

一、在ExcelAddIn1项目中新建一个类，类名称Rollback，并放入以下代码：

1. Imports System.Runtime.InteropServices
   
2. <ComVisible(True)>
   
3. Public Interface IAddInUtilities
   
4. Sub Undo(str As String)
   
5. End Interface
   
6. <ComVisible(True)>
   
7. <ClassInterface(ClassInterfaceType.None)>
   
8. Public Class Rollback
   
9. Implements IAddInUtilities
   
10. Public Sub Undo(str As String) Implements IAddInUtilities.Undo
    
11. Globals.ThisAddIn.Application.ActiveSheet.Range("A1").Value = str
    
12. End Sub
    
13. End Class

复制代码

以上代码的作用是向Excel公开VSTO中的Undo方法，Undo方法实现了撤销的具体过程。

二、在ThisAddIn中插入以下代码：

1. Private utilities As Rollback
   
2. Protected Overrides Function RequestComAddInAutomationService() As Object
   
3. If utilities Is Nothing Then
   
4. utilities = New Rollback()
   
5. End If
   
6. Return utilities
   
7. End Function

复制代码

以上代码的作用是公开Rollback类的实例。

三、在iCells_Undo.xlam加载宏VBA工程中模块中，把具体的撤销过程改为以下代码：

1. 
   
2. Sub Undo(str As String)
   
3. Dim addIn As COMAddIn
   
4. Dim automationObject As Object
   
5. Set addIn = Application.COMAddIns("ExcelAddIn1")
   
6. Set automationObject = addIn.Object
   
7. automationObject.Undo (str)
   
8. End Sub

复制代码

最后运行项目，点击“A1单元格赋值”按钮，A1被赋值“iCells”，撤销按钮亮起。

点击撤销按钮，A1单元格被赋值为原来的空值，撤销按钮不可用。

借助加载宏和OnUndo方法实现了在VSTO项目中的撤销功能，但是OnUndo方法有缺点，只能撤销最后一步，原因是当Excel运行任何代码后，撤销栈会被清除，就算是在撤销过程后继续调用OnUndo方法，也不能实现连续撤销功能。

查看iCells连续撤销功能。

ty1216jhy

厉害厉害学习了。。

gaolzhen

拜读了，很好

前进者

感谢群主分享，收藏后仔细消化！