在指定网站查询信息并记录结果

APPLE123

在指定网站查询信息并记录结果

现需要审核本表B列人员是否为注册会计师，通过手工一个一个上网核对比较费时，可否使用VBA一次查询，然后对同名同姓的辅以手工核对判别。

1、在网站http://cmispub.cicpa.org.cn/cicpa2_web/public/query0/2/00.shtml  查询注册会计师信息；

2、“所在地区”为本表c列数据，如“上海注协”；

3、“注册会计师姓名”=本表b列，如“林伟”；

4、查询结果

如果没有找到，则在D列填写“查无此人”；

如果找到1人，则在D列填写“1”，并将结果复制到I、j、k、l列

如果找到2人，则在D列填写“2”，并将结果复制到I、j、k、l列，m、n、o、p列

.......

依此类推填写与复制。

5、需要查询的姓名很多,本表仅是举例。

请大师帮帮忙？可否使用VBA解决？

谢谢！

APPLE123

大神呢？前各位大神帮帮忙，谢谢！

xinlan6

看来这个比较难，
建议搜索一下高考成绩查询、录取查询之类的，应当有所启发

onlycxb

1.POST   http://cmispub.cicpa.org.cn/cicpa2_web/PersonIndexAction.do
         senddata method=indexQuery&queryType=2&isStock=00&pageSize=&pageNum=&ascGuid=&offName=&perCode=编号&perName=
特定码在><a href="javascript:viewDetail('0000010F84B1018048664EC297A5C030','张琪')">张琪</a></td>
中获取

2. GET  “http://cmispub.cicpa.org.cn/cicpa2_web/07/特定码.shtml ”
   

APPLE123

onlycxb 发表于 2018-3-20 21:46
1.POST   http://cmispub.cicpa.org.cn/cicpa2_web/PersonIndexAction.do
         senddata method=inde ...

谢谢老师的关注与帮助！我再试试

也希望各位老师多帮帮忙，谢谢！

songjiecf

这种自动查询我的建议你还是PYTHON实现比较容易一点。EXCEL不太好实现。

APPLE123

songjiecf 发表于 2018-3-21 16:35
这种自动查询我的建议你还是PYTHON实现比较容易一点。EXCEL不太好实现。

请教songjiecf老师，PYTHON如何做？谢谢！

APPLE123

onlycxb 发表于 2018-3-20 21:46
1.POST   http://cmispub.cicpa.org.cn/cicpa2_web/PersonIndexAction.do
         senddata method=inde ...

老师，我试了一天了，也没弄好。我的基础太差了。
可否麻烦老师帮忙整个完整的代码。
谢谢！

xyxcc177

onlycxb老师的方法可行，这是个框架网页，用Webbrowser控件也可以取得数据

APPLE123

xyxcc177 发表于 2018-3-21 22:55
onlycxb老师的方法可行，这是个框架网页，用Webbrowser控件也可以取得数据

请教老师，具体代码怎么写，可否请老师帮帮忙？谢谢！