主题：数据写入问题

写入表后数据之间有空白行，请问如何解决？代码如下

 

此主题相关图片如下：ppp.jpg

 

Sub Test5()

'该示例将把技术分析主图上的MA指标前两条线输出到EXCEL中，使用前请注意将K线主图打开，并显示MA指标
dim grid,Formula,objExcel,i,HistroyData
' 得到框架名称为"Technic"，窗格名称为"Main"的窗格对象
'if Application.isActivateFrame("Technic")=0 then
 'Call application.ActivateFrame("Technic")
 'end if
Set Grid = Technic.GetGridByName("Main")
set Formula = marketdata.STKINDI("if00","zj","xianxig()",0,5)
Set HistroyData = Formula.ParentGrid.GetHistoryData
'创建EXCEL对象

Set objExcel = CreateObject("Excel.Application")

objExcel.Visible = True

objExcel.Workbooks.Add

'循环遍历得到公式线

for i =0 to HistroyData.Count-1

'将两条数据线插入到EXCEL第一、二列
if Formula.GetBufData("pandduan1",i)>0 then
objExcel.Cells(i+1,1).Value =Formula.GetBufData("daodu1",i)
objExcel.Cells(i+1,3).Value =Formula.GetBufDateData(i)
end if
if Formula.GetBufData("pandduan1",i)<0 then
objExcel.Cells(i+1,2).Value =Formula.GetBufData("didu1",i)
objExcel.Cells(i+1,3).Value =Formula.GetBufDateData(i)
end if
next
End Sub

问题解决了，加入一个判断变量放到CELLS中就可以了