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

kangatang

shenghua8 发表于 2013-2-27 17:33
假如表格不是这么布局的，
“身份证号、考生号、姓名”不是ABC三列，
或者“院校名称”不在D列，或者D2 ...

那就上传模版附件。我帮你把代码加进去。

shenghua8

kangatang 发表于 2013-2-27 17:36
那就上传模版附件。我帮你把代码加进去。

要考虑不能泄露太多的个人信息，重做一遍模版比较费事，
再有，每年的表格可能都不太一样，
所以我就不传模版了。
您已经将程序写得很细了，
这样吧，每次用时，我根据情况将列标或列号改一下即可。

shenghua8

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

kangatang 老师：
我重新学习您的解答时，才发现您说的这句话：
“每次运行都继续上次未完成的工作。”
哇！简直太好了！您考虑得真周到！{:soso_e142:}

不过，我还是仅针对我的需要，将您的这两行代码改了一下，请您批阅并指正：
1、第一个非空单元格
firstone = [D65536].End(xlUp).Row
改成了
firstone = Cells(Rows.Count, 6).End(xlUp).Row
同时我将Cells(i, 4).Value = Split那句也改成了Cells(i, 6).Value = Split
这样，以“学籍状态”列来定位第一个非空单元格的行号，
以后，我只需根据“学籍状态”在哪一列，将6改成相应的列数就可以了。
而且，Rows.Count比65536更通用于Excel 2003/2007前后的版本。

2、最后一个非空单元格
lastone = Columns("A:C").Find("*", _
   SearchOrder:=xlByRows, LookIn:=xlFormulas, _
   SearchDirection:=xlPrevious).EntireRow.Row
改成了
lastone = Cells(1, 1).SpecialCells(xlLastCell).Row
这样，不论“身份证号、考生号、姓名”分布在哪几列，我只要找到全表的最后一个非空单元格就可以了，以后表有变化，这一句也不用改。

请您批阅并指正。

kangatang

shenghua8 发表于 2013-2-28 10:08
kangatang 老师：
我重新学习您的解答时，才发现您说的这句话：
“每次运行都继续上次未完成的工作。” ...

感谢提醒，向你学习。
程序有点意想不到的用途，我觉得可以用它练习盲打和测试打字速度。批量处理还是有点艰难。

shenghua8

kangatang 发表于 2013-2-28 10:14
感谢提醒，向你学习。
程序有点意想不到的用途，我觉得可以用它练习盲打和测试打字速度。批量处理还是有 ...

使不得，使不得，您可折煞我了！

还真像您说的，同时练习了盲打。{:soso_e151:}

shenghua8

kangatang 发表于 2013-2-28 10:14
感谢提醒，向你学习。
程序有点意想不到的用途，我觉得可以用它练习盲打和测试打字速度。批量处理还是有 ...

kangatang老师：
If Not InStr(rawdata, "院校名称") > 0 Then
                   Cells(i, 4).Value = Split(Split(rawdata, "_GB2312'""" & ">")(1), "</font>")(0)
这句，
我要改成
If Not InStr(rawdata, "学籍状态") > 0 Then
                   Cells(i, 6).Value = Split(Split(rawdata, "_GB2312'""" & ">")(1), "</font>")(0)

请问 If 后面括号里的"院校名称"我改成了"学籍状态"，不会有什么影响吧？

kangatang

shenghua8 发表于 2013-2-28 11:10
kangatang老师：
If Not InStr(rawdata, "院校名称") > 0 Then
                   Cells(i, 4).Value  ...

不会的。只是为了判断有无此学生。

kangatang

我不知道楼主为什么被禁言。至少其他网友应该有知情权吧。法律都提倡透明，何况是网站之规矩。

shenghua8

皆因我重复为我另一个帖子做推广。

shenghua8

kangatang 发表于 2013-6-19 09:02
我不知道楼主为什么被禁言。至少其他网友应该有知情权吧。法律都提倡透明，何况是网站之规矩。

谢谢 kangatang 老师的仗义之言。
好了，7天禁言结束了，现在能发言了。
之前被禁是因为我重复推广我的这个帖子：
最好的PDF转Excel软件：PDF2XL 4.12 企业版。本人汉化
http://club.excelhome.net/thread-1028269-1-1.html