主题：编译器错误

 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
我把代码简化了，还是出现了这个错误呀，上面的这个不应该出现这个错误吧，