急求在网站上批量下载多页表格数据

北方的雨 · 发表于 2013-4-7 10:39

我想下载http://datacenter.mep.gov.cn/report/air_daily/air_dairy.jsp网站上的数据，比如下载齐齐哈尔2005年1月1日到2011年12月31日的数据，有好多页，要是一页一页粘贴复制，累死了，因为我要用好多城市的数据，求高手指点~~

feideyi · 发表于 2013-4-7 11:05

选定一个工作表，引用网页数据。再选第二个工作表或单元格，换第二个网址，引用数据。。。。。。。。。。。。类推

未命名.jpg

北方的雨 · 发表于 2013-4-7 11:09

feideyi 发表于 2013-4-7 11:05
选定一个工作表，引用网页数据。再选第二个工作表或单元格，换第二个网址，引用数据。。。。。。。。。。。 ...

谢谢你，不过，这样我一个城市要导入两千多次，而且数据越多越慢，比我最后粘贴复制还慢了。我想求一个批量下载的方法，一次下载所有时间段的数据。

feideyi · 发表于 2013-4-7 11:12

北方的雨发表于 2013-4-7 11:09
谢谢你，不过，这样我一个城市要导入两千多次，而且数据越多越慢，比我最后粘贴复制还慢了。我想求一个批 ...

估计得求网站了

ccwan · 发表于 2013-4-7 11:51

本帖最后由 ccwan 于 2013-4-7 11:52 编辑

Sub cc()
On Error Resume Next
Set oDoc = CreateObject("htmlfile")
With CreateObject("WinHttp.WinHttpRequest.5.1")
For p = 1 To 7661
.Open "POST", "http://datacenter.mep.gov.cn/report/air_daily/air_dairy.jsp", True
.setRequestHeader "Referer", "http://datacenter.mep.gov.cn/report/air_daily/air_dairy.jsp"
.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
.setRequestHeader "Connection", "Keep-Alive"
.setRequestHeader "Cookie", cookies
.Send "page=" & p & "&startdate=2005-01-01&city=&enddate=2011-12-31&"
.WaitForResponse
oDoc.body.innerHTML = .responsetext
Set R = oDoc.all.tags("table")(3).Rows
n = Range("a1048576").End(xlUp).Row
For i = 1 To R.Length - 2
For j = 0 To R(i + 1).Cells.Length - 1
Cells(i + n, j + 1) = R(i + 1).Cells(j).innerText
Next j
Next i
n = n + 30
Set R = Nothing
Next p
End With
End Sub

复制代码

北方的雨 · 发表于 2013-4-7 12:57

ccwan 发表于 2013-4-7 11:51

太棒了！高手，谢谢！！！！感激不尽~~~

ak47ok · 发表于 2013-12-3 17:56

每次回帖、谢谢！

BOBOKULA · 发表于 2014-10-24 18:25

ccwan 发表于 2013-4-7 11:51

我用这个怎么没有成功，有没有具体的操作步骤，我有同样的难题。

Caprius · 发表于 2015-2-2 13:25

我也想知道是怎么操作的呢，求指导~

Caprius · 发表于 2015-2-2 13:26

ccwan 发表于 2013-4-7 11:51

求大神指导，我是程序小白。。

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

[求助] 急求在网站上批量下载多页表格数据