| 以文本方式查看主题 - 金字塔客服中心 - 专业程序化交易软件提供商 (http://222.73.7.161/bbs/index.asp) -- 高级功能研发区 (http://222.73.7.161/bbs/list.asp?boardid=5) ---- [求助]如何改这个程序让它能在EXCEL输出阴线后的一阳线 (http://222.73.7.161/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循环输出阴线后的第一根阳线的数据 |