Solved

VBA to check if an IE tag class exists

Posted on 2012-12-21
2
2,385 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?
0
Comment
Question by:Kaprice
2 Comments
 
LVL 29

Accepted Solution

by:
IrogSinta earned 500 total points
Comment Utility
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

0
 

Author Closing Comment

by:Kaprice
Comment Utility
That's the ticket. Thanks!
0

Featured Post

How your wiki can always stay up-to-date

Quip doubles as a “living” wiki and a project management tool that evolves with your organization. As you finish projects in Quip, the work remains, easily accessible to all team members, new and old.
- Increase transparency
- Onboard new hires faster
- Access from mobile/offline

Join & Write a Comment

Password hashing is better than message digests or encryption, and you should be using it instead of message digests or encryption.  Find out why and how in this article, which supplements the original article on PHP Client Registration, Login, Logo…
Describes a method of obtaining an object variable to an already running instance of Microsoft Access so that it can be controlled via automation.
In Microsoft Access, when working with VBA, learn some techniques for writing readable and easily maintained code.
Shows how to create a shortcut to site-search Experts Exchange using Google in the Chrome browser. This eliminates the need to type out site:experts-exchange.com whenever you want to search the site. Launch the Search Engine Menu: In chrome, via you…

744 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

16 Experts available now in Live!

Get 1:1 Help Now