设置iDoc=IE.Document在VBA中给出运行时错误

Question

我遇到了一个奇怪的问题。我使用的是32位版本的IE 10。最终用户正在使用64位版本的IE10

对我来说，set iDoc = IE.Document在下面的代码片段中工作得很好。但对于最终用户，我得到了"类型不匹配错误"。

以下是我的代码：

Function Run() As Integer
    Dim IE As InternetExplorer
    Dim dataCount%
    Set IE = GetIE
    Navigate IE, "http://www.my-url-here.com/index.php"
    Call Login(IE)
    IE.Quit
End Function
Private Sub Login(IE As InternetExplorer)
    Dim iDoc As HTMLDocument
    Dim uName$, pwd$
    Set iDoc = IE.Document   ' here is where it gives type mismatch error
    Call GetLoginDetails(jobBoard, uName, pwd)
    iDoc.getElementById("login").Value = uName
    iDoc.getElementById("pw").Value = pwd
    iDoc.getElementsByClassName("sub_btn")(0).Click
    Sync IE
End Sub
    Sub Sync(IE As InternetExplorer)
        Do While IE.Busy Or IE.ReadyState <> READYSTATE_COMPLETE
            Application.Wait Now + TimeSerial(0, 0, 1)
        Loop
        Do While IE.Document.ReadyState <> "complete"
            Application.Wait Now + TimeSerial(0, 0, 1)
        Loop
        'Debug.Print "Out: " & IE.Document.ReadyState
    End Sub
    Sub Navigate(IE As InternetExplorer, address$)
        IE.Navigate address
        Sync IE
    End Sub
    Function GetIE() As InternetExplorer
        Set GetIE = New InternetExplorer
        With GetIE
            .Visible = True
            .Height = 550
            .Width = 800
            .Left = Application.Width - .Width
        End With
    End Function

请注意：IE.Document.getElementById("login").Value = uName对我们俩都很好。

Answer 1

虽然不是IE特有的，但这篇MS文章暗示VBA和x64系统中的基本API调用存在已知问题。

通过外部/自定义API调用，我们可以使用PtrSafe和LongPtr声明来适应这一点。

使用后期绑定，我发现这在过去对我有效：

Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")

不利的一面是你会失去intellisense功能，但如果代码不运行，intellisense就没有那么有用了。。。