manbet网

 找回密码
 注册

QQ登录

只需一步,快速开始

188bet
查看: 249|回复: 4
打印 上一主题 下一主题

请帮忙如何导入这个网址manbet数据

[复制链接]
跳转到指定楼层
1楼
发表于 2020-12-18 22:57 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
https://www.miit.gov.cn/datainfo/cpgg/art/2020/art_3216608cdc364e8bb9d3423779bc76c9.html
需要把这个网页的manbet中的每一页每一行的链接导出来。或者直接导出每一页数据(含链接格式),到EXCEL格中。
我是小白一个,对VBA只懂一丁点,没有能力学习网页数据导入编程。
还请大侠们帮忙,感激不尽!谢谢!
分享到:  QQ好友和群QQ好友和群
收藏收藏1
2楼
发表于 2020-12-21 17:55 | 只看该作者
沙发
3楼
发表于 2020-12-21 17:57 | 只看该作者

Sub test()
Dim Url$, Str$, N&, I&, R&
Url = "https://www.miit.gov.cn/api-gateway/jpaas-publish-server/front/page/build/unit?webId=b3eba6883f9240e2b51025f690afbae8&pageId=9ea2861509164481af6d712d569aacf3&parseType=bulidstatic&pageType=column&tagId=%E4%BF%A1%E6%81%AF%E5%88%97%E8%A1%A8&tplSetId=9a9a7b87a4444169bdef99ff1f84e1a
4楼
发表于 2020-12-21 20:09 | 只看该作者
你试试这个
5楼
发表于 2020-12-22 15:12 | 只看该作者
Sub test()
Dim Url$, Str$, N&, I&, R&
Url = "https://www.miit.gov.cn/api-gateway/jpaas-publish-server/front/page/build/unit?webId=b3eba6883f9240e2b51025f690afbae8&pageId=9ea2861509164481af6d712d569aacf3&parseType=bulidstatic&pageType=column&tagId=%E4%BF%A1%E6%81%AF%E5%88%97%E8%A1%A8&tplSetId=9a9a7b87a4444169bdef99ff1f84e1aa&unitUrl=%2Fapi-gateway%2Fjpaas-publish-server%2Ffront%2Fpage%2Fbuild%2Funit&paramJson=%7B%22pageNo%22%3A1%2C%22pageSize%22%3A1000%2C%22loadEnabled%22%3Atrue%2C%22search%22%3A%22%7B%5C%22title%5C%22%3A%5C%22%5C%22%2C%5C%22PICI%5C%22%3A%5C%22339%5C%22%2C%5C%22CPMC%5C%22%3A%5C%22%5C%22%2C%5C%22QYMC%5C%22%3A%5C%22%5C%22%2C%5C%22CPXH%5C%22%3A%5C%22%5C%22%2C%5C%22CPSB%5C%22%3A%5C%22%5C%22%7D%22%7D"
With CreateObject("msxml2.xmlhttp")
    .Open "GET", Url, True
    .send
    While .readystate <> 4
        DoEvents
    Wend
    Debug.Print .Status
    If .Status = 200 Then
        Str = .responsetext
        With CreateObject("htmlfile")
            .write "<script></script>"
            With .parentwindow
                .eval "var json=" & Str
                Str = .eval("json.data.html")
                With CreateObject("htmlfile")
                    .write "<html><head></head><body>" & Str & "</body></html>"
                    With .all.tags("table")(0)
                        For N = 0 To .Rows.Length - 1
                            For I = 0 To .Rows(N).Cells.Length - 1
                                Cells(N + 1, I + 1).Value = .Rows(N).Cells(I).innertext
                            Next I
                        Next N
                    End With
                End With
            End With
        End With
    End If
End With
End Sub
您需要登录后才可以回帖 登录 | 注册 发新帖

本版积分规则

小黑屋|手机版|Archiver|manbet ( )

GMT+8, 2021-3-20 18:33 , Processed in 0.109201 second(s), 7 queries , Gzip On, Redis On.

Powered by X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表