在不更改对象类型的情况下将早期绑定转换为后期绑定

Question

这似乎是一个简单的问题，但我在论坛追了几个小时后，我认为这可能是不可能的。

我经常想将程序从早期绑定转换为后期绑定。通常，它是一个 vba、Visual Basic 应用程序、在 Excel 2010 和 windows 7 pro 下运行的程序。

出于讨论的目的，我们假设它是以下内容。

Sub EarlyBind()
   ' use IDE > Tools > references > and select “Microsoft Internet Controls”
     Dim shellWins1 as shdocvw.shellwindows
Line1:      Set shellWins1 = New SHDocVw.ShellWindows
      MsgBox TypeName(shellWins1) ' this will display “IShellWindows”
      ' other code that expects to be working with an IshellWindows object …..
 End Sub

根据我的经验，将这样的程序转换为后期绑定有时很困难。

例如，我发现一些论坛建议我将其更改为

Set shellwins1 = createobject("Shell.applicaton")

但这会创建一个 IShellDispatch5 对象，而不是 IshellWindows 对象。这意味着我必须更改其他代码以适应新的对象类型。当然，我必须测试其他代码是否存在细微差别。

所以，我的目标是找到一个通用解决方案，让我可以重写“Line1”以创建具有后期绑定的正确对象类型。我还希望避免设置对“Microsof Internet Controls”的引用。换句话说，我希望代码如下所示： 子后期绑定()

Dim shellWins1 as object

Line1:      Set shellWins1 = createobject(“xxxxxx.yyyyyy”).zzzzzz

 MsgBox TypeName(shellWins1) ‘ this should display “IShellWindows”

  …..  other code that expects to be working with an IshellWindows object …..

End Sub

我知道如何使用 vba IDE 来查找与对象关联的 dll。在这种情况下，dll 是 Library SHDocVw C:\Windows\SysWOW64\ieframe.dll。

我已经安装了 OleView，并且可以找到与 clsId、TypeLib 和接口相关的 IshellWindows“幻数”（例如接口是 85CB6900-4D95-11CF-960C-0080C7F4EE85）。

但是，我不知道如何将它们转换为可以在上面发布的示例代码中的 line1 中使用的程序 id。

我希望这里有人可以提供帮助。 ------ 在 MeHow 的帮助下，我现在有了答案！ ------

将“set myObj = new xxxx.yyyyy”切换为任意对象类型的后期绑定

Change  set myObj = new xxxx.yyyyy
into    set myObj = CreateObject("xxxx.yyyyy")

这通常会奏效。

但是，在某些情况下，（例如“shDocVw.ShellWindows。”）它会给出错误 429 ActiveX 组件无法创建。

当这种情况发生时，我完全不走运。不可能对那个 EXACT 对象类使用后期绑定。相反，我必须找到一个替代类来做大致相同的事情。 （例如“Shell.Application”）。

Answer 1

你的简短回答是

IShellWindows is an interface.

它

提供对打开的 Shell 窗口集合的访问。

因此

---

看看CreateObject() method。

注意：

创建并返回对 COM 对象的引用。 CreateObject 不能 用于在 Visual Basic 中创建类的实例，除非那些 类被显式公开为 COM 组件。

IShellWindows 没有作为 COM 组件公开，因此无法说 CreateObject("SHDocVw.IShellWindows")

---

当您打开注册表 (regedit) 并搜索 key 时，请输入 IShellWindows。如果您找到任何东西，这意味着您已经找到了您的 Prog ID，并且如果您没有找到任何东西，则意味着没有像 IShellWindows 这样的东西被注册为 prog Id，因此假设您可以不要迟到绑定IShellWindows

Answer 2

我遇到了你的问题，试图为自己找到一些东西。但不知道你有没有试过以下方法——

Set shellwins1 = createobject("Shell.Application")
MsgBox TypeName(shellWins1.Windows)

这回答了您关于数据类型的问题。它为我打印 IShellWindows。我不确定它是否真的可以解决你后期绑定的目的，如果这将是所需的对象，尽管数据类型是你需要的。

所以，我建议你试一试。

Answer 3

https://www.experts-exchange.com/questions/28961564/How-to-find-the-class-id-of-an-arbitrary-object-Example-Set-x-CreateObject-New-1C3B4210-F441-11CE-B9EA-00AA006B1A69.html#a41743468 列出了一个稍微好一点的方法。