对象的前期绑定与后期绑定使用方法(CLSID-ProgID对照)

cbtaja

0031126 发表于 2017-2-25 11:41
运行出错了，请问是什么原因呢。

原因是：你的TLBINF32.DLL文件没有被注册成功。

具体一点说，在Win7或更高版本以上的系统中，注册DLL、OCX文件，必需以管理员身份执行，否则会注册不成功。

lsqypj

出现这个问题

yangyangzhifeng

API申明都改一下，例如
Private Declare Function ProgIDFromCLSID Lib "ole32.dll" (ByRef CLSID As Any, ByRef lplpszProgID As Long) As Long
改成：
Private Declare PtrSafe Function ProgIDFromCLSID Lib "ole32.dll" (ByRef CLSID As Any, ByRef lplpszProgID As Long) As Long

lsqypj

yangyangzhifeng 发表于 2018-12-20 06:28
API申明都改一下，例如
Private Declare Function ProgIDFromCLSID Lib "ole32.dll" (ByRef CLSID As Any, ...

时隔一年，又试了下代码，程序毅每次到行到 SysReAllocString VarPtr(strProgID), lpszProgID 崩溃，Excel完全退出，调试看了下变量lpszProgID的值是一个负的整数，请教下是什么原因。。
操作系统是win 10 64位，excel 2016 64位

182197315

请高手指点

LIUZHU

htmlfile这个CLSID对应的库文件不对，扩展名不是dll

一江春水1688

感谢楼主大神！

一江春水1688

LIUZHU 发表于 2021-7-28 17:06
htmlfile这个CLSID对应的库文件不对，扩展名不是dll

查看了htmlfile
没错呀

一江春水1688

研究了一下注册表，发现有个“VersionIndependentProgID”，微软的解释是：“将 ProgID 与 CLSID 相关联。 此值用于确定对象应用程序的最新版本。”

这个值应该很有用，当某个CLSID同时存在 ProgID 和 VersionIndependentProgID 时，写代码时应使用 VersionIndependentProgID
比如 {00000514-0000-0010-8000-00AA006D2EA4}，ProgID是ADODB.Connection.6.0，VersionIndependentProgID是ADODB.Connection，写代码时，下面两行都对：
Set myObjcet = CreateObject("ADODB.Connection.6.0")
Set myObjcet = CreateObject("ADODB.Connection")
理由参考微软的解释。

一江春水1688

花了点时间，消化了楼主大礼的代码，增添了几行代码，增加了从注册表提取VersionIndependentProgID值写入表格，代码如下，代码修改处用红色标注
奇怪？发布不了代码？

Private Function CLSIDDefaultValue(strCLSID$)
    Dim ret As Long
    Dim key As Long
    Dim key0 As Long
    Dim length As Long
    Dim temp$(0 To 2)
    ret = RegOpenKey(HKEY_CLASSES_ROOT, "CLSID", key)
    ret = RegOpenKey(key, strCLSID, key)
    key0 = key
    '先取数据区的长度
    ret = RegQueryValueEx(key, "", 0, 1, ByVal 0, length)
    '准备数据区
    If length > 0 Then
        Dim buff() As Byte
        ReDim buff(length - 1)
        '读取数据
        ret = RegQueryValueEx(key, "", 0, 1, buff(0), length)
'        Dim val As String
        '去掉末尾的空字符,VB不需要这个
        ReDim Preserve buff(length - 2)
        '转化为VB中的字符串
        temp(0) = StrConv(buff, vbUnicode)
    End If
    ret = RegOpenKey(key, "InprocServer32", key)
    ret = RegQueryValueEx(key, "", 0, 1, ByVal 0, length)
    If length > 0 Then
        
        ReDim buff(length - 1)
        '读取数据
        ret = RegQueryValueEx(key, "", 0, 1, buff(0), length)
        
        '去掉末尾的空字符,VB不需要这个
        ReDim Preserve buff(length - 2)
        '转化为VB中的字符串
        temp(1) = StrConv(buff, vbUnicode)
    End If
    ret = RegOpenKey(key0, "VersionIndependentProgID", key)
    ret = RegQueryValueEx(key, "", 0, 1, ByVal 0, length)
    If length > 0 Then
        
        ReDim buff(length - 1)
        '读取数据
        ret = RegQueryValueEx(key, "", 0, 1, buff(0), length)
        
        '去掉末尾的空字符,VB不需要这个
        ReDim Preserve buff(length - 2)
        '转化为VB中的字符串
        temp(2) = StrConv(buff, vbUnicode)
    End If
    CLSIDDefaultValue = temp
    RegCloseKey (key)
End Function

1. Option Explicit

复制代码