VBA网抓教程文档格式.docx
- 文档编号:7342218
- 上传时间:2023-05-08
- 格式:DOCX
- 页数:32
- 大小:25.17KB
VBA网抓教程文档格式.docx
《VBA网抓教程文档格式.docx》由会员分享,可在线阅读,更多相关《VBA网抓教程文档格式.docx(32页珍藏版)》请在冰点文库上搜索。
Content-Type"
application/x-www-form-urlencoded"
Referer"
.Send
strText=.responsetext
strText
EndWith
EndSub
拷贝剪切板:
SubCopyToClipbox(strTextAsString)
'
文本拷贝到剪贴板
new:
{1C3B4210-F441-11CE-B9EA-00AA006B1A69}"
)
.SetTextstrText
.PutInClipboard
DongYu作业
KB,下载次数:
88)
2014-10-2117:
05上传
下载次数:
88
SubHomerWork1_1()
'
新手:
DongYu
作业:
1、网站:
操作:
点击“今日在售产品”,获取今日在售产品第一页的数据。
DimxmlAsNew,urlAsString,StAsString
Dimarr,brr,ar,i,c
url="
&
tag=desc&
date=2014-10-21&
page=2"
Withxml
GET"
url,False
.send
St=.responseText
St=Split(Split(St,"
<
divclass="
mark"
>
)
(1),"
/div>
)(0)
arr=Split(St,"
tralign='
center'
ReDimbrr(1ToUBound(arr),1To9)
Fori=1ToUBound(arr)
ar=arr(i)
brr(i,1)=Split(Split(ar,"
value='
)(0)+Split(Split(ar,"
fontclass='
cred'
/font>
brr(i,2)=Split(Split(ar,"
/td>
tdclass='
hl'
brr(i,3)=Split(Split(ar,"
on'
brr(i,4)=Split(Split(ar,"
brr(i,5)=Split(Split(ar,"
)
(2),"
brr(i,6)=Split(Split(ar,"
)(3),"
brr(i,7)=Split(Split(ar,"
)(4),"
brr(i,8)=Split(Split(ar,"
)(5),"
brr(i,9)=Split(Split(Split(ar,"
)
(1)
Nexti
WithActiveSheet
.
.Columns("
D:
E"
).NumberFormatLocal="
yyyy-m-d"
.[a1].Resize(1,10)=[{"
对比"
"
产品名称"
银行"
起售日"
停售日"
币种"
管理期(月)"
产品类型"
预期收益(%)"
收益"
}]
.[b2].Resize(UBound(brr,1),9)=brr
Sub按钮2_单击()
Dimurl,html
url=url&
"
OC=PEK"
北京首都机场
DC=SHA"
上海虹口机场
dstDesp=GUANGZHOU%B9%E3%D6%DD"
dst2=CAN"
DD=2014-10-22"
查询日期
DT=7"
BD="
BT=7"
AL=ALL"
全部航空
DR=true"
=33"
=9"
Sn=87bf24142bc0c871f373e0a7"
Sethtml=CreateObject("
htmlfile"
get"
=.responsetext
Settb="
div"
Fori=0To-1
Iftb(i).classname="
menu_layout2"
Ortb(i).classname="
listone_layout"
listtwo_layout"
menu_content_small2"
Then
n=n+1
Forj=0Totb(i).-1
Cells(n,j+1)=tb(i).childnodes(j).innertext
Next
EndIf
Sub作业1_2_获取航班信息数据()
网站:
操作:
点击“查询”,获取航班信息数据。
DimStAsString,Url$,arr,brr,Crr
DimS1$,S2$,i%,j%,rngAsRange
Url="
OC=PEK&
DC=SHA&
dstDesp=GUANGZHOU%B9%E3%D6%DD&
dst2=CAN&
DD=2014-10-22&
DT=7&
BD=&
BT=7&
AL=ALL&
DR=true&
=37&
=9&
Url,False
St=.responsetext
IfInStr(St,"
divid="
FlightListFlight0"
)<
1Then
Cells(1,1)="
抱歉!
没有满足条件的航班,请重新输入查询条件!
Else
br>
Cells(1,1)=Split(Split(St,"
strong>
/strong>
航空公司分组
S1=arr(i)
Crr=Split(S1,"
ReDimbrr(1ToUBound(Crr)+2,1To5)'
班次UBound(S1)+1,航空公司及机行+1,航线+1
航空公司
brr(1,1)=Trim(Split(Split(S1,"
menu_top1"
)(0))'
中国东方航空公司
brr(1,2)=Trim(Split(Split(S1,"
menu_top2"
航班
brr(1,2)=Trim(Split(Split(brr(1,2),"
font"
/span>
)(0))
brr(1,3)=Trim(Split(Split(S1,"
机型:
333
飞行线路
brr(2,1)=Trim(Split(Split(S1,"
menu1_layout"
brr(2,2)=Trim(Split(Split(S1,"
menu2_layout"
(22:
00)
brr(2,3)=Trim(Split(Split(S1,"
menu3_layout"
经停:
brr(2,4)=Trim(Split(Split(S1,"
上海虹桥机场
brr(2,5)=Trim(Split(Split(S1,"
(23:
55)
飞行班次
Forj=1ToUBound(Crr)
S2=Crr(j)
S2
brr(2+j,1)=Trim(Split(Split(S2,"
menu4_layout"
票价
brr(2+j,2)=Trim(Split(Split(S2,"
menu5_layout"
舱位'
brr(2+j,3)=Trim(Split(Split(S2,"
menu6_layout"
票数'
……
Nextj
Setrng=,1).End(xlUp).Offset(1,0)
(UBound(brr,1),5)=brr
Sub作业1_2_航空公司获取()
ByteToStr(.responseBody,"
GB2312"
FunctionByteToStr(arrByte,strCharsetAsString)AsString
.Type=1'
adTypeBinary
.Open
.WritearrByte
.Position=0
.Type=2'
adTypeText
.Charset=strCharset
ByteToStr=.Readtext
.Close
EndFunction
ConstsaltkeyAsString="
oUuXXXX"
请复制你自己的Cookie粘贴到这里。
下同
ConstsidAsString="
tXXXX"
ConstauthAsString="
a30eEZTXXXXXXXXXXXXXXXXXXXX"
ConstcookiereportAsString="
f1fXXXXXXXXXXXXXXXXXXXXXXXX"
ConstulastactivityAsString="
84cXXXXXXXXXXXXXXXXXXXX"
ConsttouclickAsString="
70a9vPXXXXXXXXXXXXXXXXXXXX"
Constmember_login_uidAsString="
218917"
Constmember_login_sidAsString="
do=thread&
view=me"
Cookie"
_
5WOj_b676_saltkey="
&
saltkey_
;
5WOj_b676_sid="
sid_
5WOj_b676_auth="
auth_
5WOj_b676_cookiereport="
cookiereport_
5WOj_b676_ulastactivity="
ulastactivity_
5WOj_b676_touclick="
touclick_
5WOj_b676_member_login_uid="
member_login_uid_
5WOj_b676_member_login_sid="
member_login_sid
auth
.send"
etpsId="
strText=.responseText
strText
.Open"
.setRequestHeader"
.send"
strText=.responseText
)
isVisitor=1&
f_id=11011&
t"
fareaId=1"
E0685A9F6B708A1F1039BF2322B82A35"
DimstrCookieAsString
.Option(6)=False'
禁止重定向,以获取原网页信息
strText=.getAllResponseHeaders'
获取所有的回应头信息
strText:
Stop'
在立即窗口里查看头信息
strCookie=Split(Split(strText,"
Set-Cookie:
)(0)'
取出Cookie值
在同一个winhttp对象里能保留cookie,为了体现设置cookie的作用,启用一个新的winhttp对象
strCookie'
模拟Cookie
.Send'
此次send是为了获取cookie
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VBA 教程
![提示](https://static.bingdoc.com/images/bang_tan.gif)