`
发表于2019/11/26 23:19:54 楼主 
头像 等级:初学者
积分:1
财富值:0.0
身份:普通用户
Sub kao() [a2:c2] = Split("统计时间 在线人数 波动值") Dim regx, i%, mh, tt, p, m, PostData Set regx = CreateObject("vbscript.regexp") regx.Pattern = "(.*?)" '注意中文的括号(全角) regx.Global = True For p = 1 To 7 PostData = "PageIndex=" & p & "&__RequestVerificationToken=CfDJ8Oxgi0PF5dtKgteCEWR3ZKKzhWUHnMIkczUHpAA12yTUk-KolOww9ZYTIz6y8-tIfgH2yCgFH-DCVvplmsOa2aRf8VuJtozMmUX_clPPMks-XT6jl3vSufB9_l7nCiRKDdhrvCjTdqPEx7XgPW2-DTk" With CreateObject("msxml2.xmlhttp") .Open "POST", "http://www.77tj.org/tencent/", False .setRequestHeader "Content-Type", "application/x-www-form-urlencoded" .send (PostData) tt = .responsetext End With tt = Split(tt, "")(1) Set mh = regx.Execute(tt) For i = 0 To mh.Count - 1 Step 3 m = m + 1 For j = 1 To 3 Cells(m + 2, j) = Replace(mh(i + j - 1).submatches(0), "+", "+") Next Next Next Columns("A:C").Columns.AutoFit Calculate End Sub
求助Excel
下载Excel文件
奖赏:2 财富值
问题已过期
方案1
没有Excel文件
无人认领
方案2
没有Excel文件
无人认领
我的个性签名

快速回复

目前不允许游客发表,请 登录 注册 后再发贴。