不懂抓网也来求抓网

卢嘉轩 · 发表于 2017-1-2 09:55

本帖最后由卢嘉轩于 2017-1-2 15:39 编辑

大学资料汇总.rar (125.99 KB, 下载次数: 27) 网抓大学资料500家，新手求高手写网抓VBA代码。不胜感谢！给网抓获结果也可以。

Kaohsing · 发表于 2017-1-3 07:41

抓取的内容太多，有的还要转word。

Sub PU_ALL_DATA()
Dim tt$
With CreateObject("Msxml2.XMLHTTP")
.Open "GET", "http://www.gaokaopai.com/daxue-jianjie-477.html", False
.send
tt = .responseText
End With
tt = "<table>" & Split(Split(tt, "<div class=""intro"">")(1), "以上数据由高考派")(0) & "</table>"
With CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
.SetText tt
.PutInClipboard
End With
Cells.Clear
[a1].Select
ActiveSheet.Paste
End Sub

复制代码

Kaohsing · 发表于 2017-1-4 16:04

数据有效性有数量限制，只取得“高考派大学录取难度榜单 - 全国榜”前125所大学做查询。只是简单的处理了数据。没做格式处理。

Kaohsing · 发表于 2017-1-5 09:22

试着尽自己的能力改了改。

fxl447098457 · 发表于 2017-1-2 11:22

我还以为你来教我们菜鸟咋网抓。。。

卢嘉轩 · 发表于 2017-1-2 12:00

fxl447098457 发表于 2017-1-2 11:22
我还以为你来教我们菜鸟咋网抓。。。

我一个星，你四个星，我比你菜！

卢嘉轩 · 发表于 2017-1-3 06:57

我一个星，你四个星，我比你菜！

卢嘉轩 · 发表于 2017-1-3 12:31

Kaohsing 发表于 2017-1-3 07:41
抓取的内容太多，有的还要转word。

是啊，抓了第一还要抓第二，还有历年分数线。

卢嘉轩 · 发表于 2017-1-4 06:32

Kaohsing 发表于 2017-1-3 07:41
抓取的内容太多，有的还要转word。

暂时只能抓获一条记录。

Kaohsing · 发表于 2017-1-4 12:05

不要着急，正在编写与完善。

卢嘉轩 · 发表于 2017-1-5 07:14

Kaohsing 发表于 2017-1-4 16:04
数据有效性有数量限制，只取得“高考派大学录取难度榜单 - 全国榜”前125所大学做查询。只是简单的处理了数 ...

你好历害啊！！！下拉菜单是有长度限制。我要的是湖北文科。并且查询一次复制一个附本。

		自动登录	找回密码
密码			免费注册