Sub 安装加载宏()
Dim fnO, fnN, fpnN As String 'FileNameOld FileNameNew FilePathNameNew
Dim fnOA 'FileNameOldArr
Dim iA 'iArr
If MsgBox("本程序将安装自制选项卡 —— My_Tool。是否安装?", vbYesNo, "工具栏 My_Tool 安装") = vbNo Then ThisWorkbook.Close False
'提示安装,若选择否,则关闭文件,不执行安装
fnO = "My_Tool My_Tool_190710 MyTool_190819" '写入历史版本字符串
fnOA = Application.Transpose(Application.Transpose(Split(fnO, " "))) '生成历史版本数组
fnN = "MyTool_190819" '新的版本名称。
On Error Resume Next
Application.DisplayAlerts = False
For Each iA In fnOA '遍历历史版本
Application.AddIns(iA).Installed = False '取消加载
'Kill Workbooks(Application.UserLibraryPath & "\" & iA) '删除文件
Kill Application.UserLibraryPath & iA & ".xlam" '删除文件
Next iA
fpnN = Application.UserLibraryPath & fnN '新的加载宏文件保存路径
ThisWorkbook.SaveAs fpnN, xlOpenXMLAddIn '将文件另存为加载宏文件
Application.AddIns(fnN).Installed = True '将加载宏文件激活
If Application.AddIns(fnN).Installed = True Then MsgBox "已成功安装工具 My_Tool!", , "提示"
Application.DisplayAlerts = True
ThisWorkbook.Close '关闭文件
End Sub
VBA 更新自定义安装的加载宏文件版本
最新推荐文章于 2023-04-09 15:15:02 发布