IE Automatin 点击按钮 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")

希望能解决你的问题