我们在进行VBA编程的时偶尔会需要添加引用,那么如何用代码添加引用呢下面我们来探讨一下。
首先查看一下我们都使用了那些引用
打开VBA选择选择工具
菜单
选择引用
菜单
查看引用项目
我们发现有四个引用项。
用代码查看我们的引用项
运行下面代码
Private Sub Vba_referance()
‘遍历所有已使用的引用
Dim i As Integer
i = 2
With Sheet1
For Each refed In ThisWorkbook.VBProject.References
.Cells(i, 1) = refed.Name
.Cells(i, 2) = refed.GUID
.Cells(i, 3) = refed.Major
.Cells(i, 4) = refed.Minor
i = i + 1
Next
End With
End Sub
会在sheet1页面上列出我们的引用项
可以看出这些项和我们的引用项是一一对应的。
查询要引用项的代码
选择我们需要的引用
以selenium 引用为例
选择并确认。
运行该才的代码
我们发现现在比以前增加了一项Selenium
引用项。
这就是我们想要引用的Selenium
的相关参数。
取消Selenium Type Library
引用。
去掉对Selenium Type Library
对勾,取消对Selenium Type Library
的引用并确认。
运行代码加载引用
运行一下代码
Sub AddSeleniumReferance() On Error Resume Next Dim oRef Set oRef = ThisWorkbook.VBProject.References.AddFromGuid(“{0277FC34-FD1B-4616-BB19-A9AABCAF2A70}”, 2, 0) End Sub
{0277FC34-FD1B-4616-BB19-A9AABCAF2A70},2,0为我们刚查询到的参数。
查看运行结果
以上就是用代码实现对引用的加载,欢迎交流 [email protected]