|
本帖最后由 westwindgg 于 2019-3-3 09:10 编辑
先祝大家节日快乐,代码如下,但总是出现错误,即这一行代码“Set r = oDoc.all.tags("table")(5).Rows”,请大侠指点?之前支持没有问题。
Sub API()
Dim oDoc, r
Dim i As Integer, j As Integer, k As Integer, m As Integer
Cells.Clear
For m = 1 To 140
Set oDoc = CreateObject("htmlfile")
With CreateObject("WinHttp.WinHttpRequest.5.1")
.Open "POST", "http://www.cde.org.cn/yfb.do?method=list", False
.setrequestheader "Referer", "http://www.cde.org.cn/transparent.do?"
.setrequestheader "Content-Type", "application/x-www-form-urlencoded"
.send "yfbType_=1&pagetotal=300&statenow=1&djh=¤tPageNumber=" _
& m & "&pageMaxNumber=20&totalPageCount=1012&pageroffset=40&pageMaxNum=20&pagenum=" & m
.WaitForResponse
oDoc.body.innerhtml = .responsetext
Set r = oDoc.all.tags("table")(5).Rows
If m <> 1 Then
For i = 1 To r.Length - 1
k = [a65536].End(3).Row
For j = 0 To r(i).Cells.Length - 1
Cells(k + 1, j + 1) = r(i).Cells(j).innertext
Next j
Cells(k + 1, 11).Resize(1, 1) = Now()
Next i
Else
For i = 0 To r.Length - 1
k = [a65536].End(3).Row
For j = 0 To r(i).Cells.Length - 1
Cells(k + 1, j + 1) = r(i).Cells(j).innertext
Next j
Cells(k + 1, 11).Resize(1, 1) = Now()
Next i
End If
Set r = Nothing
Set oDoc = Nothing
End With
Next m
End Sub
|
|