如何从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%
希望能帮助到你!