[求助]如何改这个程序让它能在EXCEL输出阴线后的一阳线 [金字塔]
作者：
金字塔 来源：
cxh99.com 发布时间：2012年05月08日 点击数：
【
收藏到本网的会员中心】
- 咨询内容：
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编辑过]
- 金字塔客服：
如果你连问题都懒得描述清楚，那么我想我们更懒得去猜你到底想表达的什么
- 用户回复：
不知道怎么成一堆的。。。输入的程序。。。
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循环输出阴线后的第一根阳线的数据
会员登录/注册