求教大佬，如何将split改用htmlfile对象解析

wu282815876

这个网页的信息用split完全抓不全，有没有大佬能帮帮忙

wu282815876

哈喽 哈喽 有大佬吗

wu282815876

哈喽 哈喽 有人吗

wu282815876

耶？现在这么冷冷清清了吗

wu282815876

哦豁 没人.

wu282815876

halo ddddd

wu282815876

Sub 下级链接抓取中标单位等信息()
Dim str$, html, url$, r%, arr, j%
    Application.ScreenUpdating = Fals
   
    Set html = CreateObject("htmlfile")
    For K = 1 To 10
    On Error Resume Next
        url = Cells(K, 4)

        With CreateObject("WinHttp.WinHttpRequest.5.1")
            .Open "GET", url, False
            .setRequestHeader "cookie", "fontZoomState=0"
            .setRequestHeader "Referer", url
            .send
            str = .responseText
          End With
          Debug.Print str
         
         
        Dim regExp As Object
        Set regExp = CreateObject("VBScript.RegExp")
        regExp.Global = True
        regExp.Pattern = "合同价估算：|项目概算：|本标段投资|约|\d+\.?\d+|万元"
        Set Cells(K, 6) = regExp.Execute(str)