WebScraping - How to copy data from page 2?

[Silmar]

Boa noite a todos! Estou obtendo a tabela "1" do site que está no arquivo anexo, para isso estou utilizando o seguinte código VBA:

Sub WebScraping()

Dim urlSite As String
Dim tabela As QueryTable
Dim tabelaExistente As QueryTable

For Each tabelaExistente In Sheets("Dados").QueryTables
tabelaExistente.Delete
Next

Sheets("Dados").Cells.Delete shift:=xlUp

urlSite = "BLMR11 - BLUEMACAW RENDA + FOF: dividendos e cotação"

Set tabela = Sheets("Dados").QueryTables.Add("URL;" & urlSite, Sheets("Dados").Range("A1"))

tabela.WebSelectionType = xlSpecifiedTables
tabela.WebTables = "1"
tabela.WebFormatting = xlWebFormattingNone

tabela.Refresh

End Sub

O problema é que também preciso obter a "página 2" desta tabela e não faço ideia de como fazer isso. Alguém sabe como adaptar essa macro?

Muito obrigado a quem puder ajudar,
Silmar

 

[RoryA]

Welcome to the MrExcel Message Board!

Cross-posting (posting the same question in more than one forum) is not against our rules, but the method of doing so is covered by #13 of the Forum Rules.

Be sure to follow & read the link at the end of the rule too!

Cross posted at:

WebScraping - How to copy data from page 2?

Good evening everyone! I'm getting the table "1" from the site that is in the attached file, for that I'm using the following VBA code: Sub WebScraping() Dim urlSite As String Dim tabela As QueryTable Dim tabelaExistente As QueryTable For Each tabelaExistente In...

www.excelforum.com

There is no need to repeat the link(s) provided above but if you have posted the question at other places, please provide links to those as well.

If you do cross-post in the future and also provide links, then there shouldn’t be a problem.

 

[Silmar]

Bem-vindo ao quadro de mensagens do MrExcel!

A postagem cruzada (postar a mesma pergunta em mais de um fórum) não é contra nossas regras, mas o método de fazê-lo é coberto pelo nº 13 das Regras do Fórum .

Certifique-se de seguir e ler o link no final da regra também!

Cruz postada em:

https://www.excelforum.com/excel-pr... também fornecer links, não haverá problema.

http://Bom dia! Sinto muito pelo er... alguém puder me ajudar, ficarei muito grato.

 

[Silmar]

Good morning! Kindly Mr. Kyle123 got a code that solved my problem, solution that can be seen on the website: WebScraping - How to copy data from page 2?. Thank you.