查找使用VBA通过JS动态添加的网页元素

时间:2017-02-02 18:14:56

标签: vba excel-vba internet-explorer dom excel

我是VBA的新手。我正在研究一些与IE网站互动的VBA表单。对于只有HTML元素的标准网站,下面的工作原理是我将数据从我的VBA表单传递到网站 - 我用不同的页面成功测试了这个。

我现在的问题是我有一个网站,其中 textarea既有ID又有名字,但不是网站基本HTML的一部分,而是通过JS动态添加单击按钮后发生事件。 因此,我的标准VBA代码无法正常工作,因为它无法在网站上找到相应的元素。

是否有以不同的方式在网站上查找动态添加的元素?就我而言,这也是该网站上唯一的textarea元素。

我的代码:

Dim objDataObject As New DataObject
Dim objIE As Object
Dim varUrl As String

objDataObject.SetText TxtSql.Text
objDataObject.PutInClipboard

Set objIE = CreateObject("InternetExplorer.Application")

varUrl = "https://myurl.com/"

objIE.Navigate varUrl
objIE.Visible = True

While objIE.busy
    DoEvents
Wend

With objIE.Document
    .getElementById("myId").Value = objDataObject.GetText(1)
End With

0 个答案:

没有答案