Edge
Chrome
Firefox
我研究了一下，本人才疏学浅还没有找到WPS调用股价的方法
腾讯在线文档倒是能够调用，比如输入“=STOCK("123109.SZ",0)”，可以调用昌红转债的价格，但是是上个交易日的收盘价，并不是实时的
请教各位大神：有能调用实时数据的函数吗？
PS：输入内容不带引号！
腾讯在线文档倒是能够调用，比如输入“=STOCK("123109.SZ",0)”，可以调用昌红转债的价格，但是是上个交易日的收盘价，并不是实时的
请教各位大神：有能调用实时数据的函数吗？
PS：输入内容不带引号！
1
大道之行也 - 大道至简，大道止简；简单投资，静待花开！
赞同来自: wangliang99
@泰国大叔
我试了能调用，你可以在腾讯文档里输入“=STOCK("111000.SH",8)”试试（无引号）
我试了能调用，你可以在腾讯文档里输入“=STOCK("111000.SH",8)”试试（无引号）
7
赞同来自: 口口夕口木 、pqfund 、ikalang 、ryanxzqn 、chenlei200332 、 、更多 »
=getStockPrice("sh113628")
'http://eryk.javaeye.com/blog/638277
'0：”大秦铁路”，股票名字；
'1：”27.55″，今日开盘价；
'2：”27.25″，昨日收盘价；
'3：”26.91″，当前价格；
'4：”27.55″，今日最高价；
'5：”26.20″，今日最低价；
'6：”26.91″，竞买价，即“买一”报价；
'7：”26.92″，竞卖价，即“卖一”报价；
'8：”22114263″，成交的股票数，由于股票交易以一百股为基本单位，所以在使用时，通常把该值除以一百；
'9：”589824680″，成交金额，单位为“元”，为了一目了然，通常以“万元”为成交金额的单位，所以通常把该值除以一万；
'10：”4695″，“买一”申请4695股，即47手；
'11：”26.91″，“买一”报价；
'12：”57590″，“买二”
'13：”26.90″，“买二”
'14：”14700″，“买三”
'15：”26.89″，“买三”
'16：”14300″，“买四”
'17：”26.88″，“买四”
'18：”15100″，“买五”
'19：”26.87″，“买五”
'20：”3100″，“卖一”申报3100股，即31手；
'21：”26.92″，“卖一”报价
'(22, 23), (24, 25), (26,27), (28, 29)分别为“卖二”至“卖四的情况”
'30：”2008-01-11″，日期；
'31：”15:05:32″，时间；
Function getFundData(ByRef StockCode As String)
Url = "http://hq.sinajs.cn/list=" + StockCode
strData = GetHttp(Url)
strData = Replace(strData, Chr(13), "")
strData = Replace(strData, Chr(10), "")
Set objREGEXP = CreateObject("VBSCRIPT.REGEXP")
With objREGEXP
.Global = True
.Pattern = "var hq_str_.*=\"""
strData = .Replace(strData, "")
.Pattern = "\"";"
strData = .Replace(strData, "")
End With
Set objREGEXP = Nothing
getFundData = Split(strData, ",")
End Function
'http://eryk.javaeye.com/blog/638277
'0：”大秦铁路”，股票名字；
'1：”27.55″，今日开盘价；
'2：”27.25″，昨日收盘价；
'3：”26.91″，当前价格；
'4：”27.55″，今日最高价；
'5：”26.20″，今日最低价；
'6：”26.91″，竞买价，即“买一”报价；
'7：”26.92″，竞卖价，即“卖一”报价；
'8：”22114263″，成交的股票数，由于股票交易以一百股为基本单位，所以在使用时，通常把该值除以一百；
'9：”589824680″，成交金额，单位为“元”，为了一目了然，通常以“万元”为成交金额的单位，所以通常把该值除以一万；
'10：”4695″，“买一”申请4695股，即47手；
'11：”26.91″，“买一”报价；
'12：”57590″，“买二”
'13：”26.90″，“买二”
'14：”14700″，“买三”
'15：”26.89″，“买三”
'16：”14300″，“买四”
'17：”26.88″，“买四”
'18：”15100″，“买五”
'19：”26.87″，“买五”
'20：”3100″，“卖一”申报3100股，即31手；
'21：”26.92″，“卖一”报价
'(22, 23), (24, 25), (26,27), (28, 29)分别为“卖二”至“卖四的情况”
'30：”2008-01-11″，日期；
'31：”15:05:32″，时间；
Function getFundData(ByRef StockCode As String)
Url = "http://hq.sinajs.cn/list=" + StockCode
strData = GetHttp(Url)
strData = Replace(strData, Chr(13), "")
strData = Replace(strData, Chr(10), "")
Set objREGEXP = CreateObject("VBSCRIPT.REGEXP")
With objREGEXP
.Global = True
.Pattern = "var hq_str_.*=\"""
strData = .Replace(strData, "")
.Pattern = "\"";"
strData = .Replace(strData, "")
End With
Set objREGEXP = Nothing
getFundData = Split(strData, ",")
End Function
3
大道之行也 - 大道至简，大道止简；简单投资，静待花开！
腾讯在线文档好像有限制，摸索出来部分，但都是前一个交易日的数据
=STOCK("123109.SZ",0) 股价
=STOCK("123109.SZ",1) 名称
=STOCK("123109.SZ",2) 涨跌额
=STOCK("123109.SZ",3) 涨跌幅
=STOCK("123109.SZ",4) 开盘价
=STOCK("123109.SZ",5) 最高价
=STOCK("123109.SZ",6) 最低价
=STOCK("123109.SZ",7) 成交额
分享文档用的是企业微信登陆，涉及隐私太多，删除了！
=STOCK("123109.SZ",0) 股价
=STOCK("123109.SZ",1) 名称
=STOCK("123109.SZ",2) 涨跌额
=STOCK("123109.SZ",3) 涨跌幅
=STOCK("123109.SZ",4) 开盘价
=STOCK("123109.SZ",5) 最高价
=STOCK("123109.SZ",6) 最低价
=STOCK("123109.SZ",7) 成交额
分享文档用的是企业微信登陆，涉及隐私太多，删除了！
京公网安备 11010802031449号