extract data from web by using selenium & browser google chrome

[Alaa mg]

hello
I search so much in this forum until found this simlir for my thread extract data from web to inside sheet without open website &refersh
but actually i don't have any idea how deal with th codes to link with website to adjusting for my requirements .
the website is Track Shipment | Cargo & Container Tracking | Maersk and when write container MRKU5693621 should be the data in sheet based on cell C2

search.xlsm
	A	B	C	D	E
1			Container number
2			MRKU5693621
3
4	Container number		From	To
5	MRKU5693621		Gautam Budhh Nagar	Newark
6
7	MRKU5693621		40' Dry
8	Estimated arrival date		Last location		Hide details
9	25-May-22		Load • Salalah, Oman • 06 May 2022
10
11	Gautam Budhh Nagar		Gate out
12	Concor, Dadri		Empty
13			4/12/2022 11:00
14
15
16			Gate in
17			4/12/2022 12:00
18			Gate out
19			4/13/2022 17:10
20	Pipavav		Gate in
21	Pipavav Terminal		4/16/2022 3:36
22			Load on MAERSK DETROIT / 215W
23			4/23/2022 0:21
24
25
26	Salalah		Discharge
27	Salalah Terminal		4/28/2022 13:29
28			Load on MAERSK SENTOSA / 216W
29			5/6/2022 21:48
30
31
32	Newark		Discharge
33	Apm Terminal - Berth 88 E425		5/25/2022 7:00
34			Gate out
35			5/25/2022 7:00
SHIP

by the way I use google chrome browser & selenium program
any help I truly appreciated .

 

[Georgiboy]

The below should give you a good start:

Sub test2()
    Dim driver As New webdriver
   
    With driver
        .Start "Chrome"
        .Get "https://www.maersk.com/tracking/"
        .FindElementByClass("coi-banner__accept--fixed-margin").Click
        .FindElementById("track-input").SendKeys (Range("C2").Value)
        .FindElementByClass("track__search__button").Click
       
        cNum = .FindElementByClass("search-summary--bol__dd").Text
        frm = .FindElementByClass("search-summary--from__dd").Text
        to_ = .FindElementByClass("search-summary--to__dd").Text
        arrDate = .FindElementByClass("summary__text--date").Text
        LastLoc = .FindElementByClass("summary__text--location").Text
        TranPlan = .FindElementByClass("transport-plan").Text
    End With
    Stop
End Sub

 

[Alaa mg]

thanks ! but it shows error user defined type not defined in this line

driver As New webdriver

it seems to need selecting something from reference , but I no know what's exactly.

 

[Georgiboy]

You will need to add a reference to the Slenium library in the VBE, i assumed you had done this already as the question was about selenium.

 

[Alaa mg]

you are right I selected and gives mismatch in this line

.Start "Chrome"

what means,please?

 

[Georgiboy]

It means that Selenium has failed to connect to the Chrome driver, quite often the chrome driver installed is not the same as the one needed.

Check that you have the correct version of the Chrome driver for your Chrome install, this is part of setting up Selenium.

 

[Alaa mg]

thanks again . I downloaded the chromedriver ChromeDriver 101.0.4951.41 despite my version ChromeDriver 101.0.4951.67 .I don't find it based on website link on OP
ok it's gone the error, but shows another error out of memory in this line

.FindElementByClass("coi-banner__accept--fixed-margin").Click

 

[Georgiboy]

That line is clicking the accept all to cookies, if you don't get the cookies message then you can try removing that line.

Try as below:

Sub test2()
    Dim driver As New webdriver
   
    With driver
        .Start "Chrome"
        .Get "https://www.maersk.com/tracking/"
        '.FindElementByClass("coi-banner__accept--fixed-margin").Click
        .FindElementById("track-input").SendKeys (Range("C2").Value)
        .FindElementByClass("track__search__button").Click
       
        cNum = .FindElementByClass("search-summary--bol__dd").Text
        frm = .FindElementByClass("search-summary--from__dd").Text
        to_ = .FindElementByClass("search-summary--to__dd").Text
        arrDate = .FindElementByClass("summary__text--date").Text
        LastLoc = .FindElementByClass("summary__text--location").Text
        TranPlan = .FindElementByClass("transport-plan").Text
    End With
    Stop
End Sub

 

[Alaa mg]

it stops in this line

        .FindElementByClass("track__search__button").Click

and shows error as in picture after shows the picture in website .

 

[Georgiboy]

You are going to have to try some different things to get those to work, they are working on my end.
Maybe inspect the items that are on the webpage and look to see if the references are the same as mine for the buttons and items etc...

This line:

.FindElementByClass("coi-banner__accept--fixed-margin").Click

Is supposed to be clicking the 'ALLOW ALL' button

Right click the 'ALLOW ALL' button and inspect it - it will show you the code to that button and the class names assosiated with it.