Hi,
I want to retrieve data off a web page using VBA. I am able to get IE
(Internet Explorer) to start up, and navigate to the page I want
however... I am having a few problems
1) I really don't want IE visible - I have the visible property set to
false but it doesn't seem to work
2) I can't seem to tell when the page is really finished loading. As
my code runs, IE starts/opens up and the computer focus is on IE -
while MS Excel is sitting there in the background and nothing happens
until I MANUALLY make MS Excel the program with the focus.
I have Windows VISTA and Excel 2007
My code is below
Any ideas/thoughts would be appreciated
Thanks
Vmusic
- - - - - - - - - - - - -
Dim myUrl As String
Dim strSearchString As String
Dim curDoc As Variant, curElement As Variant
Dim objIE As Object
'Set the vars
strSearchString = "<div class=""ds-list"">"
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = False ' This DOES NOT work for me
myUrl = "http://www.thefreedictionary.com/happy";
objIE.navigate myUrl
Do Until objIE.Busy
Application.Wait DateAdd("s", 1, Now)
Loop
MsgBox "It should NOT be busy now" & Chr(13) & "The current state
is: " & objIE.ReadyState
' If objIE.Busy = False Then
'Get the data from the web page used Document Object model
'End If
--~--~---------~--~----~------------~-------~--~----~
----------------------------------------------------------------------------------
Some important links for excel users:
1. Excel and VBA Tutorials(Video and Text), Free add-ins downloads at
http://www.excelitems.com
2. Excel tutorials at http://www.excel-macros.blogspot.com
3. Learn VBA Macros at http://www.vbamacros.blogspot.com
4. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
If you find any spam message in the group, please send an email to:
Ayush Jain @ jainayus...@gmail.com or
Ashish Jain @ 26may.1...@gmail.com
<><><><><><><><><><><><><><><><><><><><><><>
HELP US GROW !!
We reach over 6,500 subscribers worldwide and receive many nice notes about the
learning and support from the group. Our goal is to have 10,000 subscribers by
the end of 2009. Let friends and co-workers know they can subscribe to group at
http://groups.google.com/group/excel-macros/subscribe
-~----------~----~----~----~------~----~------~--~---
