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
About JP
30 Comments:
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:
Sub GoToWebSiteAndPlayAround() 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 SubI 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
' enter username and password in textboxes 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 IfThe "Sign In" image doesn't have a Value Property, but it does have a name: btnLogin. So the code would be
' click 'SIGN IN' button Set ElementCol = appIE.document.getElementsByTagName("IMAGE") For Each btnInput In ElementCol If btnInput.Name = "btnLogin" Then btnInput.Click Exit For End If Next btnInputTry 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?
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?
Hi Tejus,
I tried the code mentioned by you, i got stuck up at the place mentioned by you in above sentence, can you let me know how to solve that
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:
AppActivate ("Messagebox title")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:
Dim checkbox As MSHTML.HTMLInputElement Set checkbox = appIE.document.getElementsByName("checkbox name") If Not checkbox Is Nothing Then checkbox.checked = True End IfRegarding AppActivate, try adding a time delay to wait for the dialog box to appear:
Application.Wait Now + TimeValue("00:00:01")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.jpsoftwaretech.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.jpsoftwaretech.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.
Help me!
Hey there,
I'm trying to get some data over the page http://www.cetip.com.br
I need to fill the dates in the right of the page (field names DT_DIA_DE, DT_MES_DE, etc), but i keep getting de error 91.
What am i doing wrong? Thats the part of the code that is not working.
Set UserN = appIE.Document.getElementsByName("DT_DIA_DE")
If Not UserN Is Nothing Then
UserN(0).Value = "02"
End If
Thanks!
Hi JP
Thanks for very useful information on your site! I hope you can help me with my problem.
I'm trying to download a file from a website and gets a popup to choose Open or Save. I can use SendKeys "{Tab}" to select the Open button. But When I'm use SendKeys "{Enter}" nothing happens. Is there a setting in IE that I have to change to make Enter acceptable för IE?
Gunnar
There are lots of resources out there to download the webpage SOURCE, but usually you have to pass URL to it. I have a case where I need to download the source of a webpage that is CURRENTLY OPEN, but I can't use the "url", because the url is meaningless – it stays the same before you login, after you login, after you click around 20 differnt times, it's a secure intranet company website. So when I use code that's out there to get open IE by URL, then download source code, it ends up being real generic source that's wrong, it's not the real source as if I right-clicked on the webpage CURRENTLY OPEN (with the same goofy generic URL). that's the source code I need.
and actually more specifically, I need to save 2 or 3 .png images that are embedded on that page, taht's all. Actually I need to save "all" .png images embedded on the open page. but giving code the simple url doesn't seem to work.