# Microsoft Excel
URL: /docs/examples/excel.mdx

Aprenda a importar cotações da B3 no Excel usando Power Query e a API brapi.dev. Integração sem código para planilhas financeiras.

***

title: 'Microsoft Excel'
description: >-
Aprenda a importar cotações da B3 no Excel usando Power Query e a API
brapi.dev. Integração sem código para planilhas financeiras.
full: false
keywords: brapi, api, excel, power query, planilha, cotações
openGraph:
title: Integração com Excel - brapi.dev
description: Importe cotações da B3 no Excel usando Power Query
type: website
locale: pt\_BR
lastUpdated: '2025-10-12T17:30:00.000Z'
lang: pt-BR
-----------

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:

```vb
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](https://github.com/VBA-tools/VBA-JSON)

## Próximos Passos

* Veja como usar no [Google Sheets](/docs/examples/google-sheets)
* Explore [outros exemplos](/docs/examples)


