Pessoal, desculpem o nível extremamente principiante no assunto, mas preciso encontrar uma forma de copiar três tabelas de um determinado site (http://www.mercadobitcoin.com.br/BRLBTC/negociacoes) e colar em uma planilha do excel. Simples assim, porém, devido ao pouco conhecimento, não estou conseguindo fazer. Me ajudem por favor.
O que consegui até agora foi apenas abrir a página web:
Sub Abre_IE()
Dim URL As String
URL = "https://www.mercadobitcoin.com.br/BRLLTC/negociacoes/"
Dim ie As Object
Set ie = CreateObject("internetexplorer.application")
ie.Visible = True
ie.navigate URL
Do While ie.ReadyState <> 4
DoEvents
Loop
ie.Document.getelementbyid("???????").Click
ie.Document.getelementbyid("???????").Copy
Do While ie.ReadyState <> 4
DoEvents
Loop
ActiveSheet.Paste Destination:=Worksheets("Plan1").Cell("A1")
End Sub
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E