插件可以沟通吗?连接插件/插件依赖项-Canadd-insCommunicate?ConnectingAdd-ins/Add-inDependency

Can Add-ins communicate?

插件可以沟通吗?

I have an Excel add in that communicates with an API. In that add-in it can take in the XML packaged data as a string and the route of the API as a URL/I as a string then POSTs it data:

我有一个与API通信的Excel插件。在这个外接程序中，它可以将XML打包的数据作为字符串输入，将API的路由作为URL/I作为字符串输入，然后将数据发布到:

Function PostApiXmlToXml(XML as String, URL as String) as String
   'Post to Url that XML data
   'PostApiXmlToXml = the XML response
End Function

The problem is that there are many different routes and functions needed. And not all users need/are authorized to use all Routes.

问题是需要许多不同的路线和功能。并不是所有用户都需要/被授权使用所有的路由。

I either just give everyone access to every function but if they try to send to one they don't have access to it will respond with unauthorized.

我要么让每个人都能访问每个函数，但如果他们试图发送给一个他们无法访问的函数，他们会以未经授权的方式响应。

Or there is a way of having an add in for each function that Connects to the main communication add in?

或者有一种方法可以为每个连接到主通信的函数添加一个add in?

e.g. this separate add-in has a function that is dependent on the first:

例如，这个单独的外接程序有一个依赖于第一个的功能:

Function CalculateSomething(x as double, y as double, z as double) as double
    Xml = "" + x + "" &_
           "" + y + "" &_
           ""  ""       "" "" 
    route = "www.api.com/api/controller/func"
    CalculateSomething = PostApiXmlToXml(xml,route)
End Function

Main problem is that users can opt in to new functions whenever they want, so I want to make it as easy as possible for the user to just download another add-in that will give them access. There's also many more functions to be added in the future.

主要的问题是，用户可以随时选择新功能，所以我想让用户尽可能轻松地下载另一个能让他们访问的插件。将来还会添加更多的函数。

Is it possible or am I going about this all the wrong way?

这是可能的，还是我走错路了?

Would people recommend going down the VSTO route?(no experience in that whatsoever)

人们会建议走VSTO路线吗?(没有任何经验)

1 个解决方案

Function CalculateSomething(x as double, y as double, z as double) as double
    Xml = "" + x + "" &_
           "" + y + "" &_
           ""  ""       "" "" 
    route = "www.api.com/api/controller/func"
    CalculateSomething = _
        Application.Run("MainAddIn!Module1.PostApiXmlToXml", xml, route)
End Function

Function IsAddInInstalled(name$) As boolean
Dim a
Dim ret as Boolean
For each a in Application.AddIns
    if (a.Name = name) then
        ret = True
        Exit For
    End If
Next

If not ret Then MsgBox "Please install " & name
IsAddInInstalled = ret
End Function

Sub Workbook_Open()
    Call IsAddInInstalled("MainAddIn.xlam")
End Sub