Hello Bryan,
I can write code for you to do this using Internet Explorer. Will that work for you?
Hello Bryan,
I can write code for you to do this using Internet Explorer. Will that work for you?
Sincerely,
Leith Ross
Remember To Do the Following....
1. Use code tags. Place [CODE] before the first line of code and [/CODE] after the last line of code.2. Thank those who have helped you by clicking the Starbelow the post.
3. Please mark your post [SOLVED] if it has been answered satisfactorily.
Old Scottish Proverb...
Luathaid gu deanamh maille! (Rushing causes delays!)
Thanks! That would be great!
Bryan
Hello Bryan,
This macro will start Internet Explorer and open the the web page. It will then fill in the license number and click submit.
![]()
Sub GetLicenseInfo(LicenseNumber As Variant) Dim Btn As Object Dim ieApp As Object Dim ieDoc As Object Dim InputBtns As Object Dim LicenseBtn As Object Dim SubmitBtn As Object Dim URL As String URL = "http://www.ncbpe.org/process_request.php" Set ieApp = CreateObject("InternetExplorer.Application") ieApp.Navigate2 URL ieApp.Visible = True While ieApp.ReadyState <> 4 DoEvents Wend Set ieDoc = ieApp.Document Set InputBtns = ieDoc.GetElementsByTagName("Input") For Each Btn In InputBtns If Btn.Value = " Submit search " Then Set SubmitBtn = Btn End If If Btn.Name = "license" Then Set LicenseBtn = Btn End If Next Btn LicenseBtn.Value = LicenseNumber SubmitBtn.Click End Sub
Example of Calling the Macro
![]()
Sub TestIt() GetLicenseInfo 211 End Sub
Thank you. For some reason I could not see the code but logged in today and it works great!
Thanks again!
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks