如何使用 ExcelDna 中的 ExcelCommand

Question

我有一个简单的 ExcelCommand：

[ExcelCommand(Name = "MyTestCommand", ShortCut = "^Q")]
public static void Teste()
{
    var xlApp = (Application)ExcelDnaUtil.Application;
    var ws = xlApp.Sheets[1] as Worksheet;
    var range = ws.Cells[1, 1] as Range;
    range.Value2 = "foo bar";
}

当我按Ctrl + Shift + Q 时，第一张工作表中的单元格 A1 收到文本"foo bar" 。

客户不想要快捷方式，他想要一个用户界面按钮（在功能区或工作表正文中，无关紧要）。

用 VBA 我可以写：

Sub Button1_OnClick()
    MyTestCommand
End Sub

但是调用MyTestCommand不起作用。

如何调用我创建的命令？

Answer 1

如果您为ExcelCommand的MenuText成员设置了一个值，它将通过Add-Ins功能区自动变为可用。

[ExcelCommand(MenuText = "My Test Command", ShortCut = "^Q")]
public static void Teste()
{
    // ...
}

如果您想更好地控制命令呈现方式的CustomUI ，请使用您自己的按钮、图标等创建您自己的CustomUI 。 查看 Excel-DNA 附带的不同 Ribbon 示例。

Answer 2

您可以使用 VBA 古怪的 SendKeys 函数来使用一个非常可怕的 frig。 这将使工作无需使用功能区即可工作，并且可以让您使用工作表上的标准按钮。

好的，退后遮住你的眼睛:)

Sub Button1_Click()
    ' this short cut invokes the
    ' MyTestCommand function
    SendKeys "^Q"
End Sub

忍受，我的意思是享受

Answer 3

试试这个：

Sub Button1_OnClick()
    Application.Run("MyTestCommand")
End Sub