求Excel等级考试题库或考试系统
各位大侠如果有的话请发邮件到 mdlzs@tom.com
请顺便留下CSDN ID送分。
谢谢！
[解决办法]
http://www.233.com/jsj/moniti/excel/
[解决办法]
这些考试又没多大技术含量的，随便操作一下就过了，无非就是些求和啊换字体啊加边框之类的
[解决办法]
Sub Excel职称计算机考试_2013()
On Error Resume Next
Set hf = CreateObject("htmlfile")
Set hf1 = CreateObject("htmlfile")
With CreateObject("WinHttp.WinHttpRequest.5.1")
.Open "GET", "http://www.233.com/jsj/moniti/excel/", False
.send
b = StrConv(.responseBody, vbUnicode, &H804) '.responsetext
a = Split(Split(b, "2013年职称计算机考试Excel2003模拟试题及答案汇总</a> </li>")(1), "</ul>")(0)
hf.body.innerHTML = a
Set r = hf.All.tags("a")
For i = 0 To r.Length - 1
Cells(i + 1, 3) = Replace(r(i).href, "about:", "http://www.233.com")
.Open "GET", Replace(r(i).href, "about:", "http://www.233.com"), False
.send
c = StrConv(.responseBody, vbUnicode, &H804) '.responsetext
hf1.body.innerHTML = c
Set s = hf1.getelementbyid("N_content")
Cells(i + 1, 1) = hf1.getelementbyid("N_title").innerText & vbCrLf & vbCrLf & Split(Split(hf1.getelementbyid("N_content").innerText, "推荐新闻")(0), "来源:")(0)
Next i
End With
End Sub
