|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
- Sub Test()
- Dim winhttp As Object, url As String, data As String, k As Integer, objJSON As Object, js As Object, ss As Object
- Set winhttp = CreateObject("winhttp.winhttprequest.5.1")
- Set js = CreateObject("msscriptcontrol.scriptcontrol")
- js.Language = "javascript"
- url = "http://searchweb.miit.gov.cn/search/search"
- data = "urls=http://www.miit.gov.cn/n1146295/n1652858/n1652930/"
- data = data & "&sortFlag=-1"
- data = data & "&sortType=1"
- data = data & "&year=年 份"
- data = data & "&indexDB=css"
- data = data & "&pageSize=10"
- data = data & "&pageNow=1"
- data = data & "&sortKey=showTime"
- With winhttp
- .Open "POST", url, False
- .setrequestheader "Content-Type", "application/x-www-form-urlencoded; charset=UTF-8"
- .send data
- js.addcode "var mydate=" & .responsetext
- Set objJSON = js.CodeObject
- For Each ss In CallByName(objJSON.mydate, "array", VbGet)
- k = k + 1
- Cells(k, 1) = CallByName(ss, "showTime", VbGet)
- Next
- End With
- End Sub
复制代码
!标记 |
|