Question

我正在开发Excel 2013的加载项，我在Excel加载项中创建了一个函数，如下所示

  public string ExcelReturnString()
    {
        return "This is the string: hi";
    }

我使用下面的代码来调用函数，但它会抛出错误。

Application.Run(ExcelReturnString)

如何在宏中调用加载项功能？

Answer 1

这是关于直接前进的最远的事情，但这就是你完成任务的方式。我会尽可能地明确，因为前两次或三次我试图这样做，我错过了很多。

首先，当您创建承载ExcelReturnString()的类时，您需要使用具有以下属性的接口来装饰该类，然后还标记要公开的每个方法的属性。为了这个例子，我创建了加载项类“TestExcelAddIn”：

using System.Data;
using System.Runtime.InteropServices;
using Excel = Microsoft.Office.Interop.Excel;

namespace TestExcelAddIn
{
    [ComVisible(true)]
    [InterfaceType(ComInterfaceType.InterfaceIsDual)]
    public interface IStringGetter
    {
        string ExcelReturnString();
    }

    [ComVisible(true)]
    [ClassInterface(ClassInterfaceType.None)]
    public class StringGetter : IStringGetter
    {
        public string ExcelReturnString()
        {
            return "This is the string: hi";
        }
    }
}

然后，在主类中，与项目中的“Excel”关联，您必须以下列方式覆盖RequestComAddInAutomationService。再一次，我包括了一切，所以你知道哪个班级是什么（我第一次阅读时没有）。

namespace TestExcelAddIn
{
    public partial class ExcelTest
    {
        private StringGetter myAddIn;

        protected override object RequestComAddInAutomationService()
        {
            if (myAddIn == null)
                myAddIn = new StringGetter();

            return myAddIn;
        }

        private void ThisAddIn_Startup(object sender, System.EventArgs e)
        {
        }

        private void ThisAddIn_Shutdown(object sender, System.EventArgs e)
        {
        }

        #region VSTO generated code
        #endregion
    }
}

现在VBA已准备好以下列方式使用此方法：

Sub Test()

    Dim addin As Office.COMAddIn
    Dim automationObject As Object
    Dim returnString As String

    Set addin = Application.COMAddIns("TestExcelAddIn")
    Set automationObject = addin.Object

    returnString = automationObject.ExcelReturnString

End Sub

你可以给我100年的时间来解决这个问题，但我不会。实际上，信用MSDN上的Rosetta石头：

https://msdn.microsoft.com/en-us/library/bb608621.aspx?f=255&MSPPError=-2147217396

Answer 2

您的代码似乎是java。

例如，

Excel使用Visual Basic。

Function excelreturnstring()
    excelreturnstring = "this is the string: hi"
End function

Answer 3

除了上面的DaveMac注释之外，在调用另一个例程时还要记住几点：

如果您从与该例程位于同一工作簿/插件中的例程调用宏，则不必使用Application.Run。您可以使用其名称来调用它：

MyMacro

如果您正在调用另一个工作簿中的宏，那么您确实需要使用Application.Run，但您还需要使用宏所在的工作簿名称，否则VBA将无法知道它应该寻找宏：

Application.Run "'My Fancy Spreadsheet.xlsm!'MyMacro"

在宏中调用Excel加载项功能

3 个答案: