Get table from website with password

[Danym]

Hello guys. I'm trying to get automatically the data from this website.

http://www.visualchart.com/esxx/strategies/exchanges/symbols/symbols.asp?mercado=0003&isin=&codigo=&tiposimbolo=V&descrip=&buscar=1&image=Consultar

This is the first sheet of the website, I would like to get the data from the table from page 1 to 384 automatically.

Each time I click this link It changes to the next page.

http://www.visualchart.com/esxx/strategies/exchanges/symbols/symbols.asp?opcion=Simbolos&Direccion=Siguiente&buscar=1&mercado=0003&codigo=&descrip=&isin=&contienecodigo=&contienedescripcion=&contieneisin=&tiposimbolo=V

I have tried to import data inside excel, but it request a user and password.

I have looked for a macro and found one that obtain the data, but the problem is that I don't know how to write a macro that reproduces that table on my excel and that takes the information from page 1 to 384 automatically.

This is the code that I have until now.

[COLOR=black !important][FONT=-apple-system]Sub ObtenerDatosDesdeLaWeb()

Dim htmlDeRespuesta As Object, contadorFilas As Long, contadorColumnas As Long

Set htmlDeRespuesta = CreateObject("htmlFile")

With CreateObject("msxml2.xmlhttp")

    .Open "GET", "[/FONT][/COLOR][COLOR=black !important][FONT=-apple-system][URL="http://www.visualchart.com/esxx/strategies/exchanges/symbols/symbols.asp?mercado=0003&isin=&codigo=&tiposimbolo=V&descrip=&buscar=1&image=Consultar"]http://www.visualchart.com/esxx/strategies/exchanges/symbols/symbols.asp?mercado=0003&isin=&codigo=&tiposimbolo=V&descrip=&buscar=1&image=Consulta[/URL]r[/FONT][/COLOR][COLOR=black !important][FONT=-apple-system]", False
    .send
    htmlDeRespuesta.body.innerhtml = .responsetext
End With

With htmlDeRespuesta.GetElementsByTagName("table")(0)

For contadorFilas = 0 To .Rows.Length - 1

    For contadorColumnas = 0 To .Rows(contadorFilas).Cells.Length - 1
    
       Sheets(1).Cells(contadorFilas + 1, contadorColumnas + 1).Value = .Rows(contadorFilas).Cells(contadorColumnas).innertext
    
    Next
    
Next

End With

End Sub[/FONT][/COLOR]

Please help!!

 

[Danym]

I don't know why those COLOR words appeared :/ Sorry I can't edit!