我有一个网页,我正在从中提取数据.除了单击一个图像元素然后提交一个表单并创建一个带有数据的弹出窗口,我可以用VBA完成一切.
image元素中的一个属性称为“productguid”,其字符串值为=
“a12-545”.
这是我用鼠标手动点击后的HTML代码：
基于此,我假设image元素的productguid值在提交之前传递给表单.
这是我的VBA代码如下所示：
'Change the input element value
ie.Document.getElementById("GetProductQuantitiesForAccessibleBranches").all.item(0).value = "a12-545"
'Submit the form
ie.Document.getElementyId("GetProductQuantitiesForAccessibleBranches").Submit
根据Locals窗口,所有Javascript事件都是Null.这两行代码都运行没有任何错误,但网页不会更新.我在这里错过了什么吗？
我也试过用.Click方法单击图像元素,但这也没有做任何事情.
该网页受密码保护,因此我无法公开发布该网址.
更新：
这是标记中的HTML,通常手动单击,然后提交表单.也许这里有什么我可以使用的东西？
最佳答案
给我一个机会,我怀疑这将是一个“完美”的答案,而不是真正看到该网站.但是,这应该找到正确的图像标记,假设您没有任何框架/ iframe(请检查没有任何框架/ iframe),并且应该单击它.
Public Sub Click_IMG_Tag()
Dim Elements As Object
Dim Element As Object
'Get a pointer to IE etc first,I'm assuming this is already done
Set Elements = IE.Document.getElementsByTagName("img")
For Each Element In Elements
On Error Resume Next ' used to bypass elements that don't have .Title property
' later,you should error handle this exception
If Element.Title = "View Quantities At Other Locations" Then
Element.Focus
Element.Click
Element.FireEvent ("OnClick")
IELoad IE
Exit For
End If
Next
End Sub
Public Sub IELoad(Browser As Object)
While Browser.busy Or Browser.Readystate <> 4
Application.Wait (Now() + TimeValue("00:00:01"))
DoEvents
Wend
End Sub
