用戶回復:
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 我把代碼簡化了,還是出現了這個錯誤呀,上面的這個不應該出現這個錯誤吧,