1. Public Sub Recent100()
  2.  
  3. Dim WebText As String
  4. Dim Reg As Object, Mh As Object, OneMh As Object
  5. Dim i As Long, j As Long, Nums As String
  6.  
  7. Set Reg = CreateObject("Vbscript.Regexp")
  8. With Reg
  9. .MultiLine = True
  10. .Global = True
  11. .Ignorecase = False
  12. '20170728013</td><td class='z_bg_13'>07627</td>'审查元素,获取目标字符串
  13. .Pattern = "(\d{11})(<)(?:/td><td class='z_bg_13'>)(\d{5})(?:</td>)"
  14. End With
  15.  
  16. With CreateObject("WinHttp.WinHttpRequest.5.1") 'CreateObject("MSXML2.XMLHTTP")'受缓存影响不能及时更新
  17. '.Open "GET", "http://chart.cp.360.cn/kaijiang/kaijiang?lotId=255401&spanType=2&span=" & Yesterday & "_" & Yesterday, False'更新指定日期
  18. .Open "GET", "http://zst.cjcp.com.cn/cjwssc/view/ssc_zusan-ssc-0-3-100.html", False
  19. .Send
  20. WebText = .responsetext
  21. End With
  22.  
  23. Set Mh = Reg.Execute(WebText)
  24.  
  25. With Sheets(2)
  26. .Cells.Clear
  27. .Range("A1:G1").Value = Array("大期号", "小期号", "万", "千", "百", "十", "个")
  28. i = 1
  29. For Each OneMh In Mh
  30. i = i + 1
  31. .Cells(i, 1).Value = "'" & OneMh.submatches(0)
  32. .Cells(i, 2).Value = "'" & Right(OneMh.submatches(0), 3)
  33. Nums = OneMh.submatches(2)
  34. For j = 1 To Len(Nums)
  35. .Cells(i, j + 2).Value = Mid(Nums, j, 1)
  36. Next j
  37. Next OneMh
  38.  
  39. With .UsedRange
  40. .HorizontalAlignment = xlCenter
  41. .VerticalAlignment = xlBottom
  42. End With
  43. SetBorders .UsedRange
  44. End With
  45.  
  46. Set Reg = Nothing
  47. Set Mh = Nothing
  48.  
  49. End Sub
  50. Sub SetBorders(ByVal Rng As Range)
  51. With Rng.Borders
  52. .LineStyle = xlContinuous
  53. .ColorIndex = xlAutomatic
  54. .Weight = xlThin
  55. End With
  56. End Sub

  

20170729xlVba SSC_RECENT100的更多相关文章

随机推荐

  1. 20154312 曾林 Exp4恶意软件分析

    写在前面 如果把恶意软件比作罪犯的话,怎么看这次实验? 实验目的:以后能够在茫茫人海中找到罪犯. 实验过程:现在以及抓到了一个罪犯,把他放到茫茫人海里去,看看他和普通人有啥区别.这些区别就是罪犯的特征 ...

  2. appium记录

    npm uninstall appium -g npm install -g cnpm --registry=https://registry.npm.taobao.org cnpm install ...

  3. pyDay3

    内容来自廖雪峰的官方网站 1.关键字参数 def person(**kw): print(kw) >>> person(name=') {'} 关键字参数有什么用?它可以扩展函数的功 ...

  4. SNMP学习笔记之Centos7配置SNMP服务

    0x00 安装yum源安装SNMP软件包 1.yum源安装SNMP服务: yum -y install net-snmp net-snmp-utils 2.查看SNMP版本号: snmpd -v 0x ...

  5. Python入门之Python引用模块和查找模块路径

    #这篇文章主要介绍了Python引用模块和Python查找模块路径的相关资料,需要的朋友可以参考下 模块间相互独立相互引用是任何一种编程语言的基础能力.对于“模块”这个词在各种编程语言中或许是不同的, ...

  6. SQL、SQL Server、MySQL与Oracle

    SQL (Structured Query Language),结构化查询语言,用来与多种数据库建立联系,根据ANSI(美国国家标准协会)的规定,SQL为RDBMS(关系型数据库)的标准语言. --- ...

  7. 逆向与BOF基础——注入shellcode并执行&Return-to-libc

    逆向与BOF基础--注入shellcode并执行 准备阶段 下载安装execstack. 本次实验实验的shellcode是心远的文章中生成的代码,即\x31\xc0\x50\x68\x2f\x2f\ ...

  8. 20145322 Exp5 Adobe阅读器漏洞攻击

    20145322 Exp5 Adobe阅读器漏洞攻击 实验过程 IP:kali:192.168.1.102 windowsxp :192.168.1.119 msfconsole进入控制台 使用命令为 ...

  9. JavaScript 各种验证收集

    filter或者forEach函数,可能是因为你的浏览器还不够新,暂时不支持新标准的函数,你可以使用如下方式自己定义: if (!Array.prototype.forEach) { Array.pr ...

  10. How do I update a GitHub forked repository?

    I recently forked a project and applied several fixes. I then created a pull request which was then ...