我是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