以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  高级功能研发区  (http://weistock.com/bbs/list.asp?boardid=5)
----  vba 如何获取当前显示品种的K线序列？  (http://weistock.com/bbs/dispbbs.asp?boardid=5&id=173931)
--  作者：wo2572527297
--  发布时间：2020/1/10 17:31:58
--  vba 如何获取当前显示品种的K线序列？
如题
--  作者：无为剑
--  发布时间：2020/1/12 12:42:35
--  
k线序列是什么？
--  作者：wo2572527297
--  发布时间：2020/1/28 13:28:36
--  
就是k线的数值
--  作者：无为剑
--  发布时间：2020/1/30 13:48:29
--  

示例1：

\' 得到框架名称为"Technic"，窗格名称为"Main"的窗格对象

Set Grid = Technic.GetGridByName("Main")

 

\'得到该窗格所对应的对象

Set History = Grid.GetHistoryData()

 

\'取最后一天的收盘价

Close = History.Close(History.Count-1)

MsgBox Close
--  作者：zm71212302
--  发布时间：2020/2/3 12:41:30
--  
\' 得到框架名称为"Technic"，窗格名称为"Main"的窗格对象
sub bbk()
dim grid,History,Close
 if Application.isActivateFrame("Technic")=0 then
Call application.ActivateFrame("Technic") 
end if
Set Grid = Technic.GetGridByName("Main") 
\'得到该窗格所对应的对象
Set History = Grid.GetHistoryData()
\'取最后一天的收盘价
Close = History.Close(History.Count-1)
MsgBox Close
end sub