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

wu282815876 · 发表于 2020-10-9 09:00

本帖最后由 wu282815876 于 2020-10-9 09:05 编辑

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

wu282815876 · 发表于 2020-10-9 09:27

哈喽哈喽有大佬吗

wu282815876 · 发表于 2020-10-9 10:51

哈喽哈喽有人吗

wu282815876 · 发表于 2020-10-9 11:41

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

wu282815876 · 发表于 2020-10-9 13:28

哦豁没人.

wu282815876 · 发表于 2020-10-9 15:10

halo ddddd

wu282815876 · 发表于 2020-10-10 11:03

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)

		自动登录	找回密码
密码			免费注册