Excel uired“因此我更改为myHTMLFrame2.Links.dispatchEvent onChange‘线上错误’对象不支持此属性或方法”此行myHTMLFrame2.querySelector(“[value='New User(s)]”)。Sele
Excel uired“因此我更改为myHTMLFrame2.Links.dispatchEvent onChange‘线上错误’对象不支持此属性或方法”此行myHTMLFrame2.querySelector(“[value='New User(s)]”)。Sele,excel,vba,internet-explorer,web-scraping,Excel,Vba,Internet Explorer,Web Scraping,uired“因此我更改为myHTMLFrame2.Links.dispatchEvent onChange‘线上错误’对象不支持此属性或方法”此行myHTMLFrame2.querySelector(“[value='New User(s)]”)。Selected=True正在生成错误?Set onChange=myHTMLFrame2.document.createEvent(“htmlevents”)“文档结果错误”对象不支持此属性或方法“已删除文档,则无错误集onChange=myHTML
uired“因此我更改为myHTMLFrame2.Links.dispatchEvent onChange‘线上错误’对象不支持此属性或方法”此行myHTMLFrame2.querySelector(“[value='New User(s)]”)。Selected=True正在生成错误?Set onChange=myHTMLFrame2.document.createEvent(“htmlevents”)“文档结果错误”对象不支持此属性或方法“已删除文档,则无错误集onChange=myHTMLFrame2.CreateEvents(“htmlevents”)Links.dispatchEvent onChange'error”需要对象“因此我更改为myHTMLFrame2.Links.dispatchEvent onChange'Over line error”对象不支持此属性或方法“谢谢,但什么也没发生myHTMLFrame2.getElementById(“QSGAA5V0GAFRWAOL34D8OK78W2ZUJO”).Value=“新用户”我建议您首先检查HTML文档的对象是否已正确分配,它是否引用了正确的页面。之后,您可以尝试在document中查找元素。谢谢,但myHTMLFrame2.getElementById(“QSGAA5V0GAFRWAOL34D8OK78W2ZUJO”).Value=“新用户”我建议您首先检查HTML文档的对象是否已正确分配,并且它引用了正确的页面。之后,您可以尝试在文档中查找元素。
myHTMLFrame2.all.Item("QSGAA5V0GAFRWAOL34D8OK78W2ZUJO").Focus
myHTMLFrame2.all.Item("QSGAA5V0GAFRWAOL34D8OK78W2ZUJO").selectedIndex = 1
myHTMLFrame2.all.Item("QSGAA5V0GAFRWAOL34D8OK78W2ZUJO").FireEvent "onchange"
Dim myHTMLFrame2 As HTMLDocument
Set myHTMLFrame2 = HTMLDoc.frames(3).document
Dim elem As Object
Set elem = myHTMLFrame2.document.getElementById("QSGAA5V0GAFRWAOL34D8OK78W2ZUJO")
(results in "object not supported error")
elem.Focus
elem.selectedIndex = 2
<div id="QSGAA5V0GAFRWAOL34D8OK78W2ZUJO-answer-body">
<div class="select_holder select_jquery">
<select id="QSGAA5V0GAFRWAOL34D8OK78W2ZUJO" overwrite="1" level="0"
val="$escapeTool.html($!{answerValue})" required="true" questionid="QSGAA5V0GAFRWAOL34D8OK78W2ZUJO" totalorder="0" questiondefid="QDGAA5V0GAFRWAOL34D8OK78W2ZUJP"
responsetype="STATIC_MENU" autocomplete="off"
aria-activedescendant="" aria-labelledby="QSGAA5V0GAFRWAOL34D8OK78W2ZUJO-label" tabindex="0">
<option value=""></option>
<option value="New User(s)" ps="0" aria-selected="false">New User(s)</option>
<option value="Modify User Details or Applications" ps="1" aria-selected="false">Modify User Details or Applications</option>
<option value="Add/Modify User By Attachment" ps="2" aria-selected="false">Add/Modify User By Attachment</option>
<option value="clear">(clear)</option>
</select>
</div>
</div>
Dim dropDown As Object, onChange As Object
Set dropDown = ie.document.querySelector("select[overwrite='1']")
Set onChange = ie.document.createEvent("htmlevents")
onChange.initEvent "change", True, False
ie.document.querySelector("[value='New User(s)']").Selected = True
links.dispatchEvent onChange
Sub demo()
Dim URL As String
Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
URL = "C:\Users\Administrator\Desktop\107.html"
IE.Navigate URL
Do While IE.ReadyState = 4: DoEvents: Loop 'Do While
Do Until IE.ReadyState = 4: DoEvents: Loop 'Do Until
IE.Document.GetElementByID("QSGAA5V0GAFRWAOL34D8OK78W2ZUJO").Value = "Modify User Details or Applications"
Set IE = Nothing
End Sub
myHTMLFrame2.all.Item("QSGAA5V0GAFRWAOL34D8OK78W2ZUJO_input").Focus
myHTMLFrame2.all.Item("QSGAA5V0GAFRWAOL34D8OK78W2ZUJO_input").Value = "New User(s)"
myHTMLFrame2.all.Item("QSGAA5V0GAFRWAOL34D8OK78W2ZUJO_input").Click
Application.SendKeys "{DOWN}"
Application.SendKeys "{DOWN}"
Application.SendKeys "~"