VBA抓取双色球、大乐透开奖数据

最新推荐文章于 2024-12-11 12:00:00 发布

边编边变

最新推荐文章于 2024-12-11 12:00:00 发布

阅读量2.6k

点赞数 2

分类专栏： VBA 文章标签： vba

本文链接：https://blog.csdn.net/weixin_58913951/article/details/118058959

版权

本文介绍如何使用VBA编程从网上抓取双色球和大乐透的最新开奖信息，通过自动化脚本获取实时数据，提升数据分析效率。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Sub wzssqkj()
    Dim myHTTP As Object, s As String
    
    Set myHTTP = CreateObject("WinHttp.WinHttpRequest.5.1") 'json网页
    With myHTTP
        .Open "GET", "http://www.cwl.gov.cn/cwl_admin/kjxx/findDrawNotice?name=ssq&issueCount=30", False
        .setRequestHeader "Host", "www.cwl.gov.cn"
        .setRequestHeader "Connection", "keep-alive"
        .setRequestHeader "Upgrade-Insecure-Requests", "1"
        .setRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 10.0; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/70.0.3538.25 Safari/537.36 Core/1.70.3861.400 QQBrowser/10.7.4313.400"
        .setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
        .setRequestHeader "Accept", "text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,image/apng,*/*;q=0.8"