Este fórum está sendo desativado

[Sandman]

Boa tarde pessoal,

gostaria de saber se alguém poderia me ajudar com o seguinte problema, quero fazer com que uma planilha consiga buscar dados na web e traga-os para o excel para depois eu trabalhar em cima dos mesmos, seria assim, tenho esse endereço ↓

https://www.ibovx.com.br/historico-pape ... regoes=300

então, se vocês copiarem esse endereço e colar no navegador irão ver que aparecerá uma tela com diversas informações, eu preciso pegar todos os dados da tabela para depois manipular eles, basicamente dar um ctrl+c na tabela toda e ctrl+v no excel, alguém pode me dar uma luz?

Desde já agradeço
abs

[gfranco]

Bom dia.
Veja se te ajuda.
Rode essa macro estando com a planilha de destino das informações ATIVA pois ela entende que o destino é a planilha ativa.
Eu apenas ajustei a macro obtida com o gravador

Veja se te ajuda.

Código: Selecionar todos

Sub Importa()
Dim ws As Worksheet 'declara a variável para manipular a planilha

Set ws = ActiveSheet 'seta a variável na planilha ativa

ws.UsedRange.EntireColumn.Delete 'apaga os dados da planilha ativa
    
    'executa a query gravada com o gravador de macros
    
    With ws.QueryTables.Add(Connection:= _
        "URL;https://www.ibovx.com.br/historico-papeis-bovespa.aspx?papel=bbas3&qtdpregoes=300" _
        , Destination:=Range("$a$1"))
        .Name = "historico-papeis-bovespa.aspx?papel=bbas3&qtdpregoes=300"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlSpecifiedTables
        .WebFormatting = xlWebFormattingNone
        .WebTables = "2"
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
End Sub

[Sandman]

Boa noite gFranco, muito obrigado pela solução, eu havia tentado com o gravador de macros tb e com a ferramentas de importar dados da web, funcionava enquanto estava gravando, mas depois quando eu ia rodar o código novamente dava erro, mas a sua solução funciona perfeitamente, muito obrigado mesmo pela ajuda

grande abraço