如何下载 土地招拍挂 信息

yangxwl5

各位老师，本人因工作关系，需要常常查询 当地 土地市场招拍挂信息，但是每次需要逐一点击进去核对 土地四至信息，自己学习了初步的 vba，感觉很强大，但是仍然做不来 这个查询，请大家 帮忙给看看？


vba实现网页数据采集，要求：
1.网址http1://pt.nxgtjy.nxgtt.gov.cn/GTJY/resslist_result?SSXZQ=640400&RESOURCELB=01[/url]，多页。

2.对列出的挂牌信息 逐一采集对应地块的基本信息:

比如：点击 37号土地，弹出页面的 http1://pt.nxgtjy.nxgtt.gov.cn/GTJY/landinfo?hasShowBut=1&ResourceID=3628[/url]里面的所有信息，包括 编号 位置  容积率 价格  单位  四至等等等；

3.遍历 每宗土地，将信息 填入 表格。

（网址http去掉1）

对我来说 难点：
1.如何vba里 准确 定位 每宗土地，根据源文件等  提取  其信息 填入  excel，
2.如何 循环，遍历每宗土地？

su45

咱对网页不熟悉，帮顶下吧！

qh8600

网抓啊，坐等大神解答

pengyx

有难度,出现登录错误的对话框?
<div class=""error_box"">
                <span class=""font1""><a href=""javascript:onLogin();"">操作有误请重新登录</a></span>
        </div>

pengyx

但正常登录一次后能采到数据.

雪舞子

楼主做个样表上传一下.

yangxwl5

这有一个，其他的循环 谁帮忙给往下 续写一下。

雪舞子

yangxwl5 发表于 2014-8-31 13:20
这有一个，其他的循环 谁帮忙给往下 续写一下。

       其他页面大同小异。楼主将 url = "http://pt.nxgtjy.nxgtt.gov.cn/GTJY/landinfo?hasShowBut=1&ResourceID=3628" 一句的“ID=3628”改成其他ID号，加个循环就可以了 。比如“固定（桂）字[2014]-36号" ID=3627，“固定（桂）字[2014]-35号" ID=3601等。

yangxwl5

雪舞子 发表于 2014-8-31 13:34
其他页面大同小异。楼主将 url = "http://pt.nxgtjy.nxgtt.gov.cn/GTJY/landinfo?hasShowBut=1&Re ...

对的，关键是 无法 对其 索引号 自动判断 和执行， 还有翻页 功能下  如何 遍历的问题。。

雪舞子

       所以让楼主做个样表就是想知道你到底要什么。既然主要获取的是地块基本信息，而且代码已经有了，只要知道相应网址ID就可以了。其实楼主勤奋一点完全可以手动获取，也就100多个网址不是很多。鼠标点100多下把ID号填入到表格就可以了，然后用那段代码循环一下。附件是给楼主抓取到的挂牌编号及ID。

土地交易.rar (14.83 KB, 下载次数: 8)

2014-8-31 16:33 上传

点击文件名下载附件