VBA - scraping websites videos | Excel VBA Part 57.4 - Finding Web Elements in Selenium

Hi Andrew

First of all I want to give THANKS for your videos, I have learnt a lot about web scrapping.

I have tried lots of attemps with this web page, but no way to make it work ... may be you can help me

https://memsim.cenace.gob.mx/Produccion/Participantes/LOGIN/

I'm trying to upload a file, but i am unable to select the button

I try with 

    Set CH = New Selenium.ChromeDriver
    
    CH.Start
    
    CH.Get "https://memsim.cenace.gob.mx/Produccion/Participantes/LOGIN/"

    CH.FindElementById("uploadCerfile0").Click

And the excel gives a mistake

Selenium Error

invalid argument

(session info: chrome 92.0.4515.131)

(Driver info: chromedriver=91.0.4472.101

(af52a90bf87030dd1523486a1cd3ae25c5d76c9b-refs/branch-heads/4 NT 10.0.19043 x84_64)

Hi Andrew,

I cannot begin to tell you how much your videos have helped me out in not only expanding my knowledge of VBA but also just making my excel macros more effective.  I have spent a few hours walking through your videos on Selenium step by step and now I'm trying to use the techniques that I've learned from these videos, particularly this one, to extract data from the following google page: us vaccine tracker - Google Search.  In looking at the HTML, the div tag that I am interested in grabbing has the following HTML code:

<div jsname="iXWWee" class="enWFYd KDN9Hf" style="left: 39px; display: block; transform: translate3d(381px, 0px, 0px);">May 26, 2021</div>

As you can see from the HTML, I should be able to get the element(s) by specifying the class name.  But upon further inspection, the area on the page I am interested in has an innerHTML value formatted like "MMM DD, YYYY" (shown in the above example as "May 26, 2021") which changes as you move your cursor across the page.  I tried to account for this one of two ways:

1) Dim Element as Selenium.WebElement

Set Element = ch.FindElementByCss("div[class='enWFYd KDN9Hf'] [innerHTML='May26,2021']")

Debug.Print Element.InnerHTML

2) Dim Elements As Selenium.WebElements

Set Elements = ch.FindElementsByCss("div[class='enWFYd KDN9Hf']")

For Each Element In Elements

Debug.Print Element.Attribute("innerHTML")
    Next Element

Hi Andrew,

I would like to down download of element with you.

WebPage: https://sg.finance.yahoo.com/quote/MSFT/key-statistics?p=MSFT

Data: Market cap (intra-day) : 1.96T

I manage to download as 1.96 but how do I get the full underlying data of 1,957,379,833,856.0

Thanks

Hi Andrew,

Thanks for the reply.  I wrote some macro in excel VBA using Selenium. but the download seems very slow, anyway to solve the issue?

Sub GetCurrency()

Call ClearCurrency

    Dim ws As Worksheet
    Dim SingleRow As Range
    Dim ListofRows As Range
    Dim SingleColumn As Range
    Dim ListofColumns As Range
    Dim MyRange As Range
    Dim RowNum As Integer
    Dim ColNum As Integer

    Set ws = ThisWorkbook.Worksheets("Currency")

'=================================================================
'Setting Range
'=================================================================
    With ws
        Set ListofRows = Range("A3", Range("A2").End(xlDown))
        Set ListofColumns = Range("B1", Range("B1").End(xlToRight))
        Set MyRange = ws.Range(ListofRows, ListofColumns)
    End With
'=================================================================
'Loop Through RIC
'=================================================================
    RowNum = 3
    
    For Each SingleRow In ListofRows

        Dim URL As String: URL = "https://sg.finance.yahoo.com/quote/SGD=X"
        Set cd = New Selenium.ChromeDriver
        cd.AddArgument "--headless"
        cd.Start
        cd.Get URL
        Application.Wait Now + TimeValue("00:00:20")
            
'=================================================================
'Loop Through XPATH
'=================================================================
        
        Dim PathInput As Selenium.WebElement
        Dim PathResult As Variant
        
        ColNum = 2
        
        For Each SingleColumn In ListofColumns
            Set PathInput = cd.FindElementByXPath(SingleColumn)
            cd.Wait 1000
            PathResult = cd.FindElementByXPath(SingleColumn).Text
            
'=================================================================
'Output to Excel
'=================================================================
           
            Cells(RowNum, ColNum).Value = PathResult
            ColNum = ColNum + 1
        Next SingleColumn
        
        RowNum = RowNum + 1
    
    Next SingleRow
    
    Range("A1").CurrentRegion.Font.Size = 9
    Range("A1").CurrentRegion.Font.Name = "Calibri"
    Range(Range("c3", Range("c2").End(xlDown)), Range("C3", Range("C3").End(xlToRight))).Select
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
        

End Sub

Hi,

I am trying to download some specific data from Yahoo finance, I would like to check, how do I copy the data into excel using Selenium

Sub GetData()

    Dim myrng As Range
    Dim lastRow As Long
    Dim row_count As Long
    Dim ws As Worksheet
    Dim ticker As Variant
        
    Set ws = Sheets("Main")
   
'=================================================================
'Find Last Row
'=================================================================
    With ws
        lastRow = .Range("A" & .Rows.Count).End(xlUp).Row
    End With
'=================================================================
'Find Ticker Range
'=================================================================
    Set myrng = ws.Range(Cells(2, 1), Cells(lastRow, 1))
'=================================================================
'Loop Through Tickers
'=================================================================
  
        Set cd = New Selenium.ChromeDriver
        cd.Start
        cd.Get https://finance.yahoo.com/quote/MSFT?p=MSFT&.tsrc=fin-srch
    
'=================================================================
'Finding Elements
'=================================================================
    
        Dim SearchInput As Selenium.WebElement
                
        Set SearchInput = cd.FindElementByXPath("/html/body/div[1]/div/div/div[1]/div/div[2]/div/div/div[5]/div/div/div/div[3]/div[1]/div/span[1]")

Thanks