(网页采集)如何在网上批量查询信息并提取到Excel（网页有图片验证码）

shenghua8

liucqa 发表于 2013-1-30 21:58
这个图片用ocr识别估计可以

liucqa  老师：
我已根据
http://club.excelhome.net/thread-917414-1-1.html
这个帖子
能显示验证码了，
可以手工录入验证码，
然后想请您帮我做个在网上批量查询信息的程序。
拜托了！{:soso_e183:}

kangatang

shenghua8 发表于 2013-2-20 11:10
kangatang 老师：

我已根据

识别验证码并不难，找个懂的人就能帮你解决。放弃验证码自动识别的求助，你感觉不到批量处理的意义。
我可以给你整个查询程序(由于学艺不精，半路出家，只会验证码人工识别)。但是你一旦得到验证码自动识别的帮助，我给你的程序就没有任何意义。还是继续求助把。。。。。

shenghua8

kangatang 发表于 2013-2-20 12:55
识别验证码并不难，找个懂的人就能帮你解决。放弃验证码自动识别的求助，你感觉不到批量处理的意义。
我 ...

能感觉到，能感觉到。
有意义，有意义。
我只输入验证码，总比一个一个的输入身份证号、姓名、考生号强噻。

kangatang

shenghua8 发表于 2013-2-20 14:30
能感觉到，能感觉到。
有意义，有意义。
我只输入验证码，总比一个一个的输入身份证号、姓名、考生号强 ...

"能感觉到，能感觉到。
有意义，有意义。...."

我怎么感觉你说话的时候有回音？

shenghua8

kangatang 发表于 2013-2-20 14:42
"能感觉到，能感觉到。
有意义，有意义。...."

{:soso_e106:}
可能是我选择了立体声混音和Mic加强。

kangatang

拿去用吧，人工识别。希望有人能帮你弄个自动识别。

有点像在练习盲打，有木有同感？
学信网批量查询大学新生学籍信息.rar (43.36 KB, 下载次数: 546)

2013-2-27 17:24 上传

点击文件名下载附件

kangatang

非常像二战时期德军半自动步枪，子弹手动上膛，并只能点射；
希望楼主早日找到德军的 Mg42 Machine Gun.
无条件支持教育事业

shenghua8

kangatang 发表于 2013-2-26 17:54
拿去用吧，人工识别。希望有人能帮你弄个自动识别。

kangatang 老师：
您太神了！{:soso_e179:}
有这效果，俺满意了！
这是俺在ExcelHome论坛以来，得到的最让我欣喜若狂的帮助！
我试用了，完全正确！

（一）您还考虑得非常细致，例如：
1、如果验证码错误，可无限次的重输，并提示"验证码错误请重新输入"；
2、如果没找到某考生，用Cells(i, 4).Value = Split(Split(rawdata, "_GB2312'""" & ">")(1), "</font>")(0)这句，显示错误信息（也是网页里提取的）；
3、如果姓名列没姓名，用If Cells(i, 3) = "" Then Cells(i, 3) = std_name这句，在姓名列里显示姓名。
……等等，等等。这充分体现了一个专业程序员的自我修养！

（二）原来我所准备的如下这两项，在您的程序里根本是无所谓的：
1、“考生号、身份证号、姓名三项中至少输入两项”，在您的程序里一句就搞定，无所谓三项还是两项；
2、我以为要重绘验证码图片，原来不必，在您的程序里只需显示一下验证码图片即可。

（三）实际应用中，根据情况不同可能需要变化的两处，请教 kangatang 老师：
1、表的结构不同，比如身份证号、考生号、姓名等分布的列不同，我只需更改每一个Cells(i, 列号)里的那个列号就可以了吧？
2、我希望根据表格实际多少行，就循环多少次，我将

1. For i = 2 To 44

复制代码

改成了

1. For i = 2 To ActiveCell.SpecialCells(xlLastCell).Row

复制代码

用起来到是能用，但这句是不是还能简化一下？请 kangatang 老师再帮我改改。

我对您的景仰已经不能用“感谢”二字来形容！{:soso_e183:}

kangatang

shenghua8 发表于 2013-2-27 16:43
kangatang 老师：
您太神了！
有这效果，俺满意了！

对于第二个要求
"2、我希望根据表格实际多少行，就循环多少次，我将"

我在16楼已经更新。每次运行都继续上次未完成的工作。试试。

至于第一个要求，你可自行修改。

shenghua8

kangatang 发表于 2013-2-27 17:25
对于第二个要求
"2、我希望根据表格实际多少行，就循环多少次，我将"

假如表格不是这么布局的，
“身份证号、考生号、姓名”不是ABC三列，
或者“院校名称”不在D列，或者D2以下不是空白，

1. lastone = Columns("A:C").Find("*", _
   
2.    SearchOrder:=xlByRows, LookIn:=xlFormulas, _
   
3.    SearchDirection:=xlPrevious).EntireRow.Row
   
4. firstone = [D65536].End(xlUp).Row

复制代码

还是不通用啊。