如何在Windows 7命令行中激活Excel插件？

Question

目前我正在编写VB函数，并将它们保存为Excel加载项.xlam文件。

我想要一个.bat脚本，以便快速部署这些加载项。

目前，要激活我的.xlam加载项，我必须像下面的屏幕截图一样：打开Excel - 文件 - 选项 - 加载项 - 浏览添加文件...。这绝对是手动、重复和繁琐的工作。

因此，我的需求是自动化激活过程。

- Nam G VU

Answer 1

我今天早上也在寻找类似的东西。我最终会尝试类似的方法，但目前还没有。所以，这是我目前的发现：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。我曾经在某个地方看到过有关如何使用它的示例，但现在找不到了。无论如何，这些只是想法。我非常想知道它最终的结果如何;-)

- dsign

---

这里有一个使用Perl脚本的解决方案： https://dev59.com/9kfSa4cB1Zd3GeqPAdWg。希望它能帮到你。我正在寻找一个纯Windows .bat自动化脚本。 - Nam G VU

仅提供链接的答案 :( - FreeSoftwareServers

Answer 2

您可以将此代码插入到*.xlam文件中的"ThisWorkBook"工作表中，此代码将安装并激活当前的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

- Alban Lopez

Answer 3

手动添加一次后，我们可以通过将插件文件复制到Excel的addin lair来更新插件。以下是执行此操作的.bat脚本。

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

copy %fipAddin% %excelAddinLair%

希望能对你有所帮助！

- Nam G VU