Como faço para baixar o preço de uma ação no Excel 2013? Existe um equivalente à função de planilha eletrônica do Google Doc?

Question

Em uma planilha do Google Docs, posso usar esta fórmula de célula:

=GoogleFinance("GOOG", "price")

para baixar o preço mais recente de uma ação. Existe uma função equivalente no Excel 2013?

Versões anteriores do Excel tinham um recurso de marca inteligente

Existe uma maneira simples de fazer isso? Eu literalmente só preciso do preço mais recente, e eu não me importo se ele está atrasado, vem do Yahoo Finance, etc. Presumivelmente, eu poderia escrever código VBA para baixar um arquivo CSV da YF, analisá-lo e assim por diante, mas eu sou na esperança de evitar a criação de uma pasta de trabalho habilitada para macro.

    

Answer 1

Você pode usar uma UDF assim -

Option Explicit

Public Function GetTickerPrice(ByVal ticker As String) As Double

    Dim IE As Object
    Dim pageData As Object

    Set IE = CreateObject("InternetExplorer.Application")
    Dim URL As String
    URL = "http://www.msn.com/en-us/money/stockdetails/fi-126.1." & ticker & ".NAS?symbol=" & ticker & "=PRFIMQ"

    IE.Navigate URL

     Do Until IE.ReadyState >= 4
            DoEvents
     Loop

     Application.Wait Now + TimeSerial(0, 0, 5)

     Set pageData = IE.document

     GetTickerPrice = pageData.getElementsByClassName("precurrentvalue")(0).innertext

     Set IE = Nothing
     Set pageData = Nothing
End Function

Agora você pode usar GetTickerPrice("GOOG") e obter o preço atual.

Eu levei isso para Codereview.SE para alguma entrada.

    

Answer 2

Existem quatro aplicações Stock na Loja do Office no momento. Dois deles são gratuitos:

Conector de estoque

Stock Tile

    

Answer 3

Existe um Add-In chamado Add-In do Stock Quote para Excel 2013 que faz isso e tem uma versão para 2013. Pessoalmente, não consegui fazê-lo funcionar, mas já existe há alguns anos, por isso era provavelmente só eu.