Question

vba编程，怎么用代码的方式添加对象库？我知道通过"工具"~“引用”~在想要的对象库上打钩 可以

vba编程，怎么用代码的方式添加对象库？我知道通过"工具"~“引用”~在想要的对象库上打钩 可以添加。我是用powerpoint做的，我想让幻灯片的拷贝更方便一些，求助大神O(∩_∩)O

Answer 1

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 替换成你需要引用的库的 地址

追问

哇塞！好棒。大致明白了，不过因为我周日才刚刚接触到vb和vba，所以理解还有些问题，我晚上回去试试，不懂的话再问你好不好？真是太感谢了！膜拜你。我准备上电脑给你加悬赏，想要多少？我随便给你。

追答

不懂再问，分数 你随意给好了，这个倒无所谓的

追问

你之前的那个获取path的方法我没看懂，但是我用注册表的方法获取了，你的最后一个语句非常好用，再次感谢

还有个问题，我在ppt中插入了一个excel对象，在怎么在vba里通过excel.application引用？

追答

你这个问题没太明白 +Q191180776 说吧