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

网页代码：

<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")

希望这能解决您的问题