无法使用xmlhttp转到下一页

时间:2017-03-17 22:31:46

标签: vba web-scraping

当我要进入下一页时,我在某个时候遇到了创建解析器的问题。如果在空白选项卡中单击这些页面的链接,则第一页之后的所有页面都会出错,如下面提供的第二个链接所示。任何帮助对我来说都是一个很大的帮助。提前致谢。这是链接:

Ist页面: “http://www.sportfocus.com/comdir/keyword.cfm?cid=11&maj=cricket&ckid=102&min=clubs%20and%20Associations&kid=860&key=England

第二页: “http://www.sportfocus.com/comdir/morekeywords.cfm?cid=11&maj=cricket&ckid=102&min=clubs%20and%20Associations&kid=860&key=England

仅在网址

中更改注意到=“keyword”到“morekeywords”

下一个按钮的Html元素:

<div align="center">
            <input type="submit" value="Next 20 Results ->" class="buttonlg">
        </div>

1 个答案:

答案 0 :(得分:0)

正如Omegastripes所说,该网站需要POST方法并填写两个必填参数。但是,我在代码下面粘贴了我找到完整结果的代码。经过测试。

postdata = "type=Name&rowlimit=200&count=1"
http.Open "Post", "http://www.sportfocus.com/comdir/morekeywords.cfm?cid=11&maj=cricket&ckid=102&min=clubs%20and%20Associations&kid=860&key=England", False
http.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
http.send postdata