VBA学习笔记：1、用msxml v6.0网抓

1、VBA窗口--工具--引用--microsoft xml v6.0

2、用MSXML2.XMLHTTP60

Dim a As MSXML2.XMLHTTP60
Set a = New MSXML2.XMLHTTP60
With a
      .Open "get", "<url>", False

       .setRequestHeader
       .send

End With

3、得到的源代码  处理方式不同，结果不同

用VBA debug打印出来，会残缺不全，但把源代码保存在一个新建的txt文档中，就可以完整的展现。