VBProject.References引用列表．

ningyong58

http://club.excelhome.net/thread-75329-1-1.html
[拾遗补缺]WORD VBPROJECT 引用列表与示例

序        引用名称
1        VBA
2        Word
3        stdole
4        Normal
5        Office
6        Excel
7        ADODB
8        MSForms
9        VBIDE
附件详见原帖．
请问：各位大侠的问题是，如何将自己已经编好的程序的引用列表，用VBA做成列表．如守柔版主的列表一样．谢谢

ningyong58

再学一遍这个帖子．
http://club.excelhome.net/viewth ... p;extra=&page=1
五、引用项目
1．增加引用
  ThisWorkbook.VBProject.References.AddFromFile "C:\Windows\System32\asctrls.ocx"
2．取消引用
  ThisWorkbook.VBProject.References.Remove ThisWorkbook.VBProject.References("ASControls")
这里ASControls是引用的名字，即后面的rf.Name。
3．显示当前所有引用
Sub ShowRefs()
  Dim rf As VBIDE.Reference
  For Each rf In ThisWorkbook.VBProject.References
    Debug.Print rf.Name, rf.FullPath
  Next
End Sub

ningyong58

Sub ShowRefs()
  Dim rf As VBIDE.Reference
  For Each rf In ThisWorkbook.VBProject.References
    Debug.Print rf.Name, rf.FullPath
  Next
End Sub
-----------
结果：如下．
VBA           C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6.DLL
Excel         D:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE
stdole        C:\WINDOWS\system32\stdole2.tlb
Office        C:\Program Files\Common Files\Microsoft Shared\OFFICE11\MSO.DLL
VBIDE         C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6EXT.OLB
ADODB         C:\Program Files\Common Files\system\ado\msado15.dll
VBScript_RegExp_55          C:\WINDOWS\system32\vbscript.dll\3
msvbvm60.dll是个复杂的东西，他里面不但封装了很多API,也有很多类。但不是每一个类在程序中的应用的上，为了节省资源，所以对类进行了分组。比如msvbvm60.dll\0这个组保存了控件类（按钮，文本框等），msvbvm60.dll\3这个类保存了的vb绝大部分的函数。   
http://topic.csdn.net/t/20061110/15/5148644.html#


Word          D:\Program Files\Microsoft Office\OFFICE11\MSWORD.OLB

还有一个问题，在这个机器Excel和Word在D盘，如何知道另一个机器的Excel和Word的引用项目在哪里?需要在硬盘用文件搜索命令查找???

---------------

1. Sub ShowRefs()
   
2.   Dim rf As VBIDE.Reference
   
3.   kk = 2
   
4.   For Each rf In ThisWorkbook.VBProject.References
   
5.     With rf
   
6.       Sheet1.Cells(kk, 1) = .Name
   
7.       Sheet1.Cells(kk, 2) = .FullPath
   
8.       kk = kk + 1
   
9.     End With
   
10.   Next
    
11. End Sub
    
12. Sub noShowRefs()
    
13.   Dim rf As VBIDE.Reference, Str As String
    
14.   'kk = 2
    
15.   On Error Resume Next
    
16.   With Sheet1
    
17.     nn1 = .Range("J2").End(xlDown).Row
    
18.     nn2 = .Range("J65536").End(xlUp).Row
    
19.     For kk = nn1 To nn2
    
20.       Str = .Cells(kk, 10)
    
21.       ThisWorkbook.VBProject.References.Remove ThisWorkbook.VBProject.References(Str)
    
22.     Next kk
    
23.   End With
    
24. End Sub
    
25. Sub AddRefs()
    
26.   Dim rf As VBIDE.Reference, Str As String
    
27.   'kk = 2
    
28.   On Error Resume Next
    
29.   With Sheet1
    
30.     nn1 = .Range("K2").End(xlDown).Row
    
31.     nn2 = .Range("K65536").End(xlUp).Row
    
32.     For kk = nn1 To nn2
    
33.       Str = .Cells(kk, 11)
    
34.       ThisWorkbook.VBProject.References.AddFromFile Str
    
35.     Next kk
    
36.   End With
    
37. End Sub

复制代码

[ 本帖最后由 ningyong58 于 2010-4-14 08:16 编辑 ]

沃子树

学习了好东西

dustgz2011

mark..........

dragonet16

很有帮助{:soso_e179:}

硅谷少年

ThisWorkbook.VBProject.References.Remove (ThisWorkbook.VBProject.References("Outlook"))
感谢，照葫芦画瓢，上面代码亲测可用。

鄂龙蒙

ningyong58 发表于 2010-4-13 20:27
Sub ShowRefs()
  Dim rf As VBIDE.Reference
  For Each rf In ThisWorkbook.VBProject.References

请教：VBA项目引用列表中没有的，通过浏览窗口添加进去的，为什么重新打开工作薄又不见了呢？怎么处理？谢谢！