Contextual Guidance at the moment of need helps your employees adopt to new software or processes instantly. Boost knowledge retention and employee engagement step-by-step with one easy solution.
Course Of The Month
3 days, 18 hours left to enrollBecome a Premium Member and unlock a new, free course in leading technologies each month.
Solved
VBA to Read data from IE Website
Posted on 2012-12-20
I'm working in MS Access 2010.
I've got code that opens an IE browser and navigates to a page.
Now I want to read various elements on the page. I have iMacros but it's not an ideal solution for me so I'm trying to do it all from VBA.
But, iMacros does appear to be very good at grabbing element names/ids.
Here's what iMacros came up with:
Apparently, POS indicates WHICH element it is.
Is that enough info to help me come up with VBA code that will read the text in those elements and store in a variable?
I've got code that opens an IE browser and navigates to a page.
Dim mobjIE As SHDocVw.InternetExplorer
Set mobjIE = New SHDocVw.InternetExplorer
mstrPage = vNewValue
mobjIE.navigate mstrPage
Now I want to read various elements on the page. I have iMacros but it's not an ideal solution for me so I'm trying to do it all from VBA.
But, iMacros does appear to be very good at grabbing element names/ids.
Here's what iMacros came up with:
TAG POS=4 TYPE=P ATTR=TXT:* EXTRACT=TXT
TAG POS=1 TYPE=SPAN ATTR=CLASS:style15 EXTRACT=TXT
TAG POS=1 TYPE=I ATTR=TXT:* EXTRACT=TXT
TAG POS=1 TYPE=SPAN ATTR=CLASS:style5 EXTRACT=TXT
TAG POS=2 TYPE=SPAN ATTR=CLASS:style5 EXTRACT=TXT
TAG POS=4 TYPE=STRONG ATTR=TXT:* EXTRACT=TXT
TAG POS=5 TYPE=STRONG ATTR=TXT:* EXTRACT=TXT
TAG POS=6 TYPE=STRONG ATTR=TXT:* EXTRACT=TXT
TAG POS=7 TYPE=STRONG ATTR=TXT:* EXTRACT=TXT
TAG POS=8 TYPE=STRONG ATTR=TXT:* EXTRACT=TXT
TAG POS=9 TYPE=STRONG ATTR=TXT:* EXTRACT=TXT
TAG POS=10 TYPE=STRONG ATTR=TXT:* EXTRACT=TXT
' Loop Reviews
TAG POS=1 TYPE=SPAN ATTR=CLASS:style11 EXTRACT=TXT
TAG POS=1 TYPE=IMG ATTR=SRC:*/images/star*.gif EXTRACT=HTM
TAG POS=1 TYPE=FONT ATTR=* EXTRACT=TXT
Apparently, POS indicates WHICH element it is.
Is that enough info to help me come up with VBA code that will read the text in those elements and store in a variable?
[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
5-
4
9 Comments
Active today
I don't really think that information like that is much use.
Do you know what elements/data you want from the page?
Can you post the URL for the page?
Do you know what elements/data you want from the page?
Can you post the URL for the page?
This works for everything except the image (stars):
The iMacros data did, indeed, provide the what I needed.
intPos is from POS
strTag is from TYPE
strAttr is from ATTR
strValue is from after the "=" after ATTR (i.e. "style15")
in the case of the empty TXTs, I set to "" and add the pipes to the IF statement.
I'll convert these variables to parameters so it will work with all cases.
Dim oItem As Object
Dim intPos As Integer
Dim strTag As String
Dim strAttr As String
Dim strAttrValue As String
intPos = 1
strTag = "I"
strAttr = "Txt"
strAttrValue = ""
With mobjIE.Document
For Each oItem In .getElementsByTagName(strTag)
If "|" & oItem.getAttribute(strAttr) = "|" & strAttrValue Then
ctr = ctr + 1
If ctr = intPos Then
Debug.Print oItem.innerText
End If
End If
Next
End With
The iMacros data did, indeed, provide the what I needed.
intPos is from POS
strTag is from TYPE
strAttr is from ATTR
strValue is from after the "=" after ATTR (i.e. "style15")
in the case of the empty TXTs, I set to "" and add the pipes to the IF statement.
I'll convert these variables to parameters so it will work with all cases.
Featured Post
Websites are getting bigger and complicated by the day. Video, images, custom fonts are all great for showcasing your product/service. But the price to pay in terms of reduced page load times and ultimately, decreased sales, can lead to some difficult decisions about what to cut.
Question has a verified solution.
If you are experiencing a similar issue, please ask a related question
It’s the first day of March, the weather is starting to warm up and the excitement of the upcoming St. Patrick’s Day holiday can be felt throughout the world.
Traditionally, the method to display pictures in Access forms and reports is to first download them from URLs to a folder, record the path in a table and then let the form or report pull the pictures from that folder.
But why not let Windows retr…
This lesson goes over how to construct ordered and unordered lists and how to create hyperlinks.
Learn how to create flexible layouts using relative units in CSS. New relative units added in CSS3 include vw(viewports width), vh(viewports height), vmin(minimum of viewports height and width), and vmax (maximum of viewports height and width).
Suggested Courses
Course of the Month3 days, 18 hours left to enroll
691 members asked questions and received personalized solutions in the past 7 days.
Join the community of 500,000 technology professionals and ask your questions.