JQuery 问题请教

hsw212

Sub jTest()
      With CreateObject("msxml2.xmlhttp")
        .Open "GET", "http://www.w3school.com.cn/jquery/jquery.js", False
        .send
      End With
      Set oDom = CreateObject("htmlfile")
      Set oWindow = oDom.parentWindow
      oDom.write "<script  src='http://www.w3school.com.cn/jquery/jquery.js'></script>"
      oDom.write "<p id='myid' name='test'>这是一个段落</p>"
      MsgBox oDom.DocumentElement.innerHTML  '你可以看到你写入的HTML文档
      MsgBox oWindow.eval("$('#myid').text()")
    End Sub
在标红的地方提示：运行时错误 '438'

这段代码以前在32位的excel上运行很好，但换了电脑，新电脑是excel2007，到标红的地方死活过不去，请问有遇到过相同问题的老师吗？谢谢

huang1314wei

win7 64位 +  office excel 32 位 运行通过

fxl447098457

你这个是1.6.1版本,降低一下版本试试。2007出来的时候应该是十多年前吧。试试1.3.2版本、

hsw212

fxl447098457 发表于 2018-8-22 08:38
你这个是1.6.1版本,降低一下版本试试。2007出来的时候应该是十多年前吧。试试1.3.2版本、

降低了JQuery的版本，还是一样的错误。图片是错误信息，以及我excel的版本
感谢！

hsw212

只传了一个图片

fxl447098457

hsw212 发表于 2018-8-22 09:55
只传了一个图片

那就是mshtml这个组件是老的吧。当时的不支持，你可以试试找个新的dll替换掉试下、

lsdongjh

win10 64位，OFFICE 2016 64位，运行通过

小fisher

win7 32位， Office 2010，运行通过

hsw212

谢谢各位。我下了office2016，32位的，结果还是同样的错误。
应该是电脑的问题。草鸡了。。。

AVEL

WIN7 64位 OFFICE 32位 测试通过。