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

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

我想有一个.bat脚本,以便快速部署这些插件。

目前,要激活我的.xlam Open Excel - File - Option - Addins - Browse to addin files... ,我必须Open Excel - File - Option - Addins - Browse to addin files...如下面的截图。 这是绝对手动,反复,累人的事情。

所以我需要自动化激活过程。

请帮忙!

在这里输入图像描述

今天早上我正在找同样的东西。 我最终会尝试这样的事情,但我还没有。 所以,这是我到目前为止:

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

这是一个关于如何从C#中使用Excel自动化的例子。 从我所看到的,所有这些自动化接口都是真正的COM接口,所以你不局限于C#或Visual Basic(也许你可以使用一些奇特的Windows脚本来处理它们,我将尝试的是使用python与pywin32,但那只是因为它适合我的口味)。

然后,注册插件,检查这个方法:

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

我其实在某个地方看到了一个关于如何使用它的例子,但是现在我找不到它了。

无论如何,这只是想法。 我非常感兴趣,知道这一切如何结束;-)

你可以在表单“ThisWorkBook”的* .xlam中插入这段代码,安装并激活当前的AddIns,只需打开

 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 

经过一个手动添加时间,我们可以通过将插件文件复制到Excel addin lair来更新addin lair 。 这是.bat脚本来做到这一点。

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

希望能帮助到你!