用代码添加引用之前如何用代码先判断是否已经添加了该引用？

作者：绿色风分类：时间：2022-08-17 浏览：96

楼主
水星钓鱼

Q：由于要对VBE对象的访问，一般都会要求手动添加“Microsoft Visual Basic for Applications Extensibility 5.3”的引用，当用代码添加这个引用时，如果代码要重复执行，则再次用代码添加这个引用时会出错，如何用代码先判断是否已经添加了VBE的引用？
A：可以使用错误处理程序，代码如下：

Sub xyf()
On Error Resume Next
'如果没有添加VBE的引用，下面这条语句会出现“下标越界的错误，错误号为9”
Debug.Print ThisWorkbook.VBProject.References("VBIDE").Name
If Err.Number = 9 Then
ThisWorkbook.VBProject.References.AddFromFile "C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6EXT.OLB"
Resume
End If
'接下来写主体代码
End Sub

2楼
omnw

思路很好，可以避免出现错误。

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表