Dim dr As Row = Tables("B2B账号记录表.网站地址表").Current
Dim dzz As String = dr("网站地址")
On Error Resume Next
With CreateObject("internetexplorer.application")
.Visible = True
.Navigate(dzz)
Do Until .ReadyState = 4
Application.DoEvents
Loop
.Document.All("LoginID").Value = Tables("B2B账号记录表").Current("账号")
.Document.All("password").Value = Tables("B2B账号记录表").Current("密码")
End With
--------------------------------------------------------------------------------------------------------以上代码可正常运行！
Dim dr As Row = Tables("B2B账号记录表.网站地址表").Current
Dim zh As String = dr("账号框")
Dim mma As String = dr("密码框")
Dim dzz As String = dr("网站地址")
On Error Resume Next
With CreateObject("internetexplorer.application")
.Visible = True
.Navigate(dzz)
Do Until .ReadyState = 4
Application.DoEvents
Loop
.Document.All(zh).Value = Tables("B2B账号记录表").Current("账号")
.Document.All(mma).Value = Tables("B2B账号记录表").Current("密码")
End With
-------------------------------------------------------------------------------------下面这段代码将2个"LoginID" "password" 定量~ 变成了变量后~ 运行就会卡死~
请哪位大神看下看得出原因吗？
加好友 
发短信
Post By：2015/11/13 17:19:00 [只看该作者]
