Làm cách nào để tải xuống giá chứng khoán trong Excel 2013? Có tương đương với chức năng bảng tính GoogleFinance của Google Doc không?

Trong bảng tính Google Docs, tôi có thể sử dụng công thức ô này:

=GoogleFinance("GOOG", "price")

để tải về giá mới nhất của một cổ phiếu. Có một chức năng tương đương trong Excel 2013 không?

Các phiên bản trước của Excel có tính năng thẻ thông minh đã tải xuống một tấn dữ liệu cho mỗi mã đánh dấu (thực tế là quá nhiều, nếu bạn chỉ cần giá) và tôi đã thấy các nguồn đề xuất ứng dụng Bing Finance cho Excel 2013. Thật không may điều này đã bị ngưng

Có một cách đơn giản để làm điều này? Tôi thực sự chỉ cần giá gần đây nhất và tôi không quan tâm nếu nó bị trì hoãn, đến từ Yahoo Finance, v.v. Có lẽ tôi có thể viết mã VBA để tải xuống tệp CSV từ YF, phân tích cú pháp, v.v. hy vọng tránh tạo ra một bảng tính kích hoạt macro.

Bạn có thể sử dụng UDF như thế này -

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

Bây giờ bạn có thể sử dụng GetTickerPrice("GOOG")và nhận được giá hiện tại.

Tôi đã thực hiện điều này trên Codereview.SE cho một số đầu vào.

Hiện tại có bốn ứng dụng Stock trong Office Store . Hai trong số đó là miễn phí:

Kết nối chứng khoán

Ngói cổ

Có một Bổ trợ có tên là Stock Trích dẫn bổ trợ cho Excel 2013 thực hiện điều này và có phiên bản cho năm 2013. Cá nhân tôi không thể làm cho nó hoạt động được, nhưng nó đã tồn tại được vài năm nên có lẽ chỉ có tôi .