Web Query Requires Form Fill In

Hello Bryan,

Welcome to the Forum!

I went to the website and saw three input boxes: License, Last name, City or Business. I input Asheville, since I grew up there, and got a valid license number to use. After inputting the license, there were no tables of data. Can you explain the steps and data you want in more detail?

Hello Bryan,

I can write code for you to do this using Internet Explorer. Will that work for you?

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