[分享]轻松的自动卸载与添加加载宏

ldy

原帖由 holywilly 于 2010-2-27 17:05 发表
老大， 我加载宏里有一个没有名称的加载宏，看着不爽，怎么去掉啊。如图第一个。

可能是 dll 加载宏，试一下用Progid  删除

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Sub ClearAddinfor_Progid()
    prgid = "xxxxxx" '要清除的加载宏的Progid  修改为你要删除的 id 就是图片中显示的 IAS xxxx  .1
    s1 = AddIns.Add(prgid).FullName  '加载宏的绝对路径
    sPath = AddIns.Add(prgid).Path '加载宏所在文件夹
    ars = Split(s1, "\")
    ars(UBound(ars)) = "已清除" & ars(UBound(ars))
    s2 = Join(ars, "\") '重命名
    AddIns.Add(prgid).Installed = False '去掉勾,郁闷的是AddIns集合也没提供Remonve方法
    Name s1 As s2 ' 执行重命名
  'API函数打加载宏所在文件夹，看看到底在哪
   ShellExecute 0, "Open", sPath, "", "", 1
End Sub

运行完程序后再用手工勾选，就会出现清楚对话框

lwzh92

事先不知道加载宏的绝对路径和所在文件夹怎么去掉名称（不只是去勾）？
就是看到加载宏中有加载宏名称（残余）想把它的去掉！！！

ldy

原帖由 lwzh92 于 2010-3-3 16:42 发表
事先不知道加载宏的绝对路径和所在文件夹怎么去掉名称（不只是去勾）？
就是看到加载宏中有加载宏名称（残余）想把它的去掉！！！

运行1楼代码，然后在手工勾选

chuhaiou

要是自动加载PPA呢？

donejos

东西不错啊，很值得一挺啊

lonelywoll

找了半天，终于找到了~帮了我一个大忙！谢啦！

120HYH

给顶一个！

fanghaiyu

記號，記號

goldowl2011

收藏，学习一下，很有用。

walle666

学习了，谢谢