vba动态添加引用的两种方法

sunny_8848

很好的帖子，多谢楼主共享

appleftg

mark   ，找到了，学习下，感谢

appleftg

mark   ，找到了，学习下，感谢

lcjy11185

为什么我得不到引用的。以上两个都不行。我的版本是2010ps ,原来要打开信任对VBA工程对象模型的访问。

sunny_8848

citypanther 发表于 2011-6-10 00:04
这样的dll是不是需要先进行注册才能用这种方法？ 如果需要注册的话还是比较麻烦的。

请教，自己编写的。如果采用上述方法，DLL名称是否要加上路径和扩展名？

SWKJMEQ

回复楼上，安装注册dll后，应用是不用加上路径和扩展名的，如
dim obj As Object
Set obj = CreateObject("DLL名.类名")
obj.过程名(参数1，2，3)
Set obj = nothing

sunny_8848

SWKJMEQ 发表于 2016-12-17 20:36
回复楼上，安装注册dll后，应用是不用加上路径和扩展名的，如
dim obj As Object
Set obj = CreateObject ...

谢谢您的帮助

sunny_8848

baomaboy 发表于 2011-6-9 07:50
谢谢楼主分享，贴上以前收集的一篇类似文章，仅供参考。

一直卡在自动注册这一步上，期待您的经验分享。上面提供的链接打不开了

SWKJMEQ

“一直卡在自动注册这一步上”，怎么个应用情况呢？

算命先生kaven

我根据这段代码做了个小小的修改，想解决丢失Microsoft Windows Common Controls 6.0 (SP6)的问题，但好象没有效果。代码运行是没有问题的，我试过，但运行后还是丢失。

下面是我修改的代码：
Private Sub aas()

    '遍历所有已使用的引用

    Dim g        As Integer
    Dim Ref()
        
    g = 1
    Set refed = ThisWorkbook.VBProject.References
    ReDim Ref(refed.Count, 4)
     
   
    For f = 1 To refed.Count
        With refed.Item(f)
            Ref(f - 1, 1) = .Name
            Sheet2.Cells(f, 1) = Ref(f - 1, 1)
            Ref(f - 1, 2) = .GUID
            Sheet2.Cells(f, 2) = Ref(f - 1, 2)
            Ref(f - 1, 3) = .Major
            Sheet2.Cells(f, 3) = Ref(f - 1, 3)
            Ref(f - 1, 4) = .Minor
            Sheet2.Cells(f, 4) = Ref(f - 1, 4)
        End With
        'f = f + 1
    Next
      
    For g = refed.Count To 1 Step -1
        Set theRef = refed.Item(g)
        If theRef.IsBroken = True Then
            refed.Remove theRef
        End If
    Next g
   
    Err.Clear
   
    Dim errmsg As String
    For g = 0 To f - 1
        refed.AddFromGuid GUID:=Ref(g, 2), Major:=Ref(g, 3), Minor:=Ref(g, 4)
        Select Case Err.Number
            Case Is = 32813
                '引用已经加载，无需做任何事情
            Case Is = vbNullString
                '成功加载
            Case Else
                '加载出现错误，保存错误信息
            errmsg = errmsg & Ref(g, 0) & "出现错误错误"
        End Select
    Next g
    If errmsg <> "" Then
        MsgBox errmsg
    End If
    On Error GoTo 0
   
    Exit Sub

ERRHandle:
    MsgBox (Err.Description & "加载失败，请联系管理员!")
   
End Sub

请高手指点一二，不胜感激。