excel - 部署 Excel 插件

Question

什么是安装 Excel 插件的好方法？

我想轻松推出 Excel 插件，它的依赖文件都可以存储在一个目录中。我希望用户根据要求获得一个永不版本，或者我想将其推送到他们的 PC 上。

这是在我完全控制环境的公司内部。

Answer 1

您可以在“ThisWorkBook”模块的 *.xlam 中插入此代码
此代码安装并激活当前的插件

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