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

爱疯

lipton 发表于 2019-4-18 11:56
是msxml2 不是 mshtml 打错字了

4.rar (13.93 KB, 下载次数: 4)

2019-4-18 14:24 上传

点击文件名下载附件

谢谢，我把4楼内容看错了，改过来了。
运行test，不知为什么报错?

爱疯

1）Set x = CreateObject("MSXML2.XMLHTTP")
后期绑定，本地窗口看到，x是IXMLHTTPRequest对象


2）4楼声明x为 MSXML2.XMLHTTP60，那就不是IXMLHTTPRequest对象了。
我觉得，前后都应该是一致的，就像后期绑定 Set h = CreateObject("htmlfile")，看到HTMLDocument对象，那么引用Microsoft HTML Object Library后，就可以声明一个该对象
Dim h As HTMLDocument

lipton

对象使用前需要实例化对象
缺了一句：Set x = New MSXML2.DOMDocument60 '实例化对象

1. Sub test()
   
2.     Dim h As HTMLDocument       'Microsoft HTML Object Library
   
3.     Dim x As MSXML2.XMLHTTP60   'Microsoft XML, v6.0'
   
4.    
   
5.     Set x = New MSXML2.DOMDocument60 '实例化对象
   
6.    
   
7.     x.Open "GET", "http://club.excelhome.net/forum-2-1.html", False
   
8.     x.Send
   
9.     MsgBox Len(x.responsetext)
   
10. End Sub

复制代码

爱疯

lipton 发表于 2019-4-18 16:52
对象使用前需要实例化对象
缺了一句：Set x = New MSXML2.DOMDocument60 '实例化对象

谢谢！

我把13楼代码，复制到新建空白工作簿里，还是提示错误？

lipton

打错字了，重来。

1. 
   
2. '前期绑定
   
3. Sub test()
   
4.     Dim h As HTMLDocument       'Microsoft HTML Object Library
   
5.     Dim x As MSXML2.XMLHTTP60  'Microsoft XML, v6.0'
   
6.    
   
7.     Set x = New MSXML2.XMLHTTP60 '实例化对象
   
8.    
   
9.     x.Open "GET", "http://club.excelhome.net/forum-2-1.html", False
   
10.     x.Send
    
11.     MsgBox Len(x.responsetext)
    
12. End Sub

复制代码

爱疯

lipton 发表于 2019-4-18 18:31
打错字了，重来。

谢谢lipton，正常了。

1）为什么引用后，x声明的是 msxml2.xmlhttp60？
   因为我一直对照后期绑定的本地窗口里的 object/后面的数据类型，来声明对象的。

2）怎样的情况，才需要实例化对象？
   本题中变量h不需要，x需要。那怎样才知道是否需要做一次实例化对象呢？

如果原因说起来不是几句话，有点繁琐的话，给个网址我慢慢去看也行

lipton

对象都需要实例化
Dim x As MSXML2.XMLHTTP60 在内存中申请了一个能放 MSXML2.XMLHTTP60对象大小的地址名称为 x的变量
Set x = New MSXML2.XMLHTTP60 '实例化对象后才能使用

也可以省略成一句

Dim x As New MSXML2.XMLHTTP60
此时变量x本质是object或变体，有一点细微的差别，按自己的习惯能用就好
我是习惯第一种先声明再实例化

爱疯

lipton 发表于 2019-4-18 18:31
打错字了，重来。

5.rar (15.67 KB, 下载次数: 3)

2019-4-19 17:58 上传

点击文件名下载附件

刚发现，在15楼的末尾加上就报错？
h.body.innerHTML = x.responseText

lipton

对象使用前必须实例化。楼上已经讲过。想省略可以用后期绑定，建议学习阶段还是前期绑定好，可以在本地窗口观察对象的方法，函数内置常数。

1. Sub test()
   
2.     Dim h As HTMLDocument       'Microsoft HTML Object Library
   
3.     Dim x As MSXML2.XMLHTTP60  'Microsoft XML, v6.0'
   
4. 
   
5.     Set x = New MSXML2.XMLHTTP60    '实例化对象
   
6.     Set h = New HTMLDocument    '<<=======加这一句
   
7. 
   
8.     x.Open "GET", "http://club.excelhome.net/forum-2-1.html", False
   
9.     x.Send
   
10.     MsgBox Len(x.responseText)
    
11.     h.body.innerHTML = x.responseText
    
12. End Sub

复制代码