C#的撤销

Xi瓜瓜瓜

C#操作完Excel后应该如何通过撤销功能来调用自己的撤销函数
VBA中用OnUndo来触发撤销，在微软官方文档内查到如下方法，但是这个rocedure貌似还是只能是VBA，有啥办法调用C#的函数吗
public void OnUndo (string Text, string Procedure);
参数Text[color=var(--theme-visited)]String

必需的 字符串 。 与“撤消”命令（“编辑”菜单）一起显示的文本。

Procedure[color=var(--theme-visited)]String

必需的 字符串 。 选择“编辑”菜单的“撤消”命令时运行的过程的名称。

zpy2

这个前提是要记录 宏 运行前的状态，这个是重点，那个过程只是个按钮接口，具体要自己实现。c#需要vsto

Xi瓜瓜瓜

zpy2 发表于 2021-2-5 05:35
这个前提是要记录 宏 运行前的状态，这个是重点，那个过程只是个按钮接口，具体要自己实现。c#需要vsto

主要是OnUndo 需要的Procedure这个参数貌似必须是宏，有没有办法调用C#，如果是宏的话，用C#动态写入VBA后保存的时候会提示存在宏

Excelhome112233

Xi瓜瓜瓜 发表于 2021-2-5 09:09
主要是OnUndo 需要的Procedure这个参数貌似必须是宏，有没有办法调用C#，如果是宏的话，用C#动态写入VBA ...

你先做一个加载宏的空白工作簿，然后在C#里面写备份，然后在写撤销，备份是操作之前把数据复制到加载宏工作簿里，撤销是复制加载宏工作簿的数据到操作表，在加载宏里面写一句代码，调用C#里面的撤销

Excelhome112233

Excelhome112233 发表于 2021-3-22 08:39
你先做一个加载宏的空白工作簿，然后在C#里面写备份，然后在写撤销，备份是操作之前把数据复制到加载宏工 ...

VBA调用VSTO代码范例如下：
using System.Data;
using System.Runtime.InteropServices;
using Excel = Microsoft.Office.Interop.Excel;
[ComVisible(true)]
public interface IAddInUtilities
{
    void ImportData();
}

[ComVisible(true)]
[ClassInterface(ClassInterfaceType.None)]
public class AddInUtilities : IAddInUtilities
{
    // This method tries to write a string to cell A1 in the active worksheet.
    public void ImportData()
    {
        Excel.Worksheet activeWorksheet = Globals.ThisAddIn.Application.ActiveSheet as Excel.Worksheet;

        if (activeWorksheet != null)
        {
            Excel.Range range1 = activeWorksheet.get_Range("A1", System.Type.Missing);
            range1.Value2 = "This is my data";
        }
    }
}

Excelhome112233

Excelhome112233 发表于 2021-3-22 08:39
你先做一个加载宏的空白工作簿，然后在C#里面写备份，然后在写撤销，备份是操作之前把数据复制到加载宏工 ...

将以下代码添加到 ThisAddIn
private AddInUtilities utilities;

protected override object RequestComAddInAutomationService()
{
    if (utilities == null)
        utilities = new AddInUtilities();

    return utilities;
}

Excelhome112233

Xi瓜瓜瓜 发表于 2021-2-5 09:09
主要是OnUndo 需要的Procedure这个参数貌似必须是宏，有没有办法调用C#，如果是宏的话，用C#动态写入VBA ...

最后在VBA调用代码
Sub CallVSTOMethod()
    Dim addIn As COMAddIn
    Dim automationObject As Object
    Set addIn = Application.COMAddIns("ExcelImportData")
    Set automationObject = addIn.Object
    automationObject.ImportData
End Sub

lipton

Excelhome112233 发表于 2021-3-22 09:05
最后在VBA调用代码
Sub CallVSTOMethod()
    Dim addIn As COMAddIn

谢谢分享。

Xi瓜瓜瓜

感谢分享！