Tag: 雅虎财务
雅虎！ – 财务（或其他）在Excel中的历史数据
我看到它的方式，有两种可能性让雅虎！金融数据到Excel。 第一个是实时数据，第二个是历史数据。 我需要历史数据。 我目前的VBA代码如下： firstcolumn = 2 lastcolumn = 6 For n = firstcolumn To lastcolumn Ticker = Worksheets(1).Cells(3, n).Value ActiveWorkbook.Worksheets.Add After:=Worksheets(Worksheets.Count) With ActiveSheet.QueryTables.Add(Connection:= _ "TEXT;http://ichart.finance.yahoo.com/table.csv?s=" & Ticker & "&d=" & Month(Date) & "&e=" & Day(Date) & "&f=" & Year(Date) & "&g=d&" _ & "a=" & Month(Date) & "&b=" & Day(Date) & "&c=" & Year(Date) […]
雅虎财务API和Excel VBA
我正在build立Excel VBA程序，其中它将从雅虎金融API的结果超过60K ticklers。 由于一次有200个跟踪代码的限制，如果我一次跟踪200个代码，结果CSV文件只返回198个符号结果，因为它覆盖了空白条目，因此返回空白的很less，因为雅虎API不会返回几个符号的任何东西。 请参阅下面的查询相同。 http://download.finance.yahoo.com/d/quotes.csv?s=VPV+VPY.V+VQA.V+VQS.V+VQT+VR+VR.V+VR9F.EX+VRA+VRAP.PA+VRD+VRD.V+VRE.AX+VRE.TO+VRL.AX+VRML+VRNG+VRNGW+VRNL.PA+VRNM+VRNT+VRP.L+VRS+VRS.L+VRS.V+VRSK+VRSN+VRT.AX+VRTA+VRTB+VRTS+VRTU+VRTX+VRTX.MX+VRW.MI+VRW.V+VRX+VRX.AX+VRX.TO+VRZ.H.V+VRZ-H.V+VSAF.EX+VSAT+VSB+VSB.TO+VSBN+VSC.AX+VSC.TO+VSCI+VSCP+VSEC+VSH+VSI+VSI.V+VSMO.ME+VSN.DB.C.TO+VSN.PR.A.TO+VSN.TO+VSO.AX+VSP.TO+VSPY+VSR+VSR.V+VSS+VST.V+VSTM+VSTX.L+VSVS.L+VSXG.L+VSXX.L+VSYG.L+VT+VTA+VTA.AS+VTBR.IL+VTBR.L+VTC.L+VTG+VTG.AX+VTHR+VTI+VTI.V+VTIP+VTM.AX+VTM-H.V+VTMO.AX+VTN+VTN.TO+VTNC+VTNR+VTP.AX+VTR+VTR.TO+VTRB+VTS.AX+VTSF.EX+VTSS+VTU.L+VTUS+VTV+VTWG+VTWO+VTWV+VTX.AX+VUG+VUI.V+VUKE.L+VUL.V+VULC3.SA+VULC3F.SA+VUN.TO+VUS.TO+VUSA.L+VUSD.L+VV+VV.V+VVC+VVC.V+VVDG.EX+VVI+VVI.V+VVN.V+VVR+VVTV+VVUS+VVV.V+VWA.AS+VWM.AX+VWO+VWOB+VWRD.L+VWRL.L+VXF+VXIM.L+VXIS.L+VXR.AX+VXS.TO+VXSC.TO+VXUS+VXX+VXX.TO+VXX.U.TO+VXXKRB.AX+VXXKRD.AX+VXXKRE.AX+VXXKRG.AX+VXXKRP.AX+VXXKRR.AX+VXZ+VYC.V+VYFC+VYM+VZ+VZ.MX+VZC.L+VZN.SW+VZX.V+VZZ.V+W.PR.H.TO+W.PR.J.TO+W:707284.TWO+W:707285.TWO+W01.SI+W05.SI+W12.SI+W81.SI+WAA.AX+WAAO.AX+WAB+WABC+WAC+WAC.AX+WACO.AX+WAF.AX+WAFD+WAFDW+WAFM.L+WAG+WAGE+WAI.V+WAIR+WAL+WAL.AX+WALG.L+WALMEXV.MX+WAM.AX+WAN.V+WAND.L+WAPO.JK+WAR.L+WAR.V+WAS.AX+WAS.L+WAS.P.V+WASH+WASO.AX+WAT+WAT.AX+WAT.V+WATL.L&f=nl1d1hgkjx 有反正我们可以有一个NULLtypes的东西作为回报，哪里不会返回？ 你可以在上面的查询URL中看到它正在试图获取200个符号的结果，它只返回198，因为它们中的两个没有返回任何结果，空白覆盖下一个有数据的行。
如何从雅虎拉“最后交易date”数据 Excel中的财务API？
使用Visual Basic，我试图从雅虎拉“最后交易date”数据。 通过在Excel中引用股票的股票代码来为CSV提供财务API。 雅虎 金融API的 最后交易date作为“＆f = d1 ”附加到URL上， 股票交易代码被replace为Excel中的StockQuote（）（例如GOOG，GE）。 在股票代码中input股票代码并反过来用StockQuote（）引用该股票时，我收到#VALUE！ 错误。 点击查看#VALUE！ 来自Excel的错误截图 我意识到使用StockQuote（）函数的As Double数据types可能不适合检索date数据。 用当前代码块中的Integer ， Long和Date数据typesreplaceDouble已经呈现了#VALUE！ 错误也是如此。 我正在一个启用macros的工作表中，并将Visual Basic代码放在一个模块中。 有人会解释#VALUE的来源！ 错误和我可能会修改下面的代码来检索给定的股票代码的最后交易date，当利用雅虎！ 财务API？ Option Explicit Function StockQuote(ByVal ticker As String) As Double Dim url As String Dim lastDate As Double Dim http As Object url = "http://download.finance.yahoo.com/d/quotes.csv?s=" & ticker & "&f=d1" Set http […]
使用Excel VBA从雅虎财务中提取数据
您好我需要帮助这个代码我试图从这个页面提取数据https://finance.yahoo.com/quote/ADM.L/balance-sheet?p=ADM.L ，但问题是页是默认设置为年度，但我需要总资产和总负债的季度值。 这个代码运行，但大部分时间是select年度值。 请提出一些我可以做的事情。 Private Sub CommandButton3_Click() ' Dim ie As Object Set Rng = Range("A2:A50") Set Row = Range(Rng.Offset(1, 0), Rng.Offset(1, 0).End(xlDown)) Set ie = CreateObject("InternetExplorer.Application") With ie '.Visible = False For Each Row In Rng .navigate "https://finance.yahoo.com/quote/" & Range("A" & Row.Row).Value & "/balance-sheet?p=" & Range("A" & Row.Row).Value 'Application.Wait (Now + TimeValue("0:00:02")) While ie.readyState […]
如何将雅虎历史股票数据下载到xls。 通过matlab格式？
我有一个名为蒂克斯（matrix1列500行）xahoo表与雅虎tickers。 我希望matlab能够将每个股票报价器的最近5年的历史数据下载到一个单独的xls电子表格中，并将其保存在具有sheet = ticker标题的给定目录中。 所以这意味着我想要一个代码，将创build并保存在500个单独的spreadhseets价值500代价值数据:)任何人都可以帮助或指导？
parsingExcel VBA中的string而不留下尾随空格？
我目前正在开发一个Excel电子表格，能够从雅虎财经API导出数据进行dynamic股票报价分析。 我有问题正确parsing到我的Excel电子表格中的值。 问题是最后一列数字值有一个尾随空格字符，这可以防止Excel将其识别为数字并以逗号样式格式化。 这是我目前使用的function： Function UpdateStockData(rawWebpageData As String) Dim stockQuotes As Variant Dim stockQuoteValues As Variant Dim i As Integer Dim j As Integer stockQuotes = Split(rawWebpageData, vbLf) For i = 0 To UBound(stockQuotes) If InStr(stockQuotes(i), ",") > 0 Then stockQuoteValues = Split(stockQuotes(i), ",") For j = 0 To UBound(stockQuoteValues) sheet.Cells(5 + i, 4 + […]
Excel VBA按照一定顺序分割CSV文件
此代码需要一个CSV文件，如： "Penn National Gaming, Inc.",16.28 "iShares 20 Year Treasury Bond E",118.88 "iShares MSCI Emerging Index Fun",42.40 步骤1 0号线： “”宾夕法尼亚州国家博彩公司“，16.28 第一行： “iShares20年国债E”，118.88 第二行： “iShares MSCI新兴指数乐趣”，42.40 第2步 它需要线0，并使其在： 值0：佩恩国家博彩 价值1： ，Inc. 价值2： 16.28 我的问题是：我怎样才能使它成为： 价值0：佩恩国家游戏公司 价值1： 16.28 将价值0中的全名（可能包含多于一个逗号）基本上结合起来，并保留值1 ，但同时仍设法用逗号分隔CSV提供的数据。 我正在考虑某种顺序（从行1开始，从行1开始只删除一个逗号，但是我找不到办法做到这一点。 谢谢！ Dim Resp As String: Resp = Http.ResponseText Dim Lines As Variant: Lines = Split(Resp, vbLf) Dim […]
Alpha Vantage：使用Excel VBA从CSV文件中提取数据
我是雅虎财经API难民（他们停止了他们的API服务）试图切换到Alpha Vantage。 我修改了以前用于Yahoo Finance的下面的代码，但是我在Excel中遇到了一个#VALUE错误。 下面的url本身是可以工作的（如果你在networking浏览器中input的话，它会打开一个CSV文件），所以我想我真正的问题在于从CSV中提取正确的数据到我的Excel电子表格中。 任何人都可以帮助吗？ 我试图从CSV中提取第2行第5列（最后收盘价）的数据。 提前谢谢了！ Function StockClose(Ticker As String) Dim URL As String, CSV As String, apikey As String, SCRows() As String, SCColumns() As String, pxClose As Double apikey = "*censored*" URL = "https://www.alphavantage.co/query?function=TIME_SERIES_DAILY&symbol=" & Ticker & "&outputsize=full&" & apikey & "&datatype=csv" Set xmlhttp = CreateObject("MSXML2.XMLHTTP") xmlhttp.Open "GET", URL, False xmlhttp.Send CSV […]
replace。 在雅虎金融提取的货币数量
我正在使用excel 2010 。 我有以下vba函数，它从雅虎财务检索我货币。 但是，我的问题是，我正在使用德语版本的Excel和. 在这个版本中, 。 因此，转换后的货币如下所示： 那是我正在使用的function： Function MYCURRENCYEXCHANGER(SourceCur As String, DestCur As String) As Variant Dim url As String ' http://quote.yahoo.com/d/quotes.csv?s=XXXYYY=X&f=l1 this is the link format where XXX is currency1 and YYY is currency2 ' url = "http://quote.yahoo.com/d/quotes.csv?s=" & SourceCur & DestCur & "=X&f=l1" Dim myHTTP As New WinHttp.WinHttpRequest myHTTP.Open "GET", url, […]
