主题：[求助] 一段代码的疑惑！ 求大神帮看下

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

--------------------------------------------------------------------------------------------------------以上代码可正常运行！

-------------------------------------------------------------------------------------下面这段代码将2个"LoginID" "password"   定量~ 变成了变量后~   运行就会卡死~   

        Application.DoEvents

    Loop

 

也就是说明你的网址dzz有问题。弹出来到浏览器测试。

那么应该不是网址的问题吧？   上面的都正常的~    您再帮看下~ 下面这段跟上面的比  修改的部分

但是用上面那段文字~ 浏览器就能正常工作

帮看下~      需要实现的是~在账号表内双击打开相应的网站，然后在账号密码的输入框内自动输入数值！

代码主要在账号表的双击事件中...

-----------------主要是代码中的 LoginID password   这位置直接用这两个对应的数值就能成功~   用  Dim zh As String = dr("账号框")     Dim mma As String = dr("密码框") 来取代后就不行了！

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

End With