मैं एक्सेल 2013 में स्टॉक मूल्य कैसे डाउनलोड करूं? क्या Google Doc के GoogleFinance स्प्रेडशीट फ़ंक्शन के बराबर है?


8

Google डॉक्स स्प्रेडशीट में, मैं इस सेल सूत्र का उपयोग कर सकता हूं:

=GoogleFinance("GOOG", "price")

किसी शेयर की नवीनतम कीमत डाउनलोड करने के लिए। एक्सेल 2013 में एक समान कार्य है?

एक्सेल के पहले संस्करणों में एक स्मार्ट टैग सुविधा थी जो प्रत्येक टिकर के लिए एक टन डेटा डाउनलोड करती थी (बहुत अधिक, वास्तव में, अगर आपको केवल कीमत की आवश्यकता है), और मैंने ऐसे स्रोतों को देखा है जो एक्सेल 2013 के लिए बिंग फाइनेंस ऐप का सुझाव देते हैं । दुर्भाग्य से इसे बंद कर दिया गया है।

क्या ऐसा करने के लिए एक सरल तरीका है? मुझे सचमुच हाल ही में सबसे अधिक कीमत की आवश्यकता है, और मुझे परवाह नहीं है अगर यह देरी हो रही है, याहू वित्त से आता है, आदि। संभवतः मैं वाईएफ से एक सीएसवी फ़ाइल डाउनलोड करने के लिए वीबीए कोड लिख सकता हूं, इसे पार्स करें और इसी तरह, लेकिन मैं मैक्रो-सक्षम कार्यपुस्तिका बनाने से बचने की उम्मीद करना।


यह एक विशेषता नहीं है कि एक्सेल बॉक्स से बाहर का समर्थन करता है
रामहुंड

1
एक्सेल 2007/2010 के data - existing connection - MSN MoneyCentral Investory Stock Quotesकामों में, क्या इसे 2013 के लिए हटा दिया गया था? संपादित करें - हाँ ऐसा लगता है कि इसे हटा दिया गया था और बिंग फाइनेंस ऐप "प्रतिस्थापन" है। आप data - from webmsn पैसे के लिए एक क्वेरी सेट कर सकते हैं , लेकिन यह थकाऊ होगा।
Raystafarian

@Raystafarian मैं एक नई डेटा क्वेरी कैसे सेट करूंगा?
माइकल ए

ऐसा लगता है कि आपको 2013 के स्रोत में पावर क्वेरी का उपयोग करने की आवश्यकता हो सकती है
Raystafarian

1
@harrymc मैं ओपी नहीं हूं, लेकिन मुझे लगता है कि सबसे मूल्यवान उत्तर कुछ ऐसा होगा जो एक्सेल 2013 में मौजूदा कार्यक्षमता का उपयोग करता है और / या स्वतंत्र है।
१४:१४ पर एक्सेल

जवाबों:


5

आप इस तरह से एक यूडीएफ का उपयोग कर सकते हैं -

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 को सौंप दिया


2
क्या लॉन्ग के बजाय डबल के रूप में प्रारूपित करना सबसे अच्छा नहीं होगा, इसलिए आप दशमलव जानकारी नहीं खोते हैं? फिर अंतिम उपयोगकर्ता यह तय कर सकता है कि क्या वे इसे गोल करना चाहते हैं।
जोनो

धन्यवाद, यह काम करता है! लेकिन यह वास्तव में धीमा है - एक शेयर की कीमत पाने के लिए लगभग 20 सेकंड। मैं IE खोलने और URL को लोड करने में अड़चनें मान रहा हूं। क्या इसके आसपास पाने के लिए कोई रास्ता नहीं है?
एक्सेल

@ जोनो हाँ, मैं देख रहा हूँ कि एक्सेल ने बदलाव किया है
रेस्टाफैरियन

@ एक्ससेल मैं यह देखने की कोशिश करूंगा कि क्या इसके आसपास कोई रास्ता है, हो सकता है कि आईई को चुप रहने के लिए मजबूर किया जाए, लेकिन जब तक हम एक डेटाबेस नहीं पा सकते हैं जैसे कि इस्तेमाल किया जाता था, तब तक हम अटक सकते हैं (कम से कम एक्सेल के पुराने संस्करणों के लिए)।
रेस्टाफ़ेरियन

1
@Excellll मेरे दृष्टिकोण के लिए CodeReview में एक बहुत अच्छी प्रतिक्रिया है । ऐसा लगता है कि यह काफी अलग है कि इसे मेरे जवाब के समान नहीं माना जाएगा।
रायस्टाफ़ेरियन


-1

एक्सेल 2013 के लिए एक स्टॉक -इन कहा जाने वाला ऐड-इन एक्सेल 2013 है, जो ऐसा करता है, और 2013 के लिए एक संस्करण है। व्यक्तिगत रूप से मुझे यह काम करने के लिए नहीं मिल सकता था, लेकिन यह कुछ वर्षों के लिए रहा है, इसलिए यह सिर्फ मेरे लिए था ।


2
सुपर उपयोगकर्ता में आपका स्वागत है। यह प्रश्न का उत्तर देने में मदद करता है लेकिन क्या आप संभवतः इस बारे में जानकारी जोड़ सकते हैं कि इस प्लगइन का उपयोग कैसे किया जाना चाहिए?
LJD200
हमारी साइट का प्रयोग करके, आप स्वीकार करते हैं कि आपने हमारी Cookie Policy और निजता नीति को पढ़ और समझा लिया है।
Licensed under cc by-sa 3.0 with attribution required.