找不到

ddz79101

老师，老的工作簿中有方框中的adobe acrobat 10.0 type library，但我打开心工作簿想引用此空间时，却没有。怎么回事，怎么加入

ddz79101

老师！可以帮忙看看吗，同台电脑同个版本，只是1个为新增工作簿想引用此空间，却没有

ddz79101

ddz79101 发表于 2024-12-22 15:24
老师！可以帮忙看看吗，同台电脑同个版本，只是1个为新增工作簿想引用此空间，却没有

像找解决办法，网上找了几个小时，也没有找到

sj15627581616

ActiveWork

1. Type Structure
   
2.     Name        As String
   
3.     Guid        As String
   
4.     Major       As String
   
5.     Minor       As String
   
6.     Type        As String
   
7.     Description As String
   
8.     FullPath    As String
   
9. End Type
   
10. Function References()
    
11.     Dim DllCount As Long
    
12.     Dim arr() As Structure
    
13.     DllCount = ActiveWorkbook.VBProject.References.Count
    
14.     ReDim arr(1 To DllCount)
    
15.     For Each Refed In ActiveWorkbook.VBProject.References '遍历活动工作簿加载信息
    
16.         i = i + 1
    
17.         arr(i).Name = Refed.Name
    
18.         arr(i).Guid = Refed.Guid
    
19.         arr(i).Major = Refed.Major
    
20.         arr(i).Minor = Refed.Minor
    
21.         arr(i).Type = Refed.Type
    
22.         arr(i).Description = Refed.Description
    
23.         arr(i).FullPath = Refed.FullPath
    
24.     Next
    
25.     References = arr
    
26. End Function

复制代码

    没有测试环境，不过已加载的工作簿里面先拿到相关信息，然后在新工作簿用ActiveWorkbook.VBProject.References.AddFromGuid 加载你想要加载的dll

ykcbf1100

正常情况下没有你那个东东的。

ddz79101

ykcbf1100 发表于 2024-12-22 17:01
正常情况下没有你那个东东的。

谢谢老师！解决了！最后狸猫换太子，用可以使用控件的工作簿全替换和重装软件