使用vba 获取静态网页中的文字及链接信息

从csdn上找到了很多的材料，最终解决了自己的问题，按照我的思路记录一下，以便于自己以后查找。

1. 打开一个网页，使用的是Set ht = CreateObject("MSXML2.XMLHTTP")
2. 使用split函数拆分返回的网页源码信息，可以不停的使用split函数
3. 使用mid函数读取自己需要的文字信息及链接信息
4. 如需使用，请调整为自己需要获取数据的网站信息，本示例不能直接执行，需要修改方可。

Public Sub getlist()   '获取网站上的文字及链接信息

Dim i As Long
'定义网址
    Dim strUrl As String
    '定义数组来接收结果
    Dim s0() As String
    Dim s1() As String  '取第一段
    Dim sStr As String
    Dim sLink As String             
    strUrl = "https://www.csdn.net/" '需要下载内容的页面
'创建对象HTML
    Dim ht As Object
    Set ht = Creat