selenium +vba table

[cgpa]

Hello guys.
I need to download a table daily, the code even works, but it copies the table in a disorganized way. I would like it to copy the data in order, as on the website.

Sub ExtrairTabelaDaPagina()

Dim driver As New ChromeDriver



With driver
.Start
.Get "https://www2.bmf.com.br/pages/porta...regao-ptBR.asp?Data=20/02/2020&Mercadoria=IND"
.Window.Maximize

.FindElementById("principal").AsTable.ToExcel Plan1.range("a1")

End With

End Sub

 

[John_w]

The main table contains 3 nested tables which you can extract separately:

Public Sub Chrome_Extract_Table()
    
    Dim driver As Selenium.ChromeDriver
    Dim table As WebElement
    Dim destSheet As Worksheet
    
    Set destSheet = ActiveSheet
    
    Set driver = New Selenium.ChromeDriver
    With driver
        .Start
        .Get "https://www2.bmf.com.br/pages/portal/bmfbovespa/lumis/lum-sistema-pregao-ptBR.asp?Data=20/02/2020&Mercadoria=IND"
    End With
    
    With destSheet
        .Cells.Clear
        .Range("A1").Value = "Dados"
        .Range("B1").Value = "Volume"
        .Range("B1:F1").HorizontalAlignment = xlCenter
        .Range("B1:F1").Merge
        .Range("G1").Value = "Dados"
        .Range("G1:P1").HorizontalAlignment = xlCenter
        .Range("G1:P1").Merge
    End With
    
    Set table = driver.FindElementById("MercadoFut0").FindElementByTag("table")
    table.AsTable.ToExcel destSheet.Range("A2")

    Set table = driver.FindElementById("MercadoFut1").FindElementByTag("table")
    table.AsTable.ToExcel destSheet.Range("B2")
    
    Set table = driver.FindElementById("MercadoFut2").FindElementByTag("table")
    table.AsTable.ToExcel destSheet.Range("G2")
    
End Sub

 

[cgpa]

It is perfect!
Would it be possible to copy the date too? I attached an image for you to see better.

 

[John_w]

    Debug.Print driver.FindElementById("dData1").Value

 

[cgpa]

I tried to save in cell "Q5", but nothing returns

 

[John_w]

This works for me:

    destSheet.Range("Q5").Value = driver.FindElementById("dData1").Value

 

[cgpa]

worked perfectly! Thank you very much

let me clear a doubt, in selenium is it possible to download a file, for example pdf or in zip format and download it directly to a specific folder?

for example the code below I can click and download the file, but I don't know how to put it in a specific folder, I wanted to put it in local path = "C:\Users\pc\Desktop\PD\PD.XLS"

Sub ExtrairTabelaDaPagina()

Dim driver As New ChromeDriver


With driver
.Start
.Get "BDI"






.FindElementByXPath("/html/body/div/div/div[1]/div/div/div[3]/div/div/div[1]/div[2]/div/div[2]/button").Click
Application.Wait Now + TimeValue("00:00:03")

.FindElementByXPath("/html/body/div/div/div[1]/div/div/div[3]/div/div/div[1]/div[2]/div/div[2]/div/a[2]/span[2]").Click
Application.Wait Now + TimeValue("00:00:02")




End With

End Sub

 

[John_w]

let me clear a doubt, in selenium is it possible to download a file, for example pdf or in zip format and download it directly to a specific folder?

Sorry, I don't know if that's possible.

You could do it with the Windows API function URLDownloadToFile if you have a direct URL to the file.

 

[cgpa]

I understand, thanks a lot for all your help.