高级功能研发区-[求助]如何改这个程序让它能在EXCEL输出阴线后的一阳线金字塔客服中心 - 专业程序化交易软件提供商

以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  高级功能研发区  (http://weistock.com/bbs/list.asp?boardid=5)
----  [求助]如何改这个程序让它能在EXCEL输出阴线后的一阳线  (http://weistock.com/bbs/dispbbs.asp?boardid=5&id=7892)

--  作者：continue
--  发布时间：2011/9/6 11:27:51
--  [求助]如何改这个程序让它能在EXCEL输出阴线后的一阳线
Set Grid = Technic.GetGridByName("Main") Set Formula = Grid.GetFormulaByIndex(1) \'创建EXCEL对象 Set objExcel = CreateObject("Excel.Application") objExcel.Visible = True objExcel.Workbooks.Add \'循环遍历得到公式线 for i = 0 to Formula.DataSize-1 \'将两条数据线插入到EXCEL第一、二列 objExcel.Cells(i+1,1).Value =Formula.GetBufData("MA1",i) objExcel.Cells(i+1,2).Value =Formula.GetBufData("MA2",i) next 如何改这个程序让它能在EXCEL循环输出阴线后的第一根阳线的数据
[此贴子已经被作者于2011-9-6 11:35:49编辑过]

--  作者：王锋
--  发布时间：2011/9/6 12:07:26
--
如果你连问题都懒得描述清楚，那么我想我们更懒得去猜你到底想表达的什么

--  作者：continue
--  发布时间：2011/9/6 16:43:10
--
不知道怎么成一堆的。。。输入的程序。。。 Set Grid = Technic.GetGridByName("Main") Set Formula = Grid.GetFormulaByIndex(1) \'创建EXCEL对象 Set objExcel = CreateObject("Excel.Application") objExcel.Visible = True objExcel.Workbooks.Add \'循环遍历得到公式线 for i = 0 to Formula.DataSize-1 \'将两条数据线插入到EXCEL第一、二列 objExcel.Cells(i+1,1).Value =Formula.GetBufData("MA1",i) objExcel.Cells(i+1,2).Value =Formula.GetBufData("MA2",i) next 如何改这个程序让它能在EXCEL循环输出阴线后的第一根阳线的数据