一个网页已经手动打开并登陆成功，怎样用VBA接管操作这个网页中的元素。

Posted 2023-03-28

该网页地址如下：
http://www.wanlicai.com/sd11y/index.shtml
用户名：测试
密码：88888888
之所以要先手动登陆成功，是因为有些网页登陆时要求图形验证码，本例虽然没有要求图形验证码登陆，并不影响对问题的描叙，特此说明。旨在寻求一种用VBA对已经打开网页接管控制的一种方法。
比方说在本例中怎样在接管后按网页中的一个按（可以任意取一个按钮标签写代码操作）。

Sub test2()
'已打开网页里面查找百度网，对其进行输入数据

Dim oWin As Object, Existed As Boolean

Existed = False
With CreateObject("shell.application")
For Each oWin In .Windows
If oWin.locationurl = "https://www.baidu.com/" Then‘按网址查找
Set wwwbaidu = oWin
Existed = True
Set wwwbaidu = oWin.document
Exit For
End If
Next
End With

wwwbaidu.getElementById("kw").Value = "66" ’查找对话框输入66

End Sub 参考技术A Dim temp As String
temp = Form1.WebBrowser1.Document.getElementById("jitai")

temp = Form1.WebBrowser1.Document.getElementById("jitai").value追问

不是在EXCEL窗体中打开的网页，是通过IE或其他浏览器打开的网页。

本回答被提问者采纳 参考技术B 呵呵，怎么不去EH问呢？