主题：金字塔的策略接触VBS 需要入门导入的一段VBS代码 就是 如何以一秒一次的频率记录一个数据的当期值

使用一个定时器，定时读取行情数据，用reportdata对象获取最新行情。

 

求大神  把代码写出来 吧 目前我真的是入门级 需要 各位老师 引导  十分感谢 诚意满满 十分感谢 诚意满满

求大神  把代码写出来 吧 目前我真的是入门级 需要 各位老师 引导  十分感谢 诚意满满 十分感谢 诚意满满

做程序化的 真心不容易 急需要解决这个问题 请各位老师 赐一段代码 十分感谢

十分渴求这段代码 求帮助 求帮助

请各位高手 一定出手相帮 十分感谢

VBA的代码范例编写需要一定时间,请用户不要急躁.

 

如果你对VBA还是个白纸,你这种拿来主义对你没任何好处的,在我们安排范例的时间内,议你能先自学一下,至少对VBA的编程有一些最基本的了解.

参考

 

金字塔公式编写与程式化交易设计指南

http://www.weistock.com/bbs/dispbbs.asp?boardid=16&Id=55132 下方的VBA部分书籍

 

金字塔VBA常用对象使用范例

http://www.weistock.com/bbs/dispbbs.asp?boardid=5&Id=11642

 

金字塔VBA编程教程

在线观看:http://v.youku.com/v_show/id_XMTY3MjE1NjY0.html

本地下载:http://www.weistock.com/video/金字塔VBA编程教程_标清.flv

 

金字塔VBA开发系列教程-从入门到精通

在线观看:http://i.youku.com/vba123

现在已经在VBS入门了，但是 reportdata 只能抓取 最新行情 ，假设我要即时 抓取一个自定义数据 怎么解决 ，请大神们  管理员 回复  谢谢

示例

'在Test过程中打印出上海600217品种当前最新价。
Sub test()
    set Report1 = marketdata.GetReportData("600217","SH")
    msgbox Report1.NewPrice
End Sub

示例2：
'读取白糖得日线数据
Set HistroyData = marketdata.GetHistoryData("SRX00","ZQ",5)'若要是分钟这里填0
for i = 0 to HistroyData.count-1
if i = 10 then
'显示第11个数据得时间，收盘，成交量
msgbox HistroyData.date(i)
msgbox HistroyData.Close(i)
msgbox HistroyData.Volume(i)

'数据处理完毕后,清理缓冲区
marketdata.DestroyHistoryData

end if
next