找不到VBIDE这个引用，请高手指教！谢谢！

hustnzj

1. Sub Delete_Broken_Reference()
   
2. 'Here we assume that a reference is made to the Microsoft Visual Basic for Applications Extensibility 5.3 library
   
3. 
   
4. Dim VBReferens As VBIDE.Reference
   
5. Dim VBProjekt As VBIDE.VBProject
   
6. Dim stBook As String
   
7. 
   
8. stBook = Workbooks("Test.xls").Name
   
9. 
   
10. Set VBProjekt = Workbooks(stBok).VBProject
    
11. 
    
12. For Each VBReferens In VBProjekt.References
    
13. If VBReferens.IsBroken Then VBProjekt.References.Remove VBReferens
    
14. Next VBReferens
    
15. 
    
16. End Sub

复制代码

这段代码一运行就会出现“用户定义类型未定义”的提示，查了下，发现应该是VBE的引用中没有引用VBIDE，但我找不到这个引用啊？请高手指点！非常感谢！

liuguansky

Microsoft Visual Basic for Applications Extensibility 5.3 library


找这个。

liucqa

在thisworkbook加上

Private Sub Workbook_Open()
    For n = 1 To ThisWorkbook.VBProject.References.Count
        If ThisWorkbook.VBProject.References.Item(n).GUID = "{0002E157-0000-0000-C000-000000000046}" Then Exit Sub
    Next
    ThisWorkbook.VBProject.References.AddFromGuid "{0002E157-0000-0000-C000-000000000046}", 5, 3    '版本5.3
End Sub

hustnzj

liuguansky 发表于 2011-8-30 09:48
Microsoft Visual Basic for Applications Extensibility 5.3 library

多谢大侠指点，找到了，呵呵。。。

hustnzj

liucqa 发表于 2011-8-30 10:05
在thisworkbook加上

Private Sub Workbook_Open()

liucqa朋友的代码给我很大的启发，能否指教下如何使用代码列出VBE的”引用“中所有”可使用引用“的GUID，谢谢！

liuguansky

Reference看下它的属性。

hustnzj

liuguansky 发表于 2011-8-30 15:33
Reference看下它的属性。

不是太明白高手的意思。。这个？

liuguansky

hustnzj 发表于 2011-8-31 08:23
不是太明白高手的意思。。这个？

hustnzj

liuguansky 发表于 2011-8-31 08:55

多谢高手。。。
这样做？这样只能得到此工程中已经勾上的引用，我想有没有办法一下子得到VBE引用编辑器中的所有引用（不管有没有勾上）的GUID。。。

1. Sub All_Reference_list()
   
2.     For n = 1 To ThisWorkbook.VBProject.References.Count
   
3.      Cells(n, 1).Value = ThisWorkbook.VBProject.References.Item(n).GUID
   
4.    Next
   
5. End Sub

复制代码

conddoo

好东西，有帮助，学习过