Microsoft Excel

Importe cotações automáticas da B3 no Microsoft Excel usando Power Query.

Usando Power Query

O Power Query permite importar dados JSON diretamente no Excel sem necessidade de programação.

Passo a Passo

1. Abra o Excel e vá para a guia Dados
2. Clique em Obter Dados > De Outras Fontes > Da Web
3. Insira a URL:

   https://brapi.dev/api/quote/PETR4?token=SEU_TOKEN

4. Clique em OK
5. O Power Query abrirá uma janela mostrando os dados JSON
6. Clique em Converter > Para Tabela
7. Expanda as colunas conforme necessário
8. Clique em Fechar e Carregar

Atualização Automática

Para atualizar os dados automaticamente:

1. Clique com botão direito na tabela
2. Selecione Atualizar
3. Ou configure atualização automática em Propriedades da Consulta

VBA (Avançado)

Se precisar de mais controle, use VBA:

Sub GetBrapiQuote()
    Dim http As Object
    Dim json As Object
    Dim token As String
    Dim ticker As String
    Dim url As String
    
    token = "SEU_TOKEN"
    ticker = "PETR4"
    url = "https://brapi.dev/api/quote/" & ticker & "?token=" & token
    
    Set http = CreateObject("MSXML2.XMLHTTP")
    http.Open "GET", url, False
    http.Send
    
    If http.Status = 200 Then
        Set json = JsonConverter.ParseJson(http.responseText)
        Range("A1").Value = json("results")(1)("symbol")
        Range("B1").Value = json("results")(1)("regularMarketPrice")
    End If
End Sub

Nota: Requer biblioteca VBA-JSON

Próximos Passos

• Veja como usar no Google Sheets
• Explore outros exemplos