
1、直接打开VB的主界面,在Project菜单那里选择References跳转。
2、下一步d出新的对话框,需要根据实际情况进行设置并点击OK。
3、这个时候如果没问题,就继续通过图示菜单确定Command2。
4、这样一来等利用F5单步调试以后会得到相关结果,即可达到目的了。
1、首先是在excle软件中找到“开发工具”-》Visual Basic。
2、进入代码区。
4、然后在顶部找到工具栏。
5、然后右键单击,选择“编辑”。
6、然后找到注释代码块。
7、点击之后,我们发现我们刚才选中的代码块就被注释掉了。
Sub Grab_References()Dim n As Integer
'On Error Resume Next
For n = 1 To ThisWorkbook.VBProject.References.Count
Cells(n, 1) = ThisWorkbook.VBProject.References.Item(n).Name
Cells(n, 2) = ThisWorkbook.VBProject.References.Item(n).Description
Cells(n, 3) = ThisWorkbook.VBProject.References.Item(n).GUID
Cells(n, 4) = ThisWorkbook.VBProject.References.Item(n).Major
Cells(n, 5) = ThisWorkbook.VBProject.References.Item(n).Minor
Cells(n, 6) = ThisWorkbook.VBProject.References.Item(n).fullpath
Next n
End Sub
勾选需要引用的库
先用这个代码获取库的路径
然后去掉勾选
用下面的代码实现自动勾选
ThisWorkbook.VBProject.References.AddFromFile "fullpath"
fullpath 替换成你需要引用的库的 地址
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)