共6 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：编译器错误
1楼
zhou 发表于：2016/6/15 16:19:52
提示这个是什么原因，程序应该没错误，只是回测时会经常在某个地方（地方并不固定，有时候是这个日期，有时候是另一个日期）断了，然后跳出这个提示。
2楼
王锋 发表于：2016/6/15 17:33:12看一下具体出错的代码行附近都有哪些代码。
通常出现这个错误可能是系统内部错误导致的，常见是内存不足了，或者你VBS代码频繁申请释放内存，或者是你使用了被你释放的对象等等
3楼
zhou 发表于：2016/6/16 9:22:00 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
我把代码简化了，还是出现了这个错误呀，上面的这个不应该出现这个错误吧，
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
我把代码简化了，还是出现了这个错误呀，上面的这个不应该出现这个错误吧，
4楼
admin 发表于：2016/6/16 9:32:31是不是频繁调用这个过程函数导致的问题，excel你是不能去频繁的打开和关闭的
5楼
zhou 发表于：2016/6/16 9:42:21 没有频繁打开EXCEL呀，只是会频繁的把一些价格信息写入EXCEL
6楼
zhou 发表于：2016/6/16 10:13:24
加个计时器就行了，应该是运算太快，EXCEL还是金字塔把数据覆盖了导致出错
共6 条记录, 每页显示 10 条, 页签:
[1]