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

Question

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

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

目前，要激活我的 .xlam 插件，我必须打开 Excel - 文件 - 选项 - 插件 - 浏览到插件文件...，如下图所示。这绝对是手动的、重复的、手动的。做很累的事。

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

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

我实际上在某处看到了一个关于如何使用它的示例，但我不能立即找到它。

无论如何，这些只是想法。我很想知道这一切如何结束;-)

Answer 2

您可以将此代码插入“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

Answer 3

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

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

copy %fipAddin% %excelAddinLair%

希望有帮助！