目前我正在编写VB函数,并将它们保存为Excel加载项.xlam文件。
我想要一个.bat脚本,以便快速部署这些加载项。
目前,要激活我的.xlam加载项,我必须像下面的屏幕截图一样:打开Excel - 文件 - 选项 - 加载项 - 浏览添加文件...
。这绝对是手动、重复和繁琐的工作。
因此,我的需求是自动化激活过程。
目前我正在编写VB函数,并将它们保存为Excel加载项.xlam文件。
我想要一个.bat脚本,以便快速部署这些加载项。
目前,要激活我的.xlam加载项,我必须像下面的屏幕截图一样:打开Excel - 文件 - 选项 - 加载项 - 浏览添加文件...
。这绝对是手动、重复和繁琐的工作。
因此,我的需求是自动化激活过程。
您可以将此代码插入到*.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
手动添加一次后,我们可以通过将插件文件复制到Excel的addin lair
来更新插件。以下是执行此操作的.bat脚本。
set fipAddin=".\FIPphase2.xlam"
set excelAddinLair="%APPDATA%\Microsoft\AddIns"
copy %fipAddin% %excelAddinLair%
希望能对你有所帮助!