HTML Object Libraries
February 20, 2008 • JP • 26 Comments • Rate This Article
As part of my code section on automating Internet Explorer, here are the links to the object libraries being used. Very useful, I recommend experimentation to find the right way to access whatever website you are trying to integrate with.
DHTML Object Reference
Internetexplorer Object Reference
I was not able to find a printed version of this, or even something you can browse easily (like the programmer references for Outlook and Excel), if anyone out there has seen this, please let me know.
Enjoy,
JP
Automation, Internet Explorer ·
Rate This Article:
(No Ratings Yet)
Loading ...What now?
Subscribe To The Blog
Email This Article
Follow Me On Twitter
My Facebook Page
Or just keep reading:
I'm just an average guy who writes VBA code for a living. This is my personal blog. Excel and Outlook are my thing, with a sprinkle of Access and Word here and there. Follow this space if you want to learn more about VBA. Keep Reading »
Previous Post: Format SSN – Updated formula
Next Post: Resending Outlook Messages via VBA Code
Hi JP,
I was wondering if you can help me do automation project on "automating downloading files" from a perticular website.
Typically how we download files are as stated below:
1: Log in with emailid and password.
2. put project id for search
3. select relevant plans and specs
4. select the folder to store these files
5. end.
Can we do automation for this? we are spending lot of time on this and we dont have access to the ftp folder of this site also.
Please help me.
Thanks,
Tejus
Tejus,
What is the URL? If you post it, I can take a look and see if the downloading can be automated. In the meantime, you might want to check out the samples located at Automate Internet Explorer and see what you can come up with. It will be easier to help you with a specific code problem then trying to write the entire code for you.
JP,
Thanks for your reply. I also checked your MACRO for simple display. Used the other code and changed according to my need. here it is:
Dim appIE As InternetExplorer
Dim sURL As String
Dim UserN As Variant, PW As Variant
Dim Element As HTMLButtonElement
Dim btnInput As MSHTML.HTMLInputElement
Dim ElementCol As MSHTML.IHTMLElementCollection
Dim Link As MSHTML.HTMLAnchorElement
Dim strCountBody As String
Dim lStartPos As Long
Dim lEndPos As Long
Dim TextIWant As String
Application.ScreenUpdating = False
Set appIE = New InternetExplorer
sURL = "www.network.construction.com/"
With appIE
.Navigate sURL
' uncomment the line below if you want to watch the code execute, or for debugging
'.Visible = True
End With
' loop until the page finishes loading
Do While appIE.Busy
Loop
' enter username and password in textboxes
Set UserN = appIE.document.getElementsByName("email address")
If Not UserN Is Nothing Then
Set UserN(0).Value = "test"
End If
Set PW = appIE.document.getElementsByName("test")
' password
If Not PW Is Nothing Then
PW(0).Value = "test"
End If
' click 'SIGN IN' button
Set ElementCol = appIE.document.getElementsByTagName("SIGN IN")
For Each btnInput In ElementCol
If btnInput.Value = "SIGN IN" Then
btnInput.Click
Exit For
End If
Next btnInput
' loop until the page finishes loading
Do While appIE.Busy
Loop
End Sub
I am getting an error which says " Run time error 91 object variable or with block variable not set".
after this i have to continue this to customize for my requirement. since this is sensitive data i cannot display here in public.
Request your help.
Thanks,
Tejus
If you view the source of the webpage, you would see that the name of the input field for email address is "txtEmail", and the name of the input field for password is "txtPassword", therefore your code should be
Set UserN = appIE.document.getElementsByName("txtEmail")
If Not UserN Is Nothing Then
Set UserN(0).Value = "test"
End If
Set PW = appIE.document.getElementsByName("txtPassword")
' password
If Not PW Is Nothing Then
PW(0).Value = "test"
End If
The "Sign In" image doesn't have a Value Property, but it does have a name: btnLogin. So the code would be
Set ElementCol = appIE.document.getElementsByTagName("IMAGE")
For Each btnInput In ElementCol
If btnInput.Name = "btnLogin" Then
btnInput.Click
Exit For
End If
Next btnInput
Try that out and see if it works.
JP,
Once it comes to Set UserN(0).Value = "test"
I am getting an error message. Object variable not set. ? i have included object library, anything else to be added?
JP,
Thanks for your code. I solved the object error problem. Now it is entering the id and password but not clicking the SIGN IN button. What shd i do?
Thanks,
Tejus
JP,
.
Finally I am able to login. I am seeing source code for next step. Thanks for all your help. I dont know anything about coding and this is the first time i am coding so taking some time.
Thanks,
Tejus
Glad to hear it!
JP,
If security alert comes " You are about visit…" I want to click "OK" for this site how to disable that? and also, can we do this search multiple times? will this affect my system performance?
Thanks,
Tejus
I don't think you can disable it, but you'd need to check your security settings in IE. Try this:
Where "Messagebox title" is the title of the dialog box. Then follow that with SendKeys.
You can search multiple times by looping the code and creating an exit condition. Once you get to the screen you want, you'd need to write the information to the worksheet, then back out and run another search. As far as system performance, I generally don't do anything else on my computer while a routine like this is running.
sorry JP,
last comment i posted as a test comment as i was not able to post earlier.
Thanks for your reply. i will try that and see. as of now i am manualy checking the box. i am stuck in selecting check boxes.
1. How to search the check box using the source code?
2. How to enable it?
is my code below correct?
'If Not chkInput = False Then
'chkInput.Name = "ELECTRICAL_CLASS"
'chkInput.Enabled = True
'End If
Please help me. my eyes are watering seeing the screen from morning. not able to resolve this.
Thanks,
Tejus
Hi JP,
Thanks for all your help as I am nearing to my destination. There are few things which are basics but i am not in a position to fix it. I request you help to solve those.
1. AppActivate ("msg box name")
sendkeys ("Enter")
this is not clicking the button on the msg box buttons. i am having this problem. also, if this function (appactivate) is called before the popup actually comes, then error willcome. i guess we have to put a delay? is there any refence we have to include to run sendkeys?
2. Once i finish the first iteration, i have to go back to search page which is after login. Do i have to signout and start a fresh or can we go to the search page in between?
Can you please give me solution for this?
Thanks,
Tejus
Tejus –
Try this for your checkbox:
Set checkbox = appIE.document.getElementsByName("checkbox name")
If Not checkbox Is Nothing Then
checkbox.checked = True
End If
Regarding AppActivate, try adding a time delay to wait for the dialog box to appear:
To go back to the search page, see if there's a link on the existing page you can click on. If not, use the GoBack Method.
JP,
I am not able to access the popup. Continue button comes on popup and i am not able to click on the popup.
i have used
PopUpNeedToClose = True
If PopUpNeedToClose = True Then Cancel = True
this is not solving my purpose.
Without out this i cant complete the code. Can you please help me how to solve this? Once i fix this i have to put loops and get data and use it inside the code and put counters to check the download time. is there any ready counter macro available with you?
If the source code is like this:
17000 Other
How will i check the check box? also, there are many check box like this, how will i check multiple check boxes.
Thanks,
Tejus
JP,
Please reply for my above problem.
Thanks,
Tejus
Tejus,
I've provided you with sample code, and some leads for discovering the solution, but I can't write your application for you. You've asked about checkboxes, and I provided sample code, did you try it? You have to experiment with the methods in the sample code (both here and on the Automate Internet Explorer page) to see which one works.
If you are having trouble with popups, AppActivate has worked in the past. If it doesn't work, post the relevant code from your application and I can check it.
Hi JP,
Was trying to complete this one but could not do it completely. I am able to login, search, click download button. once download button is clicked, website calls a pop up message. we have to click "continue" button there. i am not able to do it. from here i am facing problem. if this is solved, i will be able to do the remaining part. I am attaching the code as per your last comment. If you can help me close this, it will be great.
Thanks a lot in advance.
Tejus
—————————–
Sub GoToWebSiteAnddownload()
Dim appIE As InternetExplorer
Dim sURL As String
Dim UserN As Variant, PW As Variant
Dim ProjectN As Variant
Dim Element As HTMLButtonElement
Dim btnInput As MSHTML.HTMLInputElement
Dim Checkbox As HTMLCheckbox
Dim CheckboxCol As MSHTML.IHTMLElementCollection
Dim ChkInput As MSHTML.HTMLSelectElement
Dim ElementCol As MSHTML.IHTMLElementCollection
Dim TextIWant As String
Dim popup As HTMLPopup
Dim Activate, ActiveCell As Application
Application.ScreenUpdating = False
Set appIE = New InternetExplorer
sURL = "https://….."
With appIE
.Navigate sURL
' uncomment the line below if you want to watch the code execute, or for debugging
.Visible = True
End With
' loop until the page finishes loading
Do
Loop Until appIE.ReadyState = READYSTATE_COMPLETE
' enter username and password in textboxes
Set UserN = appIE.Document.getElementsByName("txtEmail")
If Not UserN(0) Is Nothing Then
UserN(0).Value = "xxxx"
End If
' password
Set PW = appIE.Document.getElementsByName("txtPassword")
If Not PW(0) Is Nothing Then
PW(0).Value = "xxx"
End If
' click 'SIGN IN' button
Set ElementCol = appIE.Document.getElementsByName("btnLogin")
For Each btnInput In ElementCol
If btnInput.Name = "btnLogin" Then
btnInput.Click
Exit For
End If
Next btnInput
Application.Wait Now + TimeValue("00:00:01")
'Security alert message has to be disabled
' loop until the page finishes loading
Application.ScreenUpdating = False
Do
Loop Until appIE.ReadyState = READYSTATE_COMPLETE
Application.Wait Now + TimeValue("00:00:01")
sURL = "http://www…….."
With appIE
.Navigate sURL
.Visible = True
End With
'Get project number from excel sheet automatically required if loop. have to write a code
Set ElementCol = Nothing
Set ProjectN = appIE.Document.getElementsByName("LeftNavDRSearch1:txtDR")
'If Not DodgeN(0) Is Nothing Then
'Dim Temp As String
' 'Range("K1") = Temp
' Temp = "0000000000"
' For i = 0 To Temp
ProjectN(0).Value = "0000000000"
'Next
'End If
Application.Wait Now + TimeValue("00:00:01")
' click 'Go' button
Set ElementCol = appIE.Document.getElementsByName("LeftNavDRSearch1:RunSearchButton")
For Each btnInput In ElementCol
If btnInput.Name = "LeftNavDRSearch1:RunSearchButton" Then
btnInput.Click
Exit For
End If
Next btnInput
Application.Wait Now + TimeValue("00:00:02")
' loop until the page finishes loading
Application.ScreenUpdating = False
Do
Loop Until appIE.ReadyState = READYSTATE_COMPLETE
' Go to Plans
'Set appIE = New InternetExplorer
sURL = "http://www……."
With appIE
.Navigate sURL
.Visible = True
End With
' loop until the page finishes loading
Application.ScreenUpdating = False
Do
Loop Until appIE.ReadyState = READYSTATE_COMPLETE
Application.Wait Now + TimeValue("00:00:02")
'Select all electrical plans
Set CheckboxCol = appIE.Document.getElementsByName("ELECTRICAL_CLASS")
For Each ChkInput In CheckboxCol
If ChkInput.Name = "ELECTRICAL_CLASS" Then
ChkInput.Click
End If
Exit For
Next ChkInput
'Save selected plans
Set ElementCol = Nothing
Set ElementCol = appIE.Document.getElementsByName("ActionSelectionControl1:bnSaveAs")
For Each btnInput In ElementCol
If btnInput.Name = "ActionSelectionControl1:bnSaveAs" Then
btnInput.Click
Exit For
End If
Next btnInput
Application.Wait Now + TimeValue("00:00:05")
' loop until the page finishes loading
Application.ScreenUpdating = False
Do
Loop Until appIE.ReadyState = READYSTATE_COMPLETE
'Give Delay
'Click continue on the pop up
AppActivate "http://www…….."
Call Sendkeys(bnDownload)
Call Sendkeys("{Enter}")
DoEvents
Application.Wait Now + TimeValue("00:00:01")
Sendkeys "{Enter}"
Application.Wait Now + TimeValue("00:00:03")
Application.ScreenUpdating = False
Do
Loop Until appIE.ReadyState = READYSTATE_COMPLETE
' Go to Spec
sURL = "http://www………"
With appIE
.Navigate sURL
.Visible = True
End With
' Select 16000 or 17000 specs
'16000 specs is standard. we should write a function to see if 16000 is not there then should take 17000
Set ElementCol = appIE.Document.getElementsByName("…..pdf")
Set CheckboxCol = appIE.Document.getElementsByName("chkSelected")
For Each ChkInput In CheckboxCol
If ChkInput.Name = "chkSelected" Then
ChkInput.Click
End If
Exit For
Next ChkInput
'Give Delay
'Click continue on the pop up
AppActivate "http://www……"
Call Sendkeys(bnDownload)
Call Sendkeys("{Enter}")
DoEvents
Application.Wait Now + TimeValue("00:00:01")
Sendkeys "{Enter}"
Application.Wait Now + TimeValue("00:00:03")
Application.ScreenUpdating = False
'Give Delay
Application.ScreenUpdating = False
Do
Loop Until appIE.ReadyState = READYSTATE_COMPLETE
'Go to Addenda page
sURL = "http://www……"
With appIE
.Navigate sURL
.Visible = True
End With
Do
Loop Until appIE.ReadyState = READYSTATE_COMPLETE
'Select all Addenda
Set CheckboxCol = appIE.Document.getElementsByName("chkSelectAllAddenda")
For Each ChkInput In CheckboxCol
If ChkInput.Name = "chkSelectAllAddenda" Then
ChkInput.Click
End If
Exit For
Next ChkInput
'Save all Addenda
Set ElementCol = appIE.Document.getElementsByName("ActionSelectionControl1:bnSaveAs")
For Each btnInput In ElementCol
If btnInput.Name = "ActionSelectionControl1:bnSaveAs" Then
btnInput.Click
Exit For
End If
Next btnInput
AppActivate ("http://www…..")
Application.Wait Now + TimeValue("00:00:01")
Sendkeys "{Enter}", True
Application.Wait Now + TimeValue("00:00:03")
'Give Delay
Application.ScreenUpdating = False
' destroy variables and end
Set UserN = Nothing
Set PW = Nothing
Set ElementCol = Nothing
Set appIE = Nothing
'Go back to search page and take a new proejct nnumber. put the downloaded number to the finished column along with the time taken.
sURL = "http://www."
With appIE
.Navigate sURL
.Visible = True
End With
'write a function to go back to project search page and repeat the cycle by taking new dodge number.
'write a function to calulate the time taken to run this complete search.
End Sub
Excel values to Website, web data extraction back to Xls. PLEASE Help!!!
Here is what I am trying to accomplish along with the code I've written thus far. I have input to website via xls, but am having a tough time with the web extraction.
An Excel database 'sheet2' consisting of properties and property contacts. Each row contains a property and related contacts.
1. Extract their "lastname" "firstname" "city" / "zip" class="filedl" and "state" from 'sheet2 book1.xls', find their contact information via Anywho.com or WhitePages.com or any other directory,
2. Paste the 1 or Many results (i.e. name, address, and phone number) along with the corresponding Property "PIN", in 'sheet2 book1.xls'.
2.5. There may be more than one related contact for any one property, all property related contacts are on the same row.
3. Run the Loop until it reaches the last property PIN or Contact.
Example (xls sheet1)
PIN+lastname+firstname+city+state+zip+lastname2+firstname2+city2
1212123123, Doe, John, Chicago, IL, 60601, Smith, James, Plainfield
///////////////////////////////////////////////////////////////////////////////
Sub AnyWhoSearch()
'This project includes references to "Microsoft Internet Controls, Microsoft HTML Object Library"
'Variable declarations
Dim myIE As New InternetExplorer
Dim myURL As String
Dim myDoc As HTMLDocument
Dim strSearch As String
Dim newHour As Variant
Dim newMinute As Variant
Dim newSecond As Variant
Dim waitTime As Variant
Dim cn As Range
Dim cf As Range
Dim cc As Range
Dim cs As Range
Dim cz As Range
'On Error GoTo errHandler
'Set starting range (first cell of data)
Set cn = Sheets("Sheet2").Range("v2")
Set cf = Sheets("Sheet2").Range("t2")
Set cc = Sheets("Sheet2").Range("z2")
Set cs = Sheets("Sheet2").Range("aa2")
Set cz = Sheets("Sheet2").Range("ab2")
'Set starting URL and search string
myURL = "w.anywho.com/wp.html"
'loop through list of data
Do While cn.Value vbNullString
'Make IE navigate to the URL and make browser visible
myIE.Navigate myURL
myIE.Visible = True
'Wait for the page to load
Do While myIE.Busy Or myIE.readyState READYSTATE_COMPLETE
DoEvents
Loop
'Set IE document into object
Set myDoc = myIE.document
'Enter search string on form
myDoc.forms(0).qn.Value = cn.Value
myDoc.forms(0).qf.Value = cf.Value
myDoc.forms(0).qc.Value = cc.Value
myDoc.forms(0).qs.Value = cs.Value
myDoc.forms(0).qz.Value = cz.Value
'Submit form
myDoc.forms(0).submit
'Wait for the page to load
Do While myIE.Busy Or myIE.readyState READYSTATE_COMPLETE
DoEvents
Loop
newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 15
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait waitTime
Set cn = cn.Offset(1, 0)
Set cf = cf.Offset(1, 0)
Set cc = cc.Offset(1, 0)
Set cs = cs.Offset(1, 0)
Set cz = cz.Offset(1, 0)
Loop
errHandler:
myIE.Quit: Set myIE = Nothing
End Sub
///////////////////////////////////////////////////////////////////////////////////
Also, any ideas on how to retrieve without opening up IE?
You help is greatly appreciated.
Snwskier2
If the website provides an API for extracting information, you should contact them for details on how to access it. Otherwise, if you have to use IE, you'll have to look at the results page after you submit the form. Start by viewing the source (View > Source) and look at the field names to see which ones you should be extracting from.
JP, – Great web page for helping novices.
This code populates the splash screen or Login page with user name and password but I cannot get the Login button to click.
I have to manually click the Login button then use a second, ***see below, set of code to load the search popup as I am unable to activate the click button, "Login" on the first page.
I believe the search popup is referenced but hidden in the splash screen coding and remains the same wether your logged in or not.
Tejus had the same problem but I could not see the coding to follow to the solution.
After declaring a Dim statement the appIE does not invoke a VBA code.popup window when typing in lines of code. Should it?
For my initial login or splash screen page is ElementCol declared correctly? – appIE.document.getElementsByName –
Set ElementCol = appIE.document.getElementsByName("submit") ElementCol holds "[object]" but
For Each btnInput In ElementCol btnInput = Nothing I believe the Nothing causes VBA to not execute the following If statement.
If btnInput.Name = "Login" Then
Sub GoToMyWebPage()
Dim appIE As InternetExplorer
Dim sURL As String
Dim UserN As Variant, PW As Variant
Dim ProjectN As Variant
Dim Element As HTMLButtonElement
Dim btnInput As MSHTML.HTMLInputElement
Dim Checkbox As HTMLCheckbox
Dim CheckboxCol As MSHTML.IHTMLElementCollection
Dim ChkInput As MSHTML.HTMLSelectElement
Dim ElementCol As MSHTML.IHTMLElementCollection
Dim TextIWant As String
Dim popup As HTMLPopup
Dim Activate, ActiveCell As Application
Application.ScreenUpdating = False
'http://www.codeforexcelandoutlook.com/blog/2008/02/html-object-libraries/#comment-1291 Where coding was copied from
Set appIE = New InternetExplorer
sURL = "https:…dashboard.do"
With appIE
.Navigate sURL
' uncomment the line below if you want to watch the code execute, or for debugging
.Visible = True
End With
' loop until the page finishes loading
Do
Loop Until appIE.readyState = READYSTATE_COMPLETE
' enter username and password in textboxes
Set UserN = appIE.document.getElementsByName("tempName")
If Not UserN(0) Is Nothing Then
UserN(0).Value = "my login"
End If
' password
Set PW = appIE.document.getElementsByName("tempPassword")
If Not PW(0) Is Nothing Then
PW(0).Value = "my password"
End If
' click 'SIGN IN' button
Set ElementCol = appIE.document.getElementsByName("submit")
For Each btnInput In ElementCol
If btnInput.Name = "Login" Then
' this is splash screen
' This is second page, search button
btnInput.Click
Exit For
End If
Next btnInput
***
Private Sub Go2SearchSC()
'https://…dashLogin.do
Dim appIE As InternetExplorer
Dim sURL As String
Dim UserN As Variant, PW As Variant
Dim ProjectN As Variant
Dim Element As HTMLButtonElement
Dim btnInput As MSHTML.HTMLInputElement
Dim Checkbox As HTMLCheckbox
Dim CheckboxCol As MSHTML.IHTMLElementCollection
Dim ChkInput As MSHTML.HTMLSelectElement
Dim ElementCol As MSHTML.IHTMLElementCollection
Dim TextIWant As String
Dim popup As HTMLPopup
Dim Activate, ActiveCell As Application
Application.ScreenUpdating = False
'http://www.codeforexcelandoutlook.com/blog/2008/02/html-object-libraries/#comment-1291 Where coding was copied from
Set appIE = New InternetExplorer
sURL = "https/…search.do"
With appIE
.Navigate sURL
' uncomment the line below if you want to watch the code execute, or for debugging
.Visible = True
End With
' loop until the page finishes loading
Do
Loop Until appIE.readyState = READYSTATE_COMPLETE
' click 'SIGN IN' button
Set ElementCol = appIE.document.getElementsByName("submit")
For Each btnInput In ElementCol
If btnInput.Name = "Login" Then
' this is splash screen
' This is second page, search button
btnInput.Click
Exit For
End If
Next btnInput
' click a button on the next page
Set ElementCol = appIE.document.getElementsByTagName("ipValues")
'
'
For Each btnInput In ElementCol
If btnInput.Value = "10.14.18.71" Then '* i put the IP here to see if it would work
btnInput.Click
Exit For
End If
Next btnInput
' loop until the page finishes loading
Do While appIE.Busy
Loop
This is the code from the page using a popup to enter search parameters.
Fill in any of the fields.Returns any records that match.
IP Address
- Or -
MAC Address
- Or -
User Name
This portion has a check box used to search inactive records.
Include inactive records
<!–
–>
null 'null' not found
JP,
Looks like the scipting was stripped out because I left html char in.
This is the code from the page using a popup to enter search parameters.
!!body onload="load()">
!!div id="searchPopUp" class="searchDiv" style="height: 250px;">
!!br>
!!form id="searchDefForm" name="searchDefForm" method="post" action="search.do">
!!table class="searchTableMain1" >
!!tr>
!!td class = "searchCaption" colspan="2">
!!p>Fill in any of the fields.!!br>Returns any records that match.!!/p>
!!br>
!!/td>
!!/tr>
!!tr>
!!td class = "searchLeftInput">
!!input name="ipValues" type="text" >
!!/td>
!!td class = "searchRightText">
IP Address
!!/td>
!!/tr>
!!tr>
!!td colspan="2" class = "searchCenter">
- Or -
!!/td>
!!/tr>
!!tr>
!!td class = "searchLeftInput">
!!input name="macValues" type="text" >
!!/td>
!!td class = "searchRightText">
MAC Address
!!/td>
!!/tr>
!!tr>
!!td colspan="2" class = "searchCenter">- Or -!!/td>
!!/tr>
!!tr>
!!td class = "searchLeftInput">
!!input name="principalValues" type="text" >
!!/td>
!!td class = "searchRightText">
User Name
!!/td>
!!/tr>
!!tr>
!!td colspan="2" class = "searchCenter">!!/td>
!!/tr>
Can you post the URL? The code in both your comments is so mangled it's very difficult to tell where I need to be looking.
Thx
JP. Replied to your email. Thanks
Hi JP,
I removed the leading
TR>
TD>IP:
TD class=""boldText12 "">***10.11.21.234***
TD>MAC:
TD style=""DISPLAY: block"" id=macaddr class=""boldText12 "">0013729f89d9
TD style=""DISPLAY: none"" id=macinput>
TD>Former IP:
TD class=""boldText12 "">***10.100.34.33***
TR>
TD>OS or Device:
TD class=boldText12>***Windows XP***
TD>Login Name Network:
TD class=boldText>***unknown***
TD>Primary Role:
TD class=boldText colSpan=1>***unknown***
TR>
TD>Machine Name:
TD>***Name.Name.Name***
TD>Reported IP:
TD class=""boldText12 "">***10.11.21.234***
TD>Login Name Local:
TD class=""boldText12 "">***eMailReciptent***
JP Thanks for your assistance and follow up. Your code examples got me onto the right track.
Hi JP,
I removed the leading < from the above html lines.
I agree that the code was mangled. Your are being polite I can tell. I could post all the code and it will be extensive.
I showed what I was trying to do to a C+ or C# programmer friend of mine. He jumped at the chance to help. He showed how to use FireFox developer tools to id the different elements on the web page. Some are not so easy to determine. IE 8 has developer tools also but we did not try those.
We are finding that Windows 7 and Excel 2007 will not work without major adjustments due to the browseui.dll file. The Windows 7 size is less than 1mg. It might be due to permissions and security posture.
Because the web page that I pull data from has a input box/display box that is finicky. The whole table is pulled from the web page and then parsed from a single cell.
What I have to do now is create formulas to extract the *** information*** to individual cells.
Brian,
If you like, send me the code by email and let me know what you're trying to do. This is clogging up the comments.