[ad_1]
\n<\/p>\n
This particular web page isn’t using I can’t replicate your test case. However, I did make a test case of my own, and I think it works. In short, replace In the code below, Style suggestion: If you have more than one thing in a <select><\/code> and <option><\/code>. That suggests to me that they are using some custom JavaScript to simulate a drop-down list using the illustrated <div><\/code> and <span><\/code> elements. In addition, they are using onselect<\/code> rather than onclick<\/code> to trigger event handlers.<\/p>\npost.Click<\/code> with post.onselect<\/code>. The problem with your code was that it was trying to trigger an onclick<\/code> handler that didn’t exist on the target <span><\/code>!<\/p>\nHTML<\/h3>\n
<html>\n <head>\n <script type=\"text\/javascript\">\n function clk() { alert('Dental clicked'); } \/\/ *** So I could see if Click had an effect\n function sel() { alert('Dental selected'); } \/\/ *** Simulate the given testcase\n <\/script>\n <\/head>\n<body>\n <div class=\"cboGroupGrid\">\n <span class=\"cboItem\" option=\"0\"><\/span>\n <span class=\"cboItem\" option=\"1\" onselect=\"sel();\" onclick=\"clk();\">Dental<\/span>\n <span class=\"cboItem\" option=\"2\">Health<\/span>\n <span class=\"cboItem\" option=\"3\">Unknown Product<\/span>\n <\/div>\n<\/body><\/html>\n<\/code><\/pre>\nVBA<\/h3>\n
'''<\/code> are things I commented out because I didn’t have them and they weren’t essential to the task as I understand it.<\/p>\nPublic Sub IE_Search_and_Extract()\n\n Dim URL As String\n Dim IE As SHDocVw.InternetExplorer\n Dim HTMLdoc As HTMLDocument\n Dim response As String\n '''response = MsgBox(\"Login \", vbYesNo + vbQuestion, \"login\")\n '''If response = vbYes Then\n ''' URL = \" \"\n '''Else\n '''End If\n URL = \"prashant.htm\" ' ** Local testcase\n\n '''Set IE = Get_IE_Window(URL) ' ** I don't have the code for this function\n '''If IE Is Nothing Then\n Set IE = New SHDocVw.InternetExplorer\n '''End If\n\n With IE\n '''SetForegroundWindow .Hwnd ' ** I don't have this function\n .navigate URL\n .Visible = True\n While .Busy Or .readyState <> READYSTATE_COMPLETE\n DoEvents\n Wend\n\n '.document.getElementById(\"btnLogin\").Click\n\n' While .Busy Or .readyState <> READYSTATE_COMPLETE\n' DoEvents\n' Wend\n 'Application.Wait (Now + TimeValue(\"0:00:5\"))\n Set HTMLdoc = .document\n End With\n\n Dim post As Object, elem As Object\n For Each post In HTMLdoc.getElementsByClassName(\"cboItem\")\n If InStr(post.innerText, \"Dental\") > 0 Then ' ** Use a block If, not inline.\n 'post.Click ' ** This does work, and triggers clk()\n post.onselect ' ** This triggers sel()\n Exit For\n End If\n Next post\nEnd Sub\n<\/code><\/pre>\nThen<\/code> or Else<\/code> block, always use the multiline form. That way there’s no ambiguity about whether the :<\/code> ends the Then<\/code> block or not.<\/p>\n<\/p><\/div>\n