如何从yahoo下载OPTION数据？# Stock
B*y
1 楼
俺想每天存几个symbol的option的收盘数据，目前是每天手动存。想写个程序自动下载
数据，但不知用什么url.
比如下载AAPL当天的option收盘数据，怎么生成url呢？
请大牛指点，谢谢了。
数据，但不知用什么url.
比如下载AAPL当天的option收盘数据，怎么生成url呢？
请大牛指点，谢谢了。
x*o
2 楼
写个Excel的macro就行了，简单得狠
B*y
3 楼
会者不难，难者不会啊。俺从网上下载了别人一个excel的例子，但不work.
能指教一下如果我要下载当天的AAPL的option收盘数据，url怎么写吗？
比如3月16日到期的striking price $600的call, 是写成：
-- http://table.finance.yahoo.com/table.csv?s=AAPL120316C00600000&f=nl1d1c1ohgv
还是：
-- http://finance.yahoo.com/d/quotes.csv?s=AAPL120316C00600000&f=nl1d1c1ohgv
还是：
-- http://quote.yahoo.com/d/quotes.csv?s=AAPL120316C00600000&f=nl1d1c1ohgv
谢谢！
能指教一下如果我要下载当天的AAPL的option收盘数据，url怎么写吗？
比如3月16日到期的striking price $600的call, 是写成：
-- http://table.finance.yahoo.com/table.csv?s=AAPL120316C00600000&f=nl1d1c1ohgv
还是：
-- http://finance.yahoo.com/d/quotes.csv?s=AAPL120316C00600000&f=nl1d1c1ohgv
还是：
-- http://quote.yahoo.com/d/quotes.csv?s=AAPL120316C00600000&f=nl1d1c1ohgv
谢谢！
x*o
4 楼
不知道他们是怎么用的。我上班看option的macro用下面的代码。
对于call：
Call yahoo_stock_option_query('aapl', '2012-03', "10")
put用这个：
Call yahoo_stock_option_query('aapl', '2012-03, "14")
yahoo_stock_option_query代码：
Private Sub yahoo_stock_option_query(tickname As String, expdate As String,
position As String)
Worksheets("Temp").Activate
Worksheets("Temp").Cells.Clear
Range("A1").Select
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://finance.yahoo.com/q/op?s=" & tickname & "&m=" & expdate, Destination:=Range( _
"$A$1"))
.Name = "op?s=" & tickname & "&m=" & expdate
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = position
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
Range("A13").Select
End Sub
对于call：
Call yahoo_stock_option_query('aapl', '2012-03', "10")
put用这个：
Call yahoo_stock_option_query('aapl', '2012-03, "14")
yahoo_stock_option_query代码：
Private Sub yahoo_stock_option_query(tickname As String, expdate As String,
position As String)
Worksheets("Temp").Activate
Worksheets("Temp").Cells.Clear
Range("A1").Select
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://finance.yahoo.com/q/op?s=" & tickname & "&m=" & expdate, Destination:=Range( _
"$A$1"))
.Name = "op?s=" & tickname & "&m=" & expdate
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = position
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
Range("A13").Select
End Sub
B*y
5 楼
谢谢了。你是在投行工作吗？
看这个code好像背后是调用YQL,昨天在网上看到有人介绍，俺再钻钻吧。
看这个code好像背后是调用YQL,昨天在网上看到有人介绍，俺再钻钻吧。
相关阅读