Tag: stockquotes

parsing富达股票报价页面

通过build立与相关富达页面的连接，我可以从富达获得股票和指数数据; 将结果写入工作表; 然后在表格上find我想要的结果。 我现在试图简化和避免使用IE和临时工作表页面 。 下面的代码，使用微软的XML，v6.0似乎下载了所有的相关信息，但我不知道如何处理事后，以便能够提取最后一个价格的名称 ， 最后价格和date/时间 。 我曾看过雅虎的财务和Google的财务，但他们没有我所感兴趣的所有指数。 下面的代码使我能够下载页面信息，但是我看到的“Get”返回的唯一组件是responseText （我已经分解并放在工作表上以供检查）和responseBody是一个responseText内容的字符代码数组。 也许我甚至不应该首先使用MS XML工具，但在我看来这应该是可能的。 感谢任何指针。 Sub FIDOQuoteTester() 'Set Reference to Microsoft XML V6.0 Const sURLPart1 As String = "http://quotes.fidelity.com/webxpress/get_quote?QUOTE_TYPE=D&SID_VALUE_ID=" Const sURLPart3 As String = "&submit=Quote" Dim sURL As String Dim sSymbols As String '+ separated list Dim REQ As MSXML2.ServerXMLHTTP60 'using Server type as the […]

使用IEX API进行实时股票信息（雅虎财经更换）？

就像标题所说，我现在正在寻找股票信息的替代来源，雅虎已经禁用许多人已经使用的API。 我一直在寻找的新来源是： https ： //iextrading.com/developer/ 我的问题是如何实际获得数据到Excel中…我想通过VBA，因为这是我用来从雅虎的数据。 然而，我想我想要做的是远远超出我目前的能力…我也尝试使用Excel的WEBSERVICE（）函数与下面的URL来看看一个价格： https ：//api.iextrading.com/1.0 /股票/ AAPL /价格，但没有奏效。 据我了解，IEX已经为我们免费提供了大量的数据，我只是不知道如何访问它。 我对VBA的推理是为了能够使用工作簿中的input列表来获取代码，并且能够将这些数据访问放在许多工作簿中。 任何帮助深表感谢。 另外，对于我自己可以从哪里开始学习的任何方向都会受到同样的欢迎。 谢谢。 更新：我的评论中提到的代码 Function StockPrice(ticker As String, item As String) As Double Dim strURL As String, strCSV As Double, itemFound As Integer, tag As String itemFound = 0 If item = "lastprice" Then tag = "price" itemFound = 1 ElseIf […]

Python：Excel正在以实时股票价格进行交易。 如何每10分钟附加价格给csv？

这是我的Python脚本： from xlrd import open_workbook from xlrd import xldate_as_tuple book = open_workbook('C:/Users/…….Constantquotes.xlsx') sheet0 = book.sheet_by_index(0) #Initializes the first row print sheet0.row(0) #Prints the first row date_value = xldate_as_tuple(sheet0.cell(0,1).value,book.datemode) print date_value #Prints the date cell # Next step: make the a list for the stock price # Next step: append the list to a csv 所以我把价格变成了excel，并且每秒更新一次。 […]

VBA股票信息检索到Excel中

首先，我不得不承认，我不是很擅长VBA。 我试图调整从这个和这个网站的代码，以下载给定的股票名单上的我需要的信息。 我在表格“数据”的A栏中列出了代号，并且希望从列c开始的列中的下列信息（名称，交换，出价，询问等）在右边。 我想通过点击一个button来运行macros（从而更新所有值）。 我试图相应地调整代码，但仍然遇到我无法debugging的错误。 你能帮我把代码搞定吗？ 非常感谢！ 错误 Sub DownloadStockQuotes(ByVal stockTicker As String, ByVal DestinationCell As String) Dim qurl As String Dim StartMonth, StartDay, StartYear, EndMonth, EndDay, EndYear As String Dim C As WorkbookConnection StartMonth = Format(Month(StartDate) – 1, "00") StartDay = Format(Day(StartDate), "00") StartYear = Format(Year(StartDate), "00") EndMonth = Format(Month(EndDate) – 1, "00") EndDay […]