Tim,
As always, thank you for the help. Yes, it was a matter of checking my own
spelling. You have helped me in the past, and I appreciate the help now.
When I do need to do IE automation, I usually end up doing an Advanced Search
for your posts. However, I'm still far removed from truly knowing the "best"
way to do IE automation.
For example, I don't know the best way to get the checkbox description text.
So, if you open the webpage you see the following:
52 Week High (Question Mark Picture) [checkbox] (for which the HTML can be
found in the chain).
I can tell that the <tr tag is prior to "52 Week High" and that a <div tag
seems to be associated with the mouseover text. In my code, the
".parentElement.parentElement.innerText" returns "52 Week High + the
mouseover text". I simply want "52 Week High". I found a previous post that
had code that I thought might be helpful:
retVal = o.Document.getElementById("member-jacket").rows[0].cells[0].innerText
However, I don't know if I'm thinking about this the right way, i.e. trying
to access the text of a specific row/cell. (I'm also assuming that HTML
tables have rows, columns, and/or cells; however, I don't know how a
rows/columns delineation -- like in an Excel spreadsheet -- is different than
the rows[0].cells[0] shown above. Logic tells me that rows[0].cells[0] is
the first row, first cell).
Do you have advice for getting the "52 Week High" portion of text? (Right
now, it appears that the <div text is preceeded by a double space, but I
don't want to rely on using a double space as a way of separating the <tr
text from the <div text).
Thanks,
Matt
Set objTarget = objIE.document.getElementsByName("p_columns[]")
lngCnt = 0
For Each Obj In objTarget
Set objDesc = Obj.parentElement.parentElement
'not sure what to do here to get the <tr text
strText = objDesc.innerText
"Tim Williams" wrote:
Matt,
'thought the following might work, but I get an error
'Set objTarget = objIE.docmument.getElementsByName("p_columns[]")
Should work if you correct the typo in "document" ;-)
Tim
"Matthew Herbert" wrote in
message ...
All,
My question relates to the code listed in "ListCheckBoxes" below. You
should be able to simply copy and paste all the VBA code below and run
"ListCheckBoxes" in order to follow the logic of my code.
I'm looking for a "better" way of obtaining the collection of web browser
checkbox controls for the following URL:
http://www.zacks.com/screening/custo....php?sid=87639 (and a small
sample
of the HTML is also below), so that I can check the desired check boxes
based
on the text description that lines up with the checkbox. (See the website
for a visual representation).
My Desired Goal:
Since each checkbox has a description (e.g. "52 Week High", "Market Cap
(millions)", etc.), I plan on using the description as a way to identify
whether the checkbox should be checked. The user will have a list of
descriptions in the spreadsheet. The program will then loop through the
spreadsheet list, search the description text for a match (the
".parentElement.parentElement.innerText" portion below, which can be
combined
with InStr to find a "match"), and check the checkbox if a match exists.
Again, I'm looking for a "better" way to do this. My IE automation
knowledge is very limited, so I don't know if there is a way to get the
object collection via the class (i.e. "tdata1", and I don't know how or if
getting a collection from the class is possible), the name (i.e.
"p_columns[]"), the tag (i.e. "input"), etc. Or, maybe there is simply a
better way than my current logic. I'm open to suggestions and general
knowledge that may help me better understand IE automation. (For example,
is
adding a reference to "Microsoft HTML Object Library", opening the Object
Browser, and then searching the HTML* classes a good way to
"discover/learn"
IE automation? It's probably a loaded question that doesn't have a
"great"
answer.)
Thanks,
Matthew Herbert
VBA:
Private Sub ListCheckBoxes()
Dim objIE As Object
Dim objTarget As Object
Dim Obj As Object
Dim objArr() As Object
Dim lngCnt As Long
Dim strURL As String
strURL = "http://www.zacks.com/screening/custom/view.php?sid=87639"
Set objIE = GetIE(strURL)
If objIE Is Nothing Then
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = True
objIE.Navigate strURL
WaitForLoad objIE
End If
Set objTarget = objIE.document.all.tags("input")
'thought the following might work, but I get an error
'Set objTarget = objIE.docmument.getElementsByName("p_columns[]")
For Each Obj In objTarget
If Obj.Type = "checkbox" Then
ReDim Preserve objArr(lngCnt)
Set objArr(lngCnt) = Obj
lngCnt = lngCnt + 1
End If
Next Obj
For lngCnt = LBound(objArr) To UBound(objArr)
Set Obj = objArr(lngCnt)
With Obj
'listed properties are some of what is viewable
' from "View Source" and what is embedded in
' the tag
'not sure how to list the "class" though
Debug.Print "lngCnt :" & lngCnt
Debug.Print " Prnt.Prnt:" & .parentElement.parentElement.innerText
Debug.Print " name :" & .Name
Debug.Print " type :" & .Type
Debug.Print " value :" & .Value
Debug.Print " id :" & .ID
Debug.Print " innerHTML:" & .innerHTML
Debug.Print " innerText:" & .innerText
'check the box
'.Checked = True
End With
Next lngCnt
End Sub
Function GetIE(strAddress As String) As Object
'---------------------------------------------------------------------
'INFO: Original from Tim Williams
' ??/??/2007, Matthew Herbert
'---------------------------------------------------------------------
Dim objShell As Object
Dim objShellWindows As Object
Dim Obj As Object
Dim objRes As Object
Dim strURL As String
Set objRes = Nothing
Set objShell = CreateObject("Shell.Application")
Set objShellWindows = objShell.Windows
'see if IE is already open
For Each Obj In objShellWindows
strURL = ""
On Error Resume Next
strURL = Obj.document.Location
On Error GoTo 0
If strURL < "" Then
If strURL Like strAddress & "*" Then
Set objRes = Obj
Exit For
End If
End If
Next Obj
Set GetIE = objRes
End Function
Sub WaitForLoad(objIE As Object)
'---------------------------------------------------------------------
'INFO: Original from Tim Williams
' 07/08/2009, Matthew Herbert
'---------------------------------------------------------------------
Do Until objIE.Busy = False And objIE.readyState = 4
Application.Wait (Now() + TimeValue("0:00:01"))
DoEvents
Loop
End Sub
HTML Sample, which was a simple copy and paste from View Source:
<div class="restable"
<span class="nudge select_choose_header"Select Criteria</span
<div id="criteriaBox"
<table id="table10000" class="viewCriteria" cellspacing=0 cellpadding=0
<tr
<td class="textB" colspan=2Popular Items</td
</tr
<tr<td class=tdata1Current Zacks Rank
<a class="hand" onclick="show('div_15005');"
onmouseout="hide('div_15005');"<img src="/images/help_q.jpg"
class="qPlace"
border="0"</a
<div class=qdiv style="visibility: hidden; border: 1px solid black;"
id="div_15005" onmouseover="show('div_15005');"
onmouseout="hide('div_15005');"Shortened for brevity's sake</div
</td
<td class=tdata1 width=20<a
href="https://www.zacks.com/registration/premium_login.php?zmessage=&continue_to=/screening/custom/view.php"<img
src="/images/premium_small.gif" border=0</a</td
</tr<tr<td class=tdata1Zacks Industry Rank
<a class="hand" onclick="show('div_15025');"
onmouseout="hide('div_15025');"<img src="/images/help_q.jpg"
class="qPlace"
border="0"</a
<div class=qdiv style="visibility: hidden; border: 1px solid black;"
id="div_15025" onmouseover="show('div_15025');"
onmouseout="hide('div_15025');" Shortened for brevity's sake </div
</td
<td class=tdata1 width=20<a
href="https://www.zacks.com/registration/premium_login.php?zmessage=&continue_to=/screening/custom/view.php"<img
src="/images/premium_small.gif" border=0</a</td
</tr<tr<td class=tdata152 Week High
<a class="hand" onclick="show('div_14010');"
onmouseout="hide('div_14010');"<img src="/images/help_q.jpg"
class="qPlace"
border="0"</a
<div class=qdiv style="visibility: hidden; border: 1px solid black;"
id="div_14010" onmouseover="show('div_14010');"
onmouseout="hide('div_14010');" Shortened for brevity's sake </div
</td
<td class=tdata1 width=20<input type=checkbox name=p_columns[]
value="14010" onclick="javascript:checkFormForDups(this, this.checked,
14010);"</td
</tr<tr<td class=tdata1Market Cap (millions)
<a class="hand" onclick="show('div_12010');"
onmouseout="hide('div_12010');"<img src="/images/help_q.jpg"
class="qPlace"
border="0"</a
<div class=qdiv style="visibility: hidden; border: 1px solid black;"
id="div_12010" onmouseover="show('div_12010');"
onmouseout="hide('div_12010');" Shortened for brevity's sake </div
</td
<td class=tdata1 width=20<input type=checkbox name=p_columns[]
value="12010" checked onclick="javascript:checkFormForDups(this,
this.checked, 12010);"</td
</tr<tr<td class=tdata1Last EPS Surprise (%)
<a class="hand" onclick="show('div_17005');"
onmouseout="hide('div_17005');"<img src="/images/help_q.jpg"
class="qPlace"
border="0"</a
<div class=qdiv style="visibility: hidden; border: 1px solid black;"
id="div_17005" onmouseover="show('div_17005');"
onmouseout="hide('div_17005');" Shortened for brevity's sake </div
</td
.