CreateObject("MSXML2.XMLHTTP")所对应的前期绑定是什么

爱疯

Sub test()
    Dim h As Object
    Dim x As Object    'As XMLHTTP

    '1）创建 HTMLDocument 对象（或前期绑定 Microsoft HTML Object Library，..\System32\mshtml.tlb）
    Set h = CreateObject("htmlfile")

    '2）创建 IXMLHTTPRequest 对象（或前期绑定 ）
    Set x = CreateObject("MSXML2.XMLHTTP")
    x.Open "GET", "http://club.excelhome.net/forum-2-1.html", False
    x.Send
    h.body.innerhtml = x.responsetext    'StrConv(x.responseBody, vbUnicode)

    MsgBox Len(h.body.innerhtml)
End Sub




请问如题，我不知道是不是这个 ？谢谢

samsinn

刚测试了一下，是这个没错
绑定是这样Dim xml As New XMLHTTP30

爱疯

samsinn 发表于 2019-4-17 18:55
刚测试了一下，是这个没错
绑定是这样Dim xml As New XMLHTTP30

2.rar (12.04 KB, 下载次数: 14)

2019-4-18 09:01 上传

点击文件名下载附件

谢谢 samsinn！
运行test2，因为从本地窗口看到
h的类型是HTMLDocument，所以test1声明为 HTMLDocument 对象
x的类型是IXMLHTTPRequest，所以test1声明为 IXMLHTTPRequest 对象


但引用后，运行test1
h的声明好像没问题
x的声明好像不正确，不知为什么？该声明成什么对象呢

lipton

引用Microsoft xml,v6.0
例子：

1. Sub test()
   
2.     Dim x As MSXML2.XMLHTTP60
   
3.    
   
4.     Set x = New MSXML2.XMLHTTP60
   
5.    
   
6.     '...............
   
7. End Sub

复制代码

爱疯

lipton 发表于 2019-4-18 09:45
引用Microsoft xml,v6.0
例子：

谢谢 lipton！

引用6.0后，声明x时，为什么我这里的提示里没有MSHTML2这个库？

lipton

搜索一下你的系统盘 有没有msxml6.dll,x为你安装系统的盘   x:\windows\system32\msxml6.dll

爱疯

lipton 发表于 2019-4-18 11:11
搜索一下你的系统盘 有没有msxml6.dll,x为你安装系统的盘   x:\windows\system32\msxml6.dll

lipton

去掉引用的msxml,v3.0

爱疯

lipton 发表于 2019-4-18 11:23
去掉引用的msxml,v3.0

请看5楼动画，我是先去掉3.0，再勾的6.0呀。
你那里输入"dim x as "后，有提示 MSHTML2这个库吗？

lipton

是msxml2 不是 mshtml 打错字了