VBS Excel插件的安装与卸载

2024-06-18 03:28
文章标签 excel 安装 卸载 插件 vbs

本文主要是介绍VBS Excel插件的安装与卸载,希望对大家解决编程问题提供一定的参考价值,需要的开发者们随着小编来一起学习吧!

可以通过下面的安装与卸载脚本,将xxxxxxxx.xlam AddIns(插件)安装或卸载。
注意,在安装或卸载前需要退出所有启动的Excel文件。
下面的代码复制粘贴到文本文件,替换好文件名称,另存为.vbs文件,并将xlam文件放到同一个文件夹,双击该vbs文件即可。

安装脚本如下
install.vbs

On Error Resume NextDim installPath 
Dim addInName 
Dim addInFileName 
Dim objExcel 
Dim objAddin'设定AddIns情报
addInName = "xxxxxxxx Addin" 
addInFileName = "xxxxxxxx.xlam"IF MsgBox("Do you want to install " &addInName & " ?", vbYesNo + vbQuestion, addInName) = vbNo Then WScript.Quit 
End IFSet objWshShell = CreateObject("WScript.Shell") 
Set objFileSys = CreateObject("Scripting.FileSystemObject")'创建安装路径
'(ex)C:\Users\[User]\AppData\Roaming\Microsoft\AddIns\[addInFileName] 
installPath = objWshShell.SpecialFolders("Appdata") & "\Microsoft\Addins\" & addInFileName'文件复制(覆盖)
objFileSys.CopyFile  addInFileName ,installPath , TrueSet objFileSys = Nothing'Excel 实例化
Set objExcel = CreateObject("Excel.Application") 
objExcel.Workbooks.Add'AddIns注册
Set objAddin = objExcel.AddIns.Add(installPath, True) 
objAddin.Installed = True'Excel 退出
objExcel.Quit
Set objAddin = Nothing 
Set objExcel = NothingIF Err.Number = 0 THEN MsgBox "The add-ins have been installed.", vbInformation, addInName 'objWshShell.Run "xxxxxxxx_readme.txt"
ELSE MsgBox "An error has occurred." & vbCrLF & "If Excel is running, exit it.", vbExclamation, addInName 
End IF
Set objWshShell = Nothing 


卸载脚本如下
uninstall.vbs

On Error Resume NextDim installPath 
Dim addInName 
Dim addInFileName 
Dim objExcel 
Dim objAddin'设定AddIns情报
addInName = "xxxxxxxx Addin" 
addInFileName = "xxxxxxxx.xlam"IF MsgBox("Do you want to uninstall " &addInName & " ?", vbYesNo + vbQuestion, addInName) = vbNo Then WScript.Quit 
End IF'Excel 实例化
Set objExcel = CreateObject("Excel.Application") 
objExcel.Workbooks.Add'AddIns解除注册
For i = 1 To objExcel.Addins.Count Set objAddin = objExcel.Addins.item(i) If objAddin.Name = addInFileName Then objAddin.Installed = False End If 
Next'Excel 退出
objExcel.QuitSet objAddin = Nothing 
Set objExcel = NothingSet objWshShell = CreateObject("WScript.Shell") 
Set objFileSys = CreateObject("Scripting.FileSystemObject")'创建卸载路径
'(ex)C:\Users\[User]\AppData\Roaming\Microsoft\AddIns\[addInFileName] 
installPath = objWshShell.SpecialFolders("Appdata") & "\Microsoft\Addins\" & addInFileName'删除文件
If objFileSys.FileExists(installPath) = True Then objFileSys.DeleteFile installPath , True 
Else MsgBox "Add-in file does not exist.", vbExclamation, addInName  
End If'删除注册表
objWshShell.RegDelete("HKCU\Software\VB and VBA Program Settings\xxxxxxxx\")Set objWshShell = Nothing 
Set objFileSys = NothingIF Err.Number = 0 THEN MsgBox "The add-ins have been uninstalled.", vbInformation, addInName 
ELSE MsgBox "An error has occurred." & vbCrLF & "If Excel is running, exit it.", vbExclamation, addInName 
End IF

这篇关于VBS Excel插件的安装与卸载的文章就介绍到这儿,希望我们推荐的文章对编程师们有所帮助!



http://www.chinasem.cn/article/1071179

相关文章

Linux系统中卸载与安装JDK的详细教程

《Linux系统中卸载与安装JDK的详细教程》本文详细介绍了如何在Linux系统中通过Xshell和Xftp工具连接与传输文件,然后进行JDK的安装与卸载,安装步骤包括连接Linux、传输JDK安装包... 目录1、卸载1.1 linux删除自带的JDK1.2 Linux上卸载自己安装的JDK2、安装2.1

Linux卸载自带jdk并安装新jdk版本的图文教程

《Linux卸载自带jdk并安装新jdk版本的图文教程》在Linux系统中,有时需要卸载预装的OpenJDK并安装特定版本的JDK,例如JDK1.8,所以本文给大家详细介绍了Linux卸载自带jdk并... 目录Ⅰ、卸载自带jdkⅡ、安装新版jdkⅠ、卸载自带jdk1、输入命令查看旧jdkrpm -qa

java中使用POI生成Excel并导出过程

《java中使用POI生成Excel并导出过程》:本文主要介绍java中使用POI生成Excel并导出过程,具有很好的参考价值,希望对大家有所帮助,如有错误或未考虑完全的地方,望不吝赐教... 目录需求说明及实现方式需求完成通用代码版本1版本2结果展示type参数为atype参数为b总结注:本文章中代码均为

MySQL Workbench 安装教程(保姆级)

《MySQLWorkbench安装教程(保姆级)》MySQLWorkbench是一款强大的数据库设计和管理工具,本文主要介绍了MySQLWorkbench安装教程,文中通过图文介绍的非常详细,对大... 目录前言:详细步骤:一、检查安装的数据库版本二、在官网下载对应的mysql Workbench版本,要是

利用Python开发Markdown表格结构转换为Excel工具

《利用Python开发Markdown表格结构转换为Excel工具》在数据管理和文档编写过程中,我们经常使用Markdown来记录表格数据,但它没有Excel使用方便,所以本文将使用Python编写一... 目录1.完整代码2. 项目概述3. 代码解析3.1 依赖库3.2 GUI 设计3.3 解析 Mark

Linux安装MySQL的教程

《Linux安装MySQL的教程》:本文主要介绍Linux安装MySQL的教程,具有很好的参考价值,希望对大家有所帮助,如有错误或未考虑完全的地方,望不吝赐教... 目录linux安装mysql1.Mysql官网2.我的存放路径3.解压mysql文件到当前目录4.重命名一下5.创建mysql用户组和用户并修

pip无法安装osgeo失败的问题解决

《pip无法安装osgeo失败的问题解决》本文主要介绍了pip无法安装osgeo失败的问题解决,文中通过示例代码介绍的非常详细,对大家的学习或者工作具有一定的参考学习价值,需要的朋友们下面随着小编来一... 进入官方提供的扩展包下载网站寻找版本适配的whl文件注意:要选择cp(python版本)和你py

Android App安装列表获取方法(实践方案)

《AndroidApp安装列表获取方法(实践方案)》文章介绍了Android11及以上版本获取应用列表的方案调整,包括权限配置、白名单配置和action配置三种方式,并提供了相应的Java和Kotl... 目录前言实现方案         方案概述一、 androidManifest 三种配置方式

Java利用poi实现word表格转excel

《Java利用poi实现word表格转excel》这篇文章主要为大家详细介绍了Java如何利用poi实现word表格转excel,文中的示例代码讲解详细,感兴趣的小伙伴可以跟随小编一起学习一下... 一、每行对象类需要针对不同的表格进行对应的创建。package org.example.wordToEx

利用Python实现添加或读取Excel公式

《利用Python实现添加或读取Excel公式》Excel公式是数据处理的核心工具,从简单的加减运算到复杂的逻辑判断,掌握基础语法是高效工作的起点,下面我们就来看看如何使用Python进行Excel公... 目录python Excel 库安装Python 在 Excel 中添加公式/函数Python 读取