[求助]单位网页 自动填表[已解]

zhoulove01

bXn09RJz.rar (35.94 KB, 下载次数: 1075)

2008-9-27 12:05 上传

点击文件名下载附件
[求助]单位网页 自动填表

看了好多实例，比如百度邮箱登陆的，可是我的好像不一样（查看菜单→源文件和鼠标右建→源文件内容是不一样的），按照实例的方法行不通。所以请高手帮助看看。

附件是一个登陆窗口，单位里登陆后有一个报表要填，我没有上传这报表的网页。解决登陆窗口问题再说。

经过 northwolves 版主指点用[7楼]
C:/Documents%20and%20Settings/Administrator/桌面/欢迎进入电力客户服务中心.files/Login.htm
用这个联接打开方法可以解决问题，但很不方便。
所以再次请教一下，是不还有直接填写表单的方法！
即用
C:/Documents%20and%20Settings/Administrator/桌面/欢迎进入电力客户服务中心.htm
登陆的自动填写方法！

[此贴子已经被作者于2008-10-4 13:51:39编辑过]

northwolves

可参考登陆163信箱的代码:

Sub Goto163()
With CreateObject("InternetExplorer.Application")
.Visible = True
.navigate "http://mail.163.com"
Do Until .Readystate = 4
DoEvents
Loop
.Document.Forms(0).All("username").Value = "myusername"
.Document.Forms(0).All("password").Value = "mypassword"
.Document.Forms(0).All("登录邮箱").Click
End With
MsgBox "Ok"
End Sub

northwolves

更改上述代码中的网址,然后将

.Document.Forms(0).All("username").Value = "myusername"
.Document.Forms(0).All("password").Value = "mypassword"
.Document.Forms(0).All("登录邮箱").Click

------

改成

.Document.All("Work_No").Value = "myusername"
.Document.All("Passwd").Value = "mypassword"
.Document.All("Button1").Click

zhoulove01

这个方法我在版主以前的回答中看到过，但是我这里就不行。出现错误。如图！

northwolves

For i = 1 To .document.all.Length
Debug.Print .document.all(i).Name
Next

立即窗口看看该控件的名称

zhoulove01

Dim i As Byte
With CreateObject("InternetExplorer.Application")
.Visible = True
.navigate "file:///C:/Documents%20and%20Settings/Administrator/桌面/欢迎进入电力客户服务中心.htm"
Do Until .Readystate = 4
DoEvents
Loop
On Error Resume Next
For i = 1 To 100
If Len(.Document.All(i).Name) > 0 Then Debug.Print "i=" & i; "  name=" & .Document.All(i).Name
Next
End With

 

.Document.All("GENERATOR").Value = "myusername"   

还是出错的。

查看菜单→源文件和鼠标右建→源文件内容是不一样的

（通过楼上的方法，如图中所得结果在[查看菜单→源文件]这里可以看到对应名称。）可没用啊！

northwolves

.navigate "file:///C:/Documents%20and%20Settings/Administrator/桌面/欢迎进入电力客户服务中心.files/Login.htm"

zhoulove01

谢谢版主，原来是这么回事啊！太感谢了！

希望能有直接用默认页面打开后填表的方法。

[此贴子已经被作者于2008-10-3 19:00:45编辑过]

zhoulove01

顶上去，版主，再次提点一下啊！

northwolves

Sub macor1()
With CreateObject("InternetExplorer.Application")
.Visible = True
.navigate Environ("USERPROFILE") & "\桌面\欢迎进入电力客户服务中心.htm"
Do Until .Readystate = 4
DoEvents
Loop
With .document.frames("mainFrame").document.documentElement
.all("work_no").Value = "myusername"
.all("passwd").Value = "mypassword"
.all("Button1").Click
End With
End With
End Sub