非Hmil网爬解析

wodewan

shuayu 发表于 2022-8-17 17:52
wodewan 你真是活雷锋呀! 也非常感谢Wanao

，我可不是，本想调调你胃口的，没想到你不要代码，亏大了。。。。。。

shuayu

多年的难题终于有人给我解释清楚了.很高兴.^^

shuayu

最后有个问题:请问Excel里面VBA的本地窗口怎么加载出来?

wanao2008

shuayu 发表于 2022-8-17 17:52
wodewan 你真是活雷锋呀! 也非常感谢Wanao

我来看热闹，为什么谢我？

pc_12

东方财富.rar (31.17 KB, 下载次数: 11)

2022-8-18 16:59 上传

点击文件名下载附件

smiletwo

提供下代码：

smiletwo

1. Sub 大市行情()
   
2.     Dim i, j, m, arr, brr, reg As Object, mh, str As String, mark$
   
3.     brr = Array(3, 4, 1, 2, 5, 6, 7, 8) '调整顺序用
   
4.     Sheet3.UsedRange.Offset(2).ClearContents
   
5.     ReDim arr(1 To 4880, 1 To 8)
   
6.     Set reg = CreateObject("vbscript.regexp")
   
7.     reg.Global = True
   
8.     reg.Pattern = "{.+?f2.+?([0-9.-]+).+?f3.+?([0-9.-]+).+?f12.+?([0-9]{6}).+?f14"":""(.+?)"",""f66.+?([0-9.-]+).+?f72.+?([0-9.-]+).+?f78.+?([0-9.-]+).+?f84.+?([0-9.-]+)}"
   
9.     Set X = CreateObject("MSXML2.XMLHTTP")
   
10.     With X
    
11.         For k = 1 To 98
    
12.             .Open "GET", "https://push2.eastmoney.com/api/qt/clist/get?cb=jQuery112308664461492381323_1660644771097&fid=f62&po=1&pz=50&pn=" & k & "&np=1&fltt=2&invt=2&ut=b2884a393a59ad64002292a3e90d46a5&fs=m%3A0%2Bt%3A6%2Bf%3A!2,m%3A0%2Bt%3A13%2Bf%3A!2,m%3A0%2Bt%3A80%2Bf%3A!2,m%3A1%2Bt%3A2%2Bf%3A!2,m%3A1%2Bt%3A23%2Bf%3A!2&fields=f2,f3,f12,f14,f66,f72,f78,f84", False
    
13.             .send
    
14.             Do Until .readyState = 4 And .Status = 200
    
15.                 DoEvents
    
16.             Loop
    
17.             str = .responsetext
    
18.             str = Replace(str, mark, "") '处置响应数据中的换行
    
19. '            Debug.Print str
    
20.             If reg.test(str) Then
    
21.                 Set mh = reg.Execute(str)
    
22.                 For i = 1 To mh.Count
    
23.                     m = m + 1
    
24.                     For j = 0 To UBound(brr)
    
25.                         arr(m, j + 1) = mh(i - 1).submatches(brr(j) - 1)
    
26.                     Next j
    
27.                 Next i
    
28.             End If
    
29.         Next k
    
30.     End With
    
31.     Set X = Nothing
    
32.     Set reg = Nothing
    
33.     Sheet3.Range("A2").Resize(UBound(arr), UBound(arr, 2)) = arr
    
34.     Sheet3.Range("A1:H1") = Array("代码", "名称", "现价", "涨跌幅", "超大单", "大单", "中单", "小单")
    
35. End Sub
    
36. 
    

复制代码

shuayu

wanao2008 发表于 2022-8-18 06:50
我来看热闹，为什么谢我？

张老师,你好.前天我在B站看到你的扫盲课程.昨天在数据解析中,遇到了新问题.如本贴中的数据就有三层皮,我没有办法进行下去.希望你能多做几个教学视频,好我们小白提高一下水平.谢谢.

shuayu

smiletwo 发表于 2022-8-18 10:35

谢谢,老师指导.请加个友好.

smiletwo

shuayu 发表于 2022-8-18 12:05
谢谢,老师指导.请加个友好.

已上传代码，不过后来再运行好像97、98页提取有问题。