为了还原一个干净无侵扰的网络世界,本文将不进行大规模地分发,若您觉得此文有用,不妨小范围地分享到真正有需要的人手中
功能概述
修复ExcelCom加载项常见问题,如每次需重新勾选COM加载项或COM加载项被列入禁用清单中不用使用,同时也提供让WPS计用COM加载项的方法
使用场景
因用户在使用COM技术开发的加载项过程中,难免各种意外操作,致使加载项处理非活动状态或失效状态,虽然可以通过界面的方式去解决,但步骤偏多,对普通用户来说,较难以去理解及操作,将其封装成一个exe文件,让用户自行双击运行解决是个不错的解决方案,本篇代码也是为这个功能场景而开发的。
技术原理
其实COM加载项的活动与否、禁用与否,都会在注册表上写上相关信息,只需从注册表层面对用户电脑的注册表项进行修改,即可实现非Excel界面操作的方式实现自动化修复插件。
WPS调用COM加载项原理,也只是在注册表上新增几个条目,让WPS可以通过查找注册表,找到COM加载项所在位置并调用它。
详细代码
using Microsoft.Win32;
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
namespace 插件修复程序
{
class Program
{
private static string addinsKeyWords = "Excel催化剂";//可以模糊查找注册表里含此关键字的条目
static void Main(string[] args)
{
ExcelRepair();
Console.WriteLine("修复完成,请按任意键退出!");
Console.ReadKey();
}
private static void ExcelRepair()
{
//TODO:检查禁用项
CheckDisalbledItem();
//TODO:检查Addin注册表
CheckRegister();
//增加WPS可识别VSTO插件的方法,具体需要看真正安装后的注册表路径及项目名称是什么而定。
LetWPSRunAddins();
}
private static void CheckDisalbledItem()
{
string keypath = @"Software\Microsoft\Office"; //\15.0\Excel\Resiliency\DisabledItems
RegistryKey key = Registry.CurrentUser.OpenSubKey(keypath, true);
FindAndDeleteDisabledItems(key, "DisabledItems", addinsKeyWords);
}
public static void CheckRegister()
{
RegistryKey key = Registry.CurrentUser;
RegistryKey addins = key.OpenSubKey(@"Software\Microsoft\Office\Excel\Addins", true);
foreach (var item in addins.GetSubKeyNames())
{
if (item.ToUpper().Contains(addinsKeyWords.ToUpper()))
{
var addin = addins.OpenSubKey(item, true);
addin.SetValue("LoadBehavior", "3", RegistryValueKind.DWord);//将启动方式改为3,即Excel打开时立即运行插件
}
}
}
private static void LetWPSRunAddins()
{
RegistryKey key = Registry.CurrentUser;
RegistryKey addins = key.OpenSubKey(@"Software\Microsoft\Office\Excel\Addins", true);
var wps = key.CreateSubKey(@"Software\Kingsoft\Office\ET\AddinsWL");
wps.SetValue("Excel催化剂工作室.Excel催化剂", "Excel催化剂工作室.Excel催化剂", RegistryValueKind.String);
wps.SetValue("Excel催化剂", "Excel催化剂", RegistryValueKind.String);
wps.SetValue("Excel催化剂工作室.Excel催化剂离线版", "Excel催化剂工作室.Excel催化剂离线版", RegistryValueKind.String);
}
/// <summary>
/// 查找指定项指定内容
/// </summary>
/// <param name="key"></param>
/// <param name="subkeyname">这里是禁用项的名称</param>
/// <param name="deleteStr">自己插件的名称</param>
private static void FindAndDeleteDisabledItems(RegistryKey key, string subkeyname, string deleteStr)
{
if (key.Name.Contains(subkeyname))
{
for (int i = 0; i < key.ValueCount; i++)
{
try
{
foreach (var item in key.GetValueNames().Where(s => Encoding.Unicode.GetString((byte[])key.GetValue(s)).ToUpper().Contains(deleteStr.ToUpper())))
{
key.DeleteValue(item);
}
}
catch (Exception ex)
{
continue;
}
}
return;
}
if (key.SubKeyCount > 0)
{
foreach (var item in key.GetSubKeyNames())
{
try
{
FindAndDeleteDisabledItems(key.OpenSubKey(item, true), subkeyname, deleteStr);
}
catch (Exception ex)
{
continue;
}
}
}
}
}
}
开源地址为:https://github.com/minren118/ExcelUdfByExcelCuiHuaJi,不妨对您有帮助时帮忙在GtiHub上点个赞。
登录Github后点击红框给个星星
技术交流QQ群
QQ群名:Excel催化剂开源讨论群, QQ群号:788145319
Excel催化剂开源讨论群二维码
关于Excel催化剂
Excel催化剂先是一微信公众号的名称,后来顺其名称,正式推出了Excel插件,插件将持续性地更新,更新的周期视本人的时间而定争取一周能够上线一个大功能模块。Excel催化剂插件承诺个人用户永久性免费使用!
Excel催化剂插件使用最新的布署技术,实现一次安装,日后所有更新自动更新完成,无需重复关注更新动态,手动下载安装包重新安装,只需一次安装即可随时保持最新版本!
Excel催化剂插件下载链接:https://pan.baidu.com/s/1Iz2_NZJ8v7C9eqhNjdnP3Q
联系作者
公众号
取名催化剂,因Excel本身的强大,并非所有人能够立马享受到,大部分人还是在被Excel软件所虐的阶段,就是头脑里很清晰想达到的效果,而且高手们也已经实现出来,就是自己怎么弄都弄不出来,或者更糟的是还不知道Excel能够做什么而停留在不断地重复、机械、手工地在做着数据,耗费着无数的青春年华岁月。所以催生了是否可以作为一种媒介,让广大的Excel用户们可以瞬间点燃Excel的爆点,无需苦苦地挣扎地没日没夜的技巧学习、高级复杂函数的烧脑,最终走向了从入门到放弃的道路。
最后Excel功能强大,其实还需树立一个观点,不是所有事情都要交给Excel去完成,也不是所有事情Excel都是十分胜任的,外面的世界仍然是一个广阔的世界,Excel只是其中一枚耀眼的明星,还有其他更多同样精彩强大的技术、工具等。*Excel催化剂也将借力这些其他技术,让Excel能够发挥更强大的爆发!
关于Excel催化剂作者
姓名:李伟坚,从事数据分析工作多年(BI方向),一名同样在路上的学习者。
服务过行业:零售特别是鞋服类的零售行业,电商(淘宝、天猫、京东、唯品会)
技术路线从一名普通用户,通过Excel软件的学习,从此走向数据世界,非科班IT专业人士。
历经重重难关,终于在数据的道路上达到技术平原期,学习众多的知识不再太吃力,同时也形成了自己的一套数据解决方案(数据采集、数据加工清洗、数据多维建模、数据报表展示等)。
擅长技术领域:Excel等Office家族软件、VBA&VSTO的二次开发、Sqlserver数据库技术、Sqlserver的商业智能BI技术、Powerbi技术、云服务器布署技术等等。
2018年开始职业生涯作了重大调整,从原来的正职工作,转为自由职业者,暂无固定收入,暂对前面道路不太明朗,苦重新回到正职工作,对Excel催化剂的运营和开发必定受到很大的影响(正职工作时间内不可能维护也不可能随便把工作时间内的成果公布于外,工作外的时间也十分有限,因已而立之年,家庭责任重大)。
和广大拥护者一同期盼:Excel催化剂一直能运行下去,我所惠及的群体们能够给予支持(多留言鼓励下、转发下朋友圈推荐、小额打赏下和最重点的可以和所在公司及同行推荐推荐,让我的技术可以在贵司发挥价值,实现双赢(初步设想可以数据顾问的方式或一些小型项目开发的方式合作)。
原文地址:https://www.cnblogs.com/ExcelCuiHuaJi/p/10213573.html