网页的系统数据导出问题，望Winland、上旋下弦月、狼版等等大侠们不吝赐教！

hcjsy

        附件“材料”中的图片是网页打开时显示的内容，点击“下一个”可显示下一个人的承包信息。这是一个基于网页的承包管理系统，
Sub b()
    Dim ie
    [a1:e1] = Split("发包方全称,承包方代表姓名,地块名称,确认面积,地类", ",")
    Set ie = CreateObject("internetexplorer.application")
With ie
   .Navigate "http://192.168.1.25:8008/"
   .Visible = True
   Do Until .ReadyState = 4
     DoEvents
   Loop
   .document.forms(0).all("txtUserName").Value = "password"
   .document.forms(0).all("txtPassword").Value = "123456"
   .document.forms(0).all("ImageButton1").Click
End With
End Sub
运行如上代码，登录系统后的网址是http://192.168.1.3:8008/CountyFrame.aspx（无论后面做什么操作，网址都不会发生变化），
“源”是打开如图片所示网页时的源文件，原始源的地址是http://192.168.1.3:8008/OprateCertify/CertifyRegeditPrint.aspx?tid=3&cid=1000127681。现在需要按照现在表格的样式导出所有承包户的信息！麻烦高手不吝赐教，能多做注释，让我能多多学习，麻烦了，谢谢！或者能提供相似的案例、模板，我来慢慢研究！

wpxxsyzx

网页打不开

hcjsy

wpxxsyzx 发表于 2011-11-7 16:20
网页打不开

网址是系统内网用的

hcjsy

望大家能提供些思路，或可以参考的模板！谢谢你们了！

hcjsy

继续在这盼望高手指点啊！谢谢

hcjsy

Winland、上旋下弦月、狼版等等大侠们，你们可曾看到我真诚的呼唤？麻烦出手帮帮我吧，不胜感激！

hcjsy

每天顶一顶，盼望大侠能看见！

hcjsy

a814153 发表于 2011-11-9 12:40
忠县农村土地承包经营权证登记簿

第一时间先谢谢您！然后再慢慢学习消化！

hcjsy

问题进展了一小步，望高手指点后面的关键步骤！谢谢