(精品word)VBA操作网页读取数据自动填入EXCEL表中-豆柴文库

您所在位置：网站首页 / (精品word)VBA操作网页读取数据自动填入EXCEL表中.doc / 文档详情

在线预览结束，喜欢就下载吧，查找使用更方便

5 金币

下载文档

/ 3

下载提示

如果您无法下载资料，请参考说明：

1、部分资料下载需要金币，请确保您的账户上有足够的金币

2、已购买过的文档，再次下载不重复扣费

3、资料包下载后请先用软件解压，在使用对应软件打开

文本预览

(精品word)VBA操作网页读取数据自动填入EXCEL表中
(精品word)VBA操作网页读取数据自动填入EXCEL表中
(精品word)VBA操作网页读取数据自动填入EXCEL表中
VBA操作网页读取数据自动填入EXCEL表中

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

i=i+1
Ifi＆gt；13Then'第13个TD后为分数
Cells（j,5+i）=td.innerText'每个