{"id":2264,"date":"2024-03-20T14:39:47","date_gmt":"2024-03-20T17:39:47","guid":{"rendered":"https:\/\/corporateacademy.org\/?p=2264"},"modified":"2026-06-03T11:46:31","modified_gmt":"2026-06-03T14:46:31","slug":"macros-no-excel-aprenda-coletar-o-p-vp-e-dividend-yield-de-fundos-imobiliarios-usando-tecnica-de-scraping","status":"publish","type":"post","link":"https:\/\/corporateacademy.org\/index.php\/2024\/03\/20\/macros-no-excel-aprenda-coletar-o-p-vp-e-dividend-yield-de-fundos-imobiliarios-usando-tecnica-de-scraping\/","title":{"rendered":"Macros no Excel: Aprenda coletar o P\/VP e Dividend Yield de Fundos Imobiliarios usando T\u00e9cnica de Scraping."},"content":{"rendered":"\n

Fernando Neves, Ph.D.<\/em><\/p>\n\n\n\n

Hoje vamos falar de um assunto mais t\u00e9cnico, mas que \u00e9 de interesse geral. Pode ser que voc\u00ea n\u00e3o trabalhe com finan\u00e7as, mas precisa decidir de forma r\u00e1pida sobre seus investimentos, ent\u00e3o voc\u00ea decide usar uma das ferramentas mais conhecidas para fazer an\u00e1lise de dados de forma r\u00e1pida: O Excel.<\/p>\n\n\n\n

Neste post vamos focar em obter dados sobre fundos imobili\u00e1rios, mas se voc\u00ea j\u00e1 tentou fazer isso usando as ferramentas nativas do Excel, deve ter percebido que o Excel n\u00e3o busca todos os dados do ativo. Vamos ent\u00e3o ao b\u00e1sico primeiro e caso seu objetivo seja apenas buscar o pre\u00e7o atual do ativo voc\u00ea pode rapidamente obt\u00ea-lo usando o menu dados ou Data. Neste post usaremos o Excel em Ingl\u00eas, ent\u00e3o o passo a passo \u00e9 o seguinte:<\/p>\n\n\n\n

Posicione o seu cursor na c\u00e9lula onde deseja entrar o ticket do ativo e digite o ticket conforme a figura a seguir. Neste exemplo vamos usar o ticket do t\u00edtulo imobili\u00e1rio HGLG11.<\/p>\n\n\n\n

\"Excel\n\t\t\t\n\t\t\t\t\n\t\t\t<\/svg>\n\t\t<\/button><\/figure>\n\n\n\n

<\/p>\n\n\n\n

A seguir, clique no \u00edcone A\u00c7\u00d5ES, ou STOCKS e a c\u00e9lula ser\u00e1 convertida em um formato que faz a busca online. A seguir, posicione o cursor em uma c\u00e9lula vazia, digite “=” e ent\u00e3o posicione o cursor sobre a c\u00e9lula que cont\u00e9m o nome do ticket, j\u00e1 com a nova formata\u00e7\u00e3o que foi gerada ap\u00f3s ter clicado no \u00edcone STOCKS. Voc\u00ea ver\u00e1 v\u00e1rias op\u00e7\u00f5es conforme a figura a seguir.<\/p>\n\n\n\n

\"Excel\n\t\t\t\n\t\t\t\t\n\t\t\t<\/svg>\n\t\t<\/button><\/figure>\n\n\n\n

<\/p>\n\n\n\n

Adicionando o Pre\u00e7o<\/h4>\n\n\n\n

Voc\u00ea ver\u00e1 v\u00e1rias op\u00e7\u00f5es tais como pre\u00e7o, nome do ticket, alta ou baixa das \u00faltimas 52 semanas, pre\u00e7os de fechamento, etc. Para obter o pre\u00e7o, apenas escolha pre\u00e7o (ou price) e d\u00ea enter. Voc\u00ea ter\u00e1 na c\u00e9lula o \u00faltimo pre\u00e7o do ticket e a formata\u00e7\u00e3o ficar\u00e1 no caso do nosso exemplo: =A1.Price ou =A1.Pre\u00e7o. <\/p>\n\n\n\n

Criando a Macro para obter P\/VP e DY<\/h4>\n\n\n\n

No entanto, para decidir a compra e saber se tenho uma boa oportunidade uso outros par\u00e2metros como por exemplo o dividend yield (DY) e o pre\u00e7o sobre o valor patrimonial (P\/VP) que n\u00e3o aparecem na lista do excel. Para resolver isso, faremos uma macro que busca estes valores em sites especializados como por exemplo o Investidor10<\/a> .<\/p>\n\n\n\n

Primeiro Passo: Ativar a Fun\u00e7\u00e3o Desenvolvedor do Excel<\/h4>\n\n\n\n

Verifique se seu excel est\u00e1 habilitado para macros e se aparece no seu menu a op\u00e7\u00e3o Desenvolvedor ou Developer.<\/p>\n\n\n\n

\"Excel-<\/figure>\n\n\n\n

Para ativar a op\u00e7\u00e3o Desenvolvedor (Developer) no Excel, siga os passos abaixo:<\/p>\n\n\n\n

    \n
  1. Abra o aplicativo Excel em seu computador.<\/li>\n\n\n\n
  2. Clique na guia “Arquivo” no canto superior esquerdo do Excel.<\/li>\n\n\n\n
  3. Selecione “Op\u00e7\u00f5es” ou “Options” para abrir a janela de op\u00e7\u00f5es do Excel. Pode ser que seja necess\u00e1rio clicar em “Mais” ou “More” para que ela apare\u00e7a.<\/li>\n\n\n\n
  4. Na janela de op\u00e7\u00f5es, clique em “Personalizar Faixa de Op\u00e7\u00f5es” ou “Custumize Ribbon” no menu \u00e0 esquerda.<\/li>\n\n\n\n
  5. Na coluna da direita, procure e marque a caixa “Desenvolvedor” ou “Developer”. Voc\u00ea encontrar\u00e1 essa op\u00e7\u00e3o listada entre as outras guias como “In\u00edcio”, “Inserir”, etc.<\/li>\n\n\n\n
  6. Clique em “OK” para confirmar e fechar a janela de op\u00e7\u00f5es.<\/li>\n<\/ol>\n\n\n\n

    Ap\u00f3s seguir esses passos, a guia “Desenvolvedor” ser\u00e1 adicionada \u00e0 sua Faixa de Op\u00e7\u00f5es, e voc\u00ea poder\u00e1 acessar as ferramentas fornecidas nela, como a grava\u00e7\u00e3o de Macros e o Editor de Visual Basic for Applications (VBA).<\/p>\n\n\n\n

    Segundo Passo: Criando a Planilha Base<\/h4>\n\n\n\n

    Crie uma coluna com os nomes dos tickets que deseja coletar. No nosso exemplo, a coluna A traz os tickets. Ent\u00e3o defina as colunas que receber\u00e3o os dados de P\/VP e DY conforme figura a seguir.<\/p>\n\n\n\n

    \"Excel-\n\t\t\t\n\t\t\t\t\n\t\t\t<\/svg>\n\t\t<\/button><\/figure>\n\n\n\n

    <\/p>\n\n\n\n

    Terceiro Passo: Criando a Macro<\/h4>\n\n\n\n

    Agora vamos escrever a Macro que ir\u00e1 acessar a p\u00e1gina na internet, obter os dados e preencher as colunas B e C da planilha. Para abrir o editor de macros do Excel siga os passos a seguir:<\/p>\n\n\n\n


    Abra o Excel<\/strong> e o arquivo onde voc\u00ea deseja adicionar a macro.<\/p>\n\n\n\n

    Pressione Alt + F11<\/strong> para abrir o Editor do VBA.<\/p>\n\n\n\n

    No menu, clique em Inserir > M\u00f3dulo<\/strong>. Isso adicionar\u00e1 um novo m\u00f3dulo ao projeto VBA.<\/p>\n\n\n\n

    Quarto Passo: Escrevendo o C\u00f3digo<\/h4>\n\n\n\n

    Escreva ou cole o c\u00f3digo VBA na janela do m\u00f3dulo que voc\u00ea acabou de inserir. No nosso caso iremos buscar os dados no site Investidor 10. Usaremos o c\u00f3digo a seguir:<\/p>\n\n\n\n

    Sub BuscarValores()
    Dim InternetExplorer As Object
    Dim html As Object
    Dim ticket As String
    Dim url As String
    Dim valorPVp As String
    Dim valorDY As String
    Dim ws As Worksheet
    Dim i As Integer
    Dim cell As Range<\/p>\n\n\n\n

    ' Defina a planilha onde o ticket est\u00e1 localizado\nSet ws = ThisWorkbook.Sheets(\"Sheet1\")\n\n' Crie um novo objeto InternetExplorer\nSet InternetExplorer = CreateObject(\"InternetExplorer.Application\")\n\n' Inicialize o contador para as c\u00e9lulas de resposta\ni = 3\n\n' Loop para percorrer as c\u00e9lulas de A3 at\u00e9 A19\nFor Each cell In ws.Range(\"A3:A19\")\n    ticket = cell.Value ' Obtenha o ticket do t\u00edtulo imobili\u00e1rio da c\u00e9lula atual\n\n    ' Construa a URL\n    url = \"https:\/\/investidor10.com.br\/fiis\/\" & ticket\n\n    ' Abra o Internet Explorer e navegue at\u00e9 a URL\n    With InternetExplorer\n        .Visible = False\n        .navigate url\n\n        ' Aguarde at\u00e9 que a p\u00e1gina seja carregada completamente\n        Do While .Busy Or .readyState <> 4\n            DoEvents\n        Loop\n\n        ' Atribua o documento HTML \u00e0 vari\u00e1vel html\n        Set html = .document\n\n        ' Busque o valor P\/VP utilizando o seletor CSS fornecido\n        valorPVp = html.querySelector(\"#cards-ticker > div._card.vp > div._card-body > span\").innerText\n\n        ' Busque o valor DY utilizando o seletor CSS fornecido\n        valorDY = html.querySelector(\"#cards-ticker > div:nth-child(2) > div._card-body > div > span\").innerText ' Seletor simplificado para o exemplo dado\n\n        ' Defina o valor de P\/VP na c\u00e9lula correspondente, come\u00e7ando em B3\n        ws.Cells(i, \"B\").Value = valorPVp\n\n        ' Defina o valor de DY na c\u00e9lula correspondente, come\u00e7ando em C3\n        ws.Cells(i, \"C\").Value = valorDY\n\n        ' Incremente o contador para a pr\u00f3xima c\u00e9lula de resposta\n        i = i + 1\n    End With\nNext cell\n\n' Feche o Internet Explorer\nInternetExplorer.Quit\n\n' Limpe os objetos\nSet html = Nothing\nSet InternetExplorer = Nothing\nSet ws = Nothing<\/code><\/pre>\n\n\n\n
    End Sub<\/p>\n\n\n\n
    Quinto Passo: Executando a Macro<\/h4>\n\n\n\n
    Para executar a macro, pressione F5<\/strong> ou v\u00e1 para o menu Executar > Executar Sub\/UserForm<\/strong>.<\/p>\n\n\n\n
    Se voc\u00ea n\u00e3o tiver habilitado macros no seu Excel, talvez seja necess\u00e1rio alterar as configura\u00e7\u00f5es de seguran\u00e7a. Para fazer isso, v\u00e1 para Arquivo > Op\u00e7\u00f5es > Central de Confiabilidade > Configura\u00e7\u00f5es da Central de Confiabilidade > Configura\u00e7\u00f5es de Macro<\/strong> e escolha a op\u00e7\u00e3o que permita a execu\u00e7\u00e3o de macros.<\/p>\n\n\n\n
    Ao fazer isso o c\u00f3digo preencher\u00e1 para voc\u00ea todos os dados automaticamente. \u00c9 importante dizer que estes dados n\u00e3o ser\u00e3o atualizados automaticamente. Cad vez que precise atualizar os dados rode novamente a macro.<\/p>\n\n\n\n
    Customizando o C\u00f3digo<\/h3>\n\n\n\n
    Caso precise customizar para buscar outros dados, ou buscar em outro site ou buscar outras informa\u00e7\u00f5es basta alterar algumas linhas do co\u00f3digo.<\/p>\n\n\n\n
    O site est\u00e1 definido no endere\u00e7o de URL e a parte do c\u00f3digo que faz isso \u00e9:<\/p>\n\n\n\n
    ‘ Construa a URL<\/strong><\/p>\n\n\n\n
         url = “https:\/\/investidor10.com.br\/fiis\/” & ticket<\/p>\n\n\n\n
    A parte do c\u00f3digo que busca o P\/VP \u00e9 dada por:<\/p>\n\n\n\n
    ‘ Busque o valor P\/VP utilizando o seletor CSS fornecido<\/p>\n\n\n\n
         valorPVp = html.querySelector(“#cards-ticker > div._card.vp > div._card-body > span”).innerText<\/p>\n\n\n\n
    Para encontrar o que dever\u00e1 ser inserido entre as aspas neste comando, basta ir ao site e entrar na p\u00e1gina onde se encontra o dado. Ent\u00e3o clique copm o bot\u00e3o direito e clique em inspecionar conforme figura a seguir:<\/p>\n\n\n\n
    \"Inspecionar\n\t\t\t\n\t\t\t\t\n\t\t\t<\/svg>\n\t\t<\/button><\/figure>\n\n\n\n
    <\/p>\n\n\n\n
    Isso abrir\u00e1 uma aba no seu navegador com algumas informa\u00e7\u00f5es sobre a p\u00e1gina. Veja na figura a seguir que do lado direito foi aberta uma janela contendo o valor de P\/VP que est\u00e1 marcado em amarelo.<\/p>\n\n\n\n
    \"Site\n\t\t\t\n\t\t\t\t\n\t\t\t<\/svg>\n\t\t<\/button><\/figure>\n\n\n\n
    <\/p>\n\n\n\n
    Na Figura a seguir mostramos com maior detalhe. Agora basta clicar neste valor com o bot\u00e3o direito e escolher a op\u00e7\u00e3o copiar seletor<\/p>\n\n\n\n
    <\/p>\n\n\n\n
    \"Copiando\n\t\t\t\n\t\t\t\t\n\t\t\t<\/svg>\n\t\t<\/button><\/figure>\n\n\n\n
    <\/p>\n\n\n\n
    Agora basta substituir entre as aspas e o c\u00f3digo ir\u00e1 buscar o dado especificado para cada ticket. Perceba que em nosso c\u00f3digo temos dois comandos. Um para o P\/VP e outro para o DY:<\/p>\n\n\n\n
    ‘ Busque o valor P\/VP utilizando o seletor CSS fornecido<\/p>\n\n\n\n
             valorPVp = html.querySelector(“#cards-ticker > div._card.vp > div._card-body > span”).innerText         <\/p>\n\n\n\n
    ‘ Busque o valor DY utilizando o seletor CSS fornecido<\/p>\n\n\n\n
             valorDY = html.querySelector(“#cards-ticker > div:nth-child(2) > div._card-body > div > span”).innerText ‘ Seletor simplificado para o exemplo dado<\/p>\n\n\n\n
    <\/p>\n\n\n\n
    Caso voc\u00ea precise adicionar outros dados como por exemplo a liquidez di\u00e1ria ou a cota\u00e7\u00e3o dever\u00e1 adicionar outras linhas de c\u00f3digo para cada dado que se queira obter do site. Ser\u00e1 preciso tamb\u00e9m criar as vari\u00e1veis que receber\u00e3o os dados. Por exemplo: valorLiquidez, ou valorCota\u00e7\u00e3o e assim sucessivamente.<\/p>\n\n\n\n
    \u00c9 claro que tamb\u00e9m \u00e9 preciso adicionar ao c\u00f3digo quais ser\u00e3o as colunas que receber\u00e3o os dados obtidos. A linha de c\u00f3digo que faz isso \u00e9:<\/p>\n\n\n\n
    ‘ Defina o valor de P\/VP na c\u00e9lula correspondente, come\u00e7ando em B3<\/p>\n\n\n\n
             ws.Cells(i, “B”).Value = valorPVp         <\/p>\n\n\n\n
    ‘ Defina o valor de DY na c\u00e9lula correspondente, come\u00e7ando em C3<\/p>\n\n\n\n
             ws.Cells(i, “C”).Value = valorDY<\/p>\n\n\n\n
    Ent\u00e3o basta adicionar outras linhas atribuindo a cada c\u00e9lula das demais colunas como, por exemplo D, E, etc. os valores obtidos como por exemplo:<\/p>\n\n\n\n
    ws.Cells(i,”D”).Value = valorLiquidez.<\/p>\n\n\n\n
    Veja Tamb\u00e9m o post sobre valuation usando Python e Excel<\/h3>\n\n\n\n
    \n
    Como Automatizar o Valuation de A\u00e7\u00f5es com Python: Calcule o Pre\u00e7o Teto e Encontre Oportunidades na Bolsa<\/a><\/blockquote>