VBA自动化：从网页抓取数据填充Excel

   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")