Question

我正在使用VBA与IE中的网站进行交互。

作为其中的一部分，我需要点击那里的按钮，但是简单的.Click不起作用，因为我需要触发此按钮后面的JS onclick事件。

有人可以通过模拟点击并触发事件或直接调用JS事件来告诉我如何实现这一目标吗？

这应该在以下VBA代码之后发生。

我的VBA代码：

Dim IE As Object
Dim MyURL As String
Dim varResults As New DataObject

varResults.SetText TxtSql.Text
varResults.PutInClipboard
Unload FrmResults

Set IE = CreateObject("InternetExplorer.Application")

MyURL = "https://myFirstUrl"

IE.Navigate MyURL
IE.Visible = True

While IE.busy
    DoEvents
Wend

Application.Wait (Now + TimeValue("0:00:02")) ' to allow time for loading the page

按钮后面的onclick JS事件：

javascript:document.forms.jobProfileForm.action='https://mySecondUrl';document.forms.jobProfileForm.submit()

按钮的HTML：

<input class="normalbttn" id="editProfileBttn" value="Edit Profile" onclick="theAboveJS" type="button"></input>

Answer 1

试试这个：

IE.Document.getelementbyid("editProfileBttn").fireevent ("onclick")

使用VBA在网站上调用onclick JS事件按钮

1 个答案: