Excel VBA script to prefill online form using IE? -
i in need of assistance. trying write vba script take value in column , place on online form in input element no id name ("oldurl"). vba script take value in adjacent cell in column b , place in same form ("digishop") in input field named ("newurl").
the form on secure server have gotten far window pulling , form selected. having trouble finding way target input field since have no id. below code , thank help.
sub redirect() dim ie object dim doc object dim form object dim oldurl object dim newurl object set ie = createobject("internetexplorer.application") ie .visible = true .navigate "https://...." until .readystate = 4: doevents: loop set doc = ie.document set form = doc.forms("digishop") set oldurl = doc.getelementbyid("oldurl")'error occurs here. element has no id oldurl.value = range("a2") set newurl = doc.getelementbyid("newurl") newurl.value = range("b2") form.submit until .readystate = 4: doevents: loop while .busy: doevents: loop end end sub
also wasn't sure how target entire column , loop therefore value set cell a2. more test script.
sub redirect() dim ie object dim doc object set ie = createobject("internetexplorer.application") ie .visible = true .navigate "https://...." until .readystate = 4: doevents: loop .document.forms("digishop") .elements("oldurl").value = range("a2") .elements("newurl").value = range("b2") .submit end until .readystate = 4: doevents: loop while .busy: doevents: loop end end sub
Comments
Post a Comment