|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
网页抓取遇到难题
代码如下:
- '辽宁站http://gsxt.lngs.gov.cn/saicpub/entPublicitySC/entPublicityDC/searchPub.action
- Sub ln()
- Dim objHR As New WinHttp.WinHttpRequest, P
- UserForm1.Show
- With objHR
- .Open "POST", "http://gsxt.lngs.gov.cn/saicpub/entPublicitySC/entPublicityDC/lngsSearchFpc.action?authCode=" & Vcode & "&solrCondition=幸福筑家房地产开发有限公司", False
- .setRequestHeader "Referer", "http://gsxt.lngs.gov.cn/saicpub/entPublicitySC/entPublicityDC/entPublicity/search/searchmain.jsp"
- .setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
- .setRequestHeader "Cookie", "JSESSIONID=WHNxJqhbPpDTSQMGp7n22zt96L0fnfy5pHH67Bd8QSQ2GJT9Mpd2!-1247540927!1668631573; COOKIE=20111157; CNZZDATA1000310629=1520308480-1420445876-http%3A%2F%2Fgsxt.lngs.gov.cn%2F|1420445876"
- .send
- P = .responseText
- With CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") '数据放入剪贴板,记事本观察数据
- .SetText P
- .PutInClipboard
- End With
- End With
- End Sub
复制代码
上述代码中没有得到想要的数据,求指点!完整代码见附件
test.rar
(16.69 KB, 下载次数: 17)
|
|