(精品word)VBA操作网页读取数据自动填入EXCEL表中(精品word)VBA操作网页读取数据自动填入EXCEL表中(精品word)VBA操作网页读取数据自动填入EXCEL表中VBA操作网页读取数据自动填入EXCEL表中Suba正式查分程序()’运行时会出现错误提示，中止程序，更改j初值后重新运行Dimie，dmtDimi,j,k,bb，nianfenAsIntegerDimtext1AsString’存储考号Dimtext2AsString'存储报名序号Dimtext3AsString'存储浏览器地址DimfuwuqiAsString'存储服务器地址DimtijiaoAsString’存储提交命令nianfen=2012’存储年份，每年更改“2012”fuwuqi=”http://218.28。109.125:81/cjcx/tmp_cx_zzcj。php”’自行更改为可用服务器tijiao=”&cmdok=???"'cmdok=？？？为提交命令bb=Sheet3.Range("a65536")。End(xlUp）.Row’计算当前工作表sheet3的有效行数,需自行更改“sheet3”'OnErrorResumeNext'主程序k=0Forj=2Tobb’循环变量从2到sheet2最后一行,出错后起始值改为当前行k=k+1’Ifk&gt；20Then’每20行,可以增大“20”数值ActiveWorkbook.Save'自动保存ActiveWindow.ScrollRow=j’自动滚屏到当前行k=0'循环变量清零EndIftext1=Cells(j，1）'从当前行第一列读取考号，根据情况调整列“1"数值text2=Cells（j，2）'从当前行第二列读取报名序号，根据情况调整列“2"数值'生成查询地址text3=fuwuqi&amp；”？textdate=”&amp；nianfen＆amp;"＆amp；textkh=”＆amp；text1＆amp;”&amp；textzjhm=”&text2&tijiao’创建网页对象Setie=CreateObject（"InternetExplorer。Application”)Withie.Visible=False’网页设置为不可见。Navigatetext3’导航到查询网址并提交’OnErrorResumeNext’MsgBoxtext3'Sleep10000’sleep库函数未用DoUntil.ReadyState=4'等网页完全打开DoEventsLoopSetdmt=。Document'读取查询服务器返回内容'网页内容处理i=0'循环变量清零ForEachtdIndmt。getElementsByTagName_r(”td”）’查找网页代码内的文本填充到当前行的第i+5列，根据要求适当调整i+5的值EndIfNext.Quit’关闭网页Setdmt=Nothing'DMT对象清空EndWithNextjSetie=Nothing'IE对象清空［s2］。CurrentRegion。Columns。AutoFit'设置为自动填充EndSubi=i+1Ifi＆gt；13Then'第13个TD后为分数Cells（j,5+i）=td.innerText'每个