VBA中考成绩批量查询

xlyztbz · 发表于 2018-2-22 18:01

http://zsks.cdcedu.cn/showbkcx.aspx?id=2这里的中考成绩查询。
可参考http://club.excelhome.net/thread-1132489-1-1.html
自己水平有限没有改写成功，求助高手。如能改写可有奖励50元。
QQ563393036
测试数据报名号170822020120
准考证号：08220102122

onlycxb · 发表于 2018-2-22 20:19

本帖最后由 onlycxb 于 2018-2-24 21:30 编辑

Sub Ccj()
Dim winhttp As Object, html As Object, trs, msg As String
Dim i, j, s
Set html = CreateObject("htmlfile")
Set winhttp = CreateObject("winhttp.winhttprequest.5.1")
With winhttp
.Open "POST", "http://zsks.cdcedu.cn/InfoCx_Result.aspx", False
.setrequestheader "Content-Type", "application/x-www-form-urlencoded"
.send "id=153&number=xxx&xm=xxx"
html.body.innerhtml = .responsetext
msg = html.all.tags("table")(0).innertext + Chr(10)
Set trs = html.all.tags("table")(1).Rows
For i = 0 To trs.Length - 1
s = ""
For j = 0 To trs(i).Cells.Length - 1
s = IIf(s = "", "", s + ",") + trs(i).Cells(j).innertext
Next j
msg = msg + s + Chr(10)
Next i
End With
MsgBox msg
End Sub

复制代码

onlycxb · 发表于 2018-2-22 20:20

suwenkai · 发表于 2018-2-22 23:53

看图片。。。。。

xlyztbz · 发表于 2018-2-23 21:02

onlycxb 发表于 2018-2-22 20:19

谢谢，我按照你的思路已经改写完了。学到了好多东西。

xlyztbz · 发表于 2018-2-23 21:08

本帖最后由 xlyztbz 于 2018-2-23 22:01 编辑

suwenkai 发表于 2018-2-22 23:53
看图片。。。。。

谢谢你，我用onlycxb的思路和方法做完了。 1111_看图王.png

amzxfgh9632 · 发表于 2018-2-23 21:09

xlyztbz 发表于 2018-2-23 21:08
谢谢你，我用onlycxb的思路和方法做完了。

上表学习一下呀

amzxfgh9632 · 发表于 2018-2-23 21:10

xlyztbz 发表于 2018-2-23 21:08
谢谢你，我用onlycxb的思路和方法做完了。

上表学习一下呀

xlyztbz · 发表于 2018-2-23 21:14

本帖最后由 xlyztbz 于 2018-2-23 21:57 编辑

amzxfgh9632 发表于 2018-2-23 21:10
上表学习一下呀

这个就是按照一楼的做的。自己摸索的。

YZC51 · 发表于 2018-2-23 21:51

xlyztbz 发表于 2018-2-23 21:14
这个就是按照一楼的做的。自己摸索的。

谢谢老师分享，为了个人信息安全，少量示例数据即可！

		自动登录	找回密码
密码			免费注册

[求助] VBA中考成绩批量查询

评分