VBA 更新自定义安装的加载宏文件版本

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