Eu estou tentando extrair uma tabela específica de um site e colar em uma planilha para atualizar diariamente um banco de dados. Mas como é impossível baixar a tabela como excel ou csv, devo extrair a tabela diretamente do site.
Segue meu código e onde estou com problema (onde está escrito "HERE").
Sub Daily()
'Create Internet Explorer Browser
Dim appIE As Object
Set appIE = CreateObject("internetexplorer.application")
'Ask Browser to navigate to website (.Visible=False will hide IE when running)
With appIE
.Navigate "https://www.infomoney.com.br/mercados/ferramentas/contratos-di-futuro"
.Visible = True
End With
'Have the macro pause while IE is busy opening and navigating
Do While appIE.Busy
DoEvents
Loop
'Designate the table to be extracted and Copy the data from table - HERE
'Close IE and clear memory
appIE.Quit
Set appIE = Nothing
'Clear area and paste extracted text into the appropriate sheet/cells - HERE
Worksheets("Sheet1").Range("A2:H1000").ClearContents
Sheets("PPG").Select
Range("A2").Select
End Sub