求Excel级次考试题库或考试系统

求Excel等级考试题库或考试系统
各位大侠如果有的话请发邮件到 [email protected]
请顺便留下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)