资源推荐
资源详情
资源评论
Sub a正式查分程序()
'运行时会出现错误提示,中止程序,更改j初值后重新运行
Dim ie, dmt
Dim i, j, k, bb, nianfen As Integer
Dim text1 As String '存储考号
Dim text2 As String '存储报名序号
Dim text3 As String '存储浏览器地址
Dim fuwuqi As String '存储服务器地址
Dim tijiao As String '存储提交命令
nianfen = 2012 '存储年份,每年更改“2012”
fuwuqi = "http://218.28.109.125:81/cjcx/tmp_cx_zzcj.php" '自行更改为可用服务器
tijiao = "&cmdok=%C8%B7%B6%A8" 'cmdok=%C8%B7%B6%A8为提交命令
bb = Sheet3.Range("a65536").End(xlUp).Row '计算当前工作表sheet3的有效行数,需自行更改“sheet3”
' On Error Resume Next
'主程序
k = 0
For j = 2 To bb '循环变量从2到sheet2最后一行,出错后起始值改为当前行
k = k + 1 '
If k > 20 Then '每20行,可以增大“20”数值
ActiveWorkbook.Save '自动保存
ActiveWindow.ScrollRow = j '自动滚屏到当前行
k = 0 '循环变量清零
End If
text1 = Cells(j, 1) '从当前行第一列读取考号,根据情况调整列“1”数值
text2 = Cells(j, 2) '从当前行第二列读取报名序号,根据情况调整列“2”数值
'生成查询地址
text3 = fuwuqi & "?textdate=" & nianfen & "&textkh=" & text1 & "&textzjhm=" & text2 & tijiao
'创建网页对象
Set ie = CreateObject("InternetExplorer.Application")








上传资源 快速赚钱
我的内容管理 展开
我的资源 快来上传第一个资源
我的收益
登录查看自己的收益我的积分 登录查看自己的积分
我的C币 登录后查看C币余额
我的收藏
已下载
下载帮助

看过该资源的人还看了
没有合适的资源?快使用搜索试试~ 我知道了~
安全验证
文档复制为VIP权益,开通VIP直接复制

- 1
- 2
前往页