使用VBA解析HTML文档

    Sub test()

    Dim>
        With ie

            .Visible = False '显示它

            .navigate "E:\temp\divcss.html" '加载某个页面

            Do Until .readyState = 4 '等待页面加载完毕

                DoEvents

            Loop

            Set>
            '开始操纵页面，或者提取数据啦

            Set>
        End With

    End Sub