|
缔造者 发表于 2014-5-3 10:00
老师您好!
再次请教个问题,如何按日期提取下面网址里的数据?
想在您给的程序基础上修改,结果没成功 ... - Sub cc()
- [a4:aO65536].ClearContents
- Set oDoc = CreateObject("htmlfile")
- With CreateObject("Msxml2.XMLHTTP")
- .Open "POST", "http://www.hn481.com/ResultHistory.aspx", False
- .setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
- .send "__VIEWSTATE=%2FwEPDwUKMjA4MzM0ODcyNGRk%2F8VFAtAx7oogzpXESL36XSkKamk%3D&__EVENTVALIDATION=%2FwEWBQLArNDBBgLdwIe2CAL6%2BO2aAQKH1MzlCAKM54rGBqH%2Fguo11B1bUAUxXe%2BvfN5Pd1eD&txtLoginName=&txtLoginPwd=&txtBeginTime=" & Format([A1], "YYYY-MM-DD") & "&DropDownList1=asc&Button1="
- oDoc.body.innerHTML = .responsetext
- Set r = oDoc.All.tags("table")(0).Rows
- For i = 3 To r.Length - 1
- k = [h65536].End(3).Row
- For j = 0 To r(i).Cells.Length - 1
- Cells(k + 1, j + 2) = r(i).Cells(j).innerText
- Next j
- Next i
- Set r = Nothing
- End With
- End Sub
复制代码 |
评分
-
2
查看全部评分
-
|