|
本帖最后由 hcjsy 于 2011-11-11 16:44 编辑
附件“材料”中的图片是网页打开时显示的内容,点击“下一个”可显示下一个人的承包信息。这是一个基于网页的承包管理系统,
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。现在需要按照现在表格的样式导出所有承包户的信息!麻烦高手不吝赐教,能多做注释,让我能多多学习,麻烦了,谢谢!或者能提供相似的案例、模板,我来慢慢研究!
|
|