Solved

VBA to check if an IE tag class exists

Posted on 2012-12-21

1 solution

2,719 Views

Last Modified: 2013-11-19

I've created code in MS Access that reads and stores various data elements from a web page.

But, sometimes, that page (result from filling out a form) does not have any data. In which case, a message shows up.

Here's a portion of the HTML:

<body onLoad="onLoad()">
<div id="wrap">
  <!--header start -->
  <div id="custom_header">
        <div style="width:370px; text-align:left; margin:auto 0px; padding-top:10px; padding-left:10px;">
      <p style="font-size:24pt; font-weight:bold; color: #fff; text-align:center; font-family: Tahoma, Geneva, sans-serif; line-height:24pt">
        My First Line      </p>
      <p style="font-size:18pt; font-weight:700; color: #fff; text-align:center; font-family: Tahoma, Geneva, sans-serif; padding-top:5px">
        My Second Line        <br />
        <br/>
      </p>
      <br />
    </div>
      </div>
  <!--header end --> 


<div id="main">

<div id="maincontent">
<div class="ui-corner-all warning">
	<h3>Your Business Phone Number <u>8005551212</u> is not being found!</h3>
</div><br />

Open in new window

This tag: <div class="ui-corner-all warning">

ONLY shows up in the document when the form returns no data.

what vba can I use to search the IE DOM to see if that tag/class exists?)

I feel like it should be something like one of these...

.getElementByID
.getElementsByTagName
.getElementsByClassName

But, I'm stumped.

Any help?

Comment

Question by:Kaprice

[X]

Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

Help others & share knowledge
Earn cash & points
Learn & ask questions

Join The Community

2 Comments

LVL 29

Accepted Solution

by:IrogSinta

IrogSinta earned 500 total points

ID: 387149662012-12-21

I found something that maybe you could incorporate:

Dim html As Object ' MSHTML.HTMLDocument
Dim resultClasses As Object 
Dim resultClass As Object 

Set html = CreateObject("htmlfile") ' New MSHTML.HTMLDocument
html.body.innerHTML = ' String variable containing your result

Set resultClasses = html.getElementsByTagName("div") 
For Each resultClass In resultClasses 
    If resultClass.getAttribute("class") = "ui-corner-all warning" Then 
        Msgbox "Found"
        Exit For 
    End If 
Next resultClass

Open in new window

Author Closing Comment

by:Kaprice

ID: 387149742012-12-21

That's the ticket. Thanks!

Featured Post

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

How to Monitor Privileged Accounts in Active Directory [VIDEO]

Article by: Gene

Did you know that more than 4 billion data records have been recorded as lost or stolen since 2013? It was a staggering number brought to our attention during last week’s ManageEngine webinar, where attendees received a comprehensive look at the ma…

HipChat Is Much More Than Chat

Article by: xMatters

When the s#!t hits the fan, you don’t have time to look up who’s on call, draft emails, call collaborators, or send text messages. An instant chat window is definitely the way to go, especially one like HipChat. HipChat is a true business app. An…

Create a Query and Grouped Report and Modify Design using Access

Video by: crystal

Access reports are powerful and flexible. Learn how to create a query and then a grouped report using the wizard. Modify the report design after the wizard is done to make it look better. There will be another video to explain how to put the final p…

Bar Graphs in an Access Query

Video by: crystal

Add bar graphs to Access queries using Unicode block characters. Graphs appear on every record in the color you want. Give life to numbers. Hopes this gives you ideas on visualizing your data in new ways ~ Create a calculated field in a query: …