主题：编译器错误

 
提示这个是什么原因，程序应该没错误，只是回测时会经常在某个地方（地方并不固定，有时候是这个日期，有时候是另一个日期）断了，然后跳出这个提示。

 Sub sts1()
Set Grid = Technic.GetGridByName("Main")
call Grid.ChangeStock("XHAU","XH")
call Grid.ChangeCyc(1, 1)
Set objExcel = CreateObject("Excel.Application")
With objExcel
.Visible = True
.Workbooks.Open("C:\Users\wei.zhou\Desktop\b60.xlsx")
Set History = Grid.GetHistoryData()
n=2
for i =0 to History.Count-10
    if n<History.Count then
        
            .Cells(n,1).value = History.date(i)
            n=n+1
              
    end if
 
next
end with
end sub
我把代码简化了，还是出现了这个错误呀，上面的这个不应该出现这个错误吧，

 没有频繁打开EXCEL呀，只是会频繁的把一些价格信息写入EXCEL

 
加个计时器就行了，应该是运算太快，EXCEL还是金字塔把数据覆盖了导致出错