Extract Search Output from Website

[BigRusty82]

Hi all,

I have a simple code that looks up from a sheet, to paste postcodes into a website then click a button. What i could really do with is then exporting the output into excel. The issue is sometimes if the postcode is found a dropdown box will appear, if it does not appear then just some text appears. I dont need to know the data in the box, just really a True or False if this happens or the output of the text.

This is the current code, it works up until the output part.

A postcode that brings a drop down is LE130AA and one that returns the text is NN4 7RG

Sub FCC_GWC_Melton()

    Dim IE As Object
    Dim doc As HTMLDocument
    Set IE = CreateObject("InternetExplorer.Application")
    
    IE.Visible = True
    IE.navigate "https://www.gardenwasteclub.co.uk/melton/"

    Do While IE.Busy
        Application.Wait DateAdd("s", 1, Now)
    Loop
    
    Set doc = IE.document
    
    For intRow = 2 To 1407
    
    IE.Visible = True
    IE.navigate "https://www.gardenwasteclub.co.uk/melton/"

    Do While IE.Busy
        Application.Wait DateAdd("s", 1, Now)
    
    Loop
        
        doc.getElementById("gwc-pc").Value = ThisWorkbook.Sheets("CODE").Range("A" & intRow).Value
        doc.getElementById("gwc-button").Click
        StrMsg = doc.getElementById("pc_msg")
        ThisWorkbook.Sheets("CODE").Range("B" & intRow).Value = StrMsg
           
        Application.Wait DateAdd("s", 2, Now)
        
    Next
    

End Sub

Any help would be greatly apricated. Thanks

BRS

 

[Marc L]

Hi,​

​

as you forgot to attach your worksheet and to elaborate the process to achieve on the website …​

 

[BigRusty82]

Hi, apologies. Mini-Sheet below,

GWC_Autofill.xlsm
	A
1	Postcode
2	LE130AA
3	LE130AB
4	LE130AD
5	LE130AE
6	LE130AF
7	LE130AG
8	LE130AH
9	LE130AJ
10	NG130AA
11	NG130AB
12	NG130AD
13	NG130AE
14	NG130AF
15	NG130AG
16	NG130AH
17	NG130AJ
CODE

The process to achieve this on the website is simply a text input into a box to click to get the results. Not sure how else to explain it. This will then cycle through the rows and return the result for each postcode.

Cheers

BRS