编译器错误 - 高级功能研发区 - 金字塔客服中心 - 专业程序化交易软件提供商

金字塔客服中心 - 专业程序化交易软件提供商 → 金字塔软件 → 高级功能研发区 → 编译器错误

欢迎使用金字塔普通技术服务论坛，您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴，普通区问题处理速度慢，请耐心等待。谢谢您对我们的支持与理解。

共有3351人关注过本帖树形打印复制链接主题：编译器错误

zhou

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：新手上路帖子：32 积分：0 威望：0 精华：0 注册：2016/6/2 15:28:54

编译器错误

Post By：2016/6/15 16:19:52 [只看该作者]

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

王锋

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：罗宾汉帖子：11808 积分：20695 威望：0 精华：10 注册：2009/8/18 8:15:13

Post By：2016/6/15 17:33:12 [只看该作者]

看一下具体出错的代码行附近都有哪些代码。

通常出现这个错误可能是系统内部错误导致的，常见是内存不足了，或者你VBS代码频繁申请释放内存，或者是你使用了被你释放的对象等等

金字塔—专业程序化软件提供商

金字塔-技术部

-----------------------------------------------------------------------------------------------------

工作时间:周一至周五 08:30 - 17:30 周末及法定节假日休息

Email:service@weistock.com

zhou

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：新手上路帖子：32 积分：0 威望：0 精华：0 注册：2016/6/2 15:28:54

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