ฉันจะดาวน์โหลดราคาหุ้นใน Excel 2013 ได้อย่างไร มีฟังก์ชันเทียบเท่ากับสเปรดชีต GoogleFinance ของ Google Doc หรือไม่

ในสเปรดชีต Google เอกสารฉันสามารถใช้สูตรเซลล์นี้:

=GoogleFinance("GOOG", "price")

เพื่อดาวน์โหลดราคาหุ้นล่าสุด มีฟังก์ชันที่เทียบเท่าใน Excel 2013 หรือไม่

Excel เวอร์ชันก่อนหน้ามีคุณสมบัติสมาร์ทแท็กที่ดาวน์โหลดข้อมูลมากมายสำหรับแต่ละทิกเกอร์ (จริง ๆ แล้วถ้าคุณต้องการราคา) และฉันเคยเห็นแหล่งข้อมูลที่แนะนำแอป Bing Financeสำหรับ Excel 2013 น่าเสียดาย สิ่งนี้ถูกยกเลิก

มีวิธีง่าย ๆ ในการทำเช่นนี้? ฉันแค่ต้องการราคาล่าสุดและฉันไม่สนใจว่ามันจะล่าช้าหรือไม่มาจาก Yahoo Finance และอื่น ๆ สมมุติว่าฉันสามารถเขียนรหัส VBA เพื่อดาวน์โหลดไฟล์ CSV จาก YF แยกวิเคราะห์ได้ แต่ฉัน หวังว่าจะหลีกเลี่ยงการสร้างเวิร์กบุ๊กที่เปิดใช้งานมาโคร

คุณสามารถใช้ UDF เช่นนี้ -

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

ตอนนี้คุณสามารถใช้GetTickerPrice("GOOG")และรับราคาปัจจุบัน

ฉันนำสิ่งนี้ไปที่Codereview.SEสำหรับการป้อนข้อมูลบางอย่าง

มีแอพ Stock สี่แอพในOffice Storeในขณะนี้ สองของพวกเขาเป็นอิสระ:

ตัวเชื่อมต่อสต็อก

กระเบื้องสต็อก

มี Add-In ที่เรียกว่าStock Quote Add-In สำหรับ Excel 2013ซึ่งทำเช่นนี้และมีรุ่นสำหรับปี 2013 โดยส่วนตัวแล้วฉันไม่สามารถใช้งานได้ แต่มันมีมาหลายปีแล้ว .