javascript - IE 自动化单击按钮 VBA

Question

我无法从 HTML 代码访问提交按钮，我尝试了一些代码，但这些代码不起作用。希望大家能从下面的信息中找到解决方案。

我的代码:

Sub GetIE()

Dim shellWins As ShellWindows
Dim IE As InternetExplorer

Set shellWins = New ShellWindows
Set IE = shellWins.Item(0)

IE.document.all("linerepricedamount").Value = "Value"
IE.document.all("linestatus").Value = "value"

'In Next step i want to click a submit button
'I Tried everything but those codes are not working

Set IE = Nothing
Set shellWins = Nothing

End Sub

HTML 代码:

<TD> <Input id="button" Type="Button" Value= "SaveLine" Name= "Button"
onclick="JavaScript:return save_line_onclick("saveline.d")> </TD>`

Answer 1

您需要触发 onclick 事件

Dim btnObject as Object

Set btnObject = IE.document.getElementbyID("button")
    btnObject.FireEvent("onclick")

希望这能解决您的问题