遍历VBA的引用集合，判断是否需要添加引用

liucqa

下面的程序检查 Microsoft visual basic for applications Extensibility 5.3 的引用
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

附上几个引用的Description和GUID

Visual Basic For Applications                                {000204EF-0000-0000-C000-000000000046}
Microsoft Excel 12.0 Object Library                       {00020813-0000-0000-C000-000000000046}
OLE Automation                                                 {00020430-0000-0000-C000-000000000046}
Microsoft Office 12.0 Object Library                      {2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}
Microsoft Forms 2.0 Object Library                        {0D452EE1-E08F-101A-852E-02608C4D0BB4}
Microsoft Visual Basic for Applications Extensibility 5.3 {0002E157-0000-0000-C000-000000000046}

guojianlin1985

这么做有什么意义？

livewire

guojianlin1985 发表于 2011-8-24 22:01
这么做有什么意义？

  代码中可以不出现   createobject 函数

写代码时 前期绑定，方便输入代码。
运行时，也是前期绑定，对效率性能有贡献。

wpxxsyzx

不错、不错，完善一下，遍历集合做一个所有引用的GUID列表供查阅。

guojianlin1985

要是不知道具体的版本怎么办？毕竟不是只有自己用，比如我们公司有2000 2003  2007  2010 不需要修改代码也能奏效？

liucqa

guojianlin1985 发表于 2011-8-25 12:19
要是不知道具体的版本怎么办？毕竟不是只有自己用，比如我们公司有2000 2003  2007  2010 不需要修改代码也 ...

GUID是程序的识别符，类似身份证，和引用的程序是一一对应的，只要你的机器里面有这个文件，就能引用成功，剩下的就是与office版本是否兼容了。一般来说，不特殊的文件都能在不同office之间通用

guojianlin1985

哦，谢谢啊，那用什么方法能获取guid呢？

liucqa

For n = 1 To ThisWorkbook.VBProject.References.Count
debug.print ThisWorkbook.VBProject.References.Item(n).GUID
next

遍历所有已经引用的GUID

shenjianrong163

谢谢，正需要这样的判断！