如何从Windows 7的命令行激活Excel加载项？

Question

目前我正在写VB函数并将它们保存为Excel插件.xlam文件。

我想有一个蝙蝠脚本，以便快速部署这些加载项。

目前，激活我.xlam加载项，我要Open Excel - File - Option - Addins - Browse to addin files...如下面的截图。这是绝对手动的，重复&累人的事情。

所以我需要的是自动进行激活过程。

请帮忙！

Answer 1

一个手动添加的时间之后，我们就可以更新插件由插件文件复制到Excel addin lair很感兴趣。这是执行它的.bat脚本。

set  fipAddin=".\FIPphase2.xlam" 
set excelAddinLair="%APPDATA%\Microsoft\AddIns" 

copy %fipAddin% %excelAddinLair% 

希望它有帮助！

Answer 2

今天上午我在寻找完全同样的事情。我最终会尝试这样的事情，但我还没有。所以，在这里就是我来这么远：

http://msdn.microsoft.com/en-us/library/microsoft.office.interop.excel.addins2.add.aspx

这是关于如何从C＃使用Excel自动化的例子。从我所看到的，所有这些自动化接口都是真的COM接口，这样你就不会仅限于C＃或Visual Basic（也许你可以使用Windows的一些花哨的脚本与他们合作？我会尝试是使用Python和pywin32，但那只是因为它适合我的口味）。

然后，注册插件（S），检查此方法：

http://msdn.microsoft.com/en-us/library/microsoft.office.interop.excel.addins2.add.aspx

我居然看到一个例子某处了解如何使用它，但现在我找不到它。

不管怎样，这些都只是想法。我在知道这一切是如何结束;-)

Answer 3

您可以在纸张的* .xlam插入这个代码“的ThisWorkbook”的代码安装并激活当前的加载项，只要打开

Private Sub Workbook_Open() 
    Dim oXL As Object, oAddin As Object 
    URL = Me.Path & "\" 
    normalUrl = Application.UserLibraryPath ' Environ("AppData") & "\Microsoft\AddIns" 
    AddinTitle = Mid(Me.Name, 1, Len(Me.Name) - 5) 

    If URL <> normalUrl Then 
     If MsgBox("Can you Install AddIns ?", vbYesNo) = vbYes Then 
      Set oXL = Application ' CreateObject("Excel.Application") 
      oXL.Workbooks.Add 
      Me.SaveCopyAs normalUrl & Me.Name 
      Set oAddin = oXL.AddIns.Add(normalUrl & Me.Name, True) 
      oAddin.Installed = True 

      oXL.Quit 
      Set oXL = Nothing 
     End If 
    End If 
End Sub