[已解决]请问，加载宏的列表内容是否在Windows注册表里有相关键啊？

mansohu

请问，加载宏的列表内容是否在Windows注册表里有相关键啊？

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-9-1 21:38

1. Sub ListAddins()
   
2. '列出加载宏
   
3.     Dim objAddin As Object
   
4.     Dim arr, i As Byte
   
5. 
   
6.     ReDim arr(1 To Application.AddIns.Count, 1 To 6)
   
7. 
   
8.     On Error GoTo ErrorHandler
   
9. 
   
10.     For Each objAddin In Application.AddIns
    
11.         i = i + 1
    
12.         With objAddin
    
13.             arr(i, 1) = .Name
    
14.             arr(i, 2) = .FullName
    
15.             arr(i, 3) = .Installed
    
16.             arr(i, 4) = .IsOpen
    
17.             arr(i, 5) = .progID
    
18.             arr(i, 6) = .CLSID
    
19.         End With
    
20.     Next
    
21. 
    
22.     Worksheets.Add
    
23.     Range("a2").Resize(i, UBound(arr, 2)) = arr
    
24.     Range("a1").Resize(, UBound(arr, 2)) = Array("Name", "FullName", "Installed", "IsOpen", "progID", "CLSID")
    
25.     With ActiveSheet.UsedRange
    
26.         .EntireColumn.AutoFit
    
27.         .HorizontalAlignment = xlCenter
    
28.     End With
    
29. 
    
30.     MsgBox "加载项提取完成"
    
31.     Exit Sub
    
32. 
    
33. ErrorHandler:
    
34.     MsgBox Err.Number & vbCrLf & _
    
35.            Err.Description
    
36.     Resume Next
    
37. End Sub
    

复制代码

跳转到最佳答案楼层

hwc2ycy

你在注册表里搜索下嘛。

hwc2ycy

COM加载项的是有，加载项的我没去找过

hwc2ycy

hwc2ycy

COM加载项

mansohu

hwc2ycy 发表于 2013-9-1 20:23
COM加载项

我用的是03，我看了一下，我加载的两个xla，只有一个在注册表里，是否这里只记载用“浏览”加载的加载项，而用VBA代码加载的，就不记录在这里呢？

hwc2ycy

你发你加载的代码瞧瞧。

mansohu

hwc2ycy 发表于 2013-9-1 20:38
你发你加载的代码瞧瞧。

    If ActiveSheet Is Nothing Then Workbooks.Add
    err.Clear
    AddIns.Add FileName:=Wkpath & PlugName
    AddIns(摘要标题).Installed = True

hwc2ycy

摘要标题是啥啊

mansohu

hwc2ycy 发表于 2013-9-1 20:53
摘要标题是啥啊

文件的摘要中的标题