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


金字塔客服中心 - 专业程序化交易软件提供商金字塔软件高级功能研发区 → 如何通过VBA读写文件

   

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


  共有4370人关注过本帖平板打印复制链接

主题:如何通过VBA读写文件

帅哥哟,离线,有人找我吗?
ma9453
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:新手上路 帖子:88 积分:0 威望:0 精华:0 注册:2016/3/28 11:01:44
  发帖心情 Post By:2016/4/7 18:03:57 [只看该作者]

 
Function SimRecord(Formula,variety,OpType,ss)
'
    '系统会在逐K线模式解释公式时的每个周期都会调用此函数一遍,因此设计时应该注重程序的执行效率,不要重复的执行一些没必要的代码
    SimRecord = 0
    MsgBox  "测试"
    set fso = CreateObject("Scripting.FileSystemObject")
    set f = fso.OpenTextFile("d:\tt.txt", 8, false) '第二个参数 2 表示重写,如果是 8 表示追加
    f.WriteLine "写入内容并换行"
    f.Close
    set f = nothing
    set fso = nothing
    
    
End Function


这是宏的代码,单独执行宏对这个代码测试是可以的。

MA1:=MA(CLOSE,A);
MA2:=MA(CLOSE,B);

手数:=ss;
//交易条件

开多平空条件:=CROSS(MA1,MA2);//开多平空条件
开空平多条件:=CROSS(MA2,MA1);//开空平多条件

EqualFlag := 0;
if MA1 = MA2 THEN
    EqualFlag := 1;

//交易系统
平空:SELLSHORT(开多平空条件,手数,MARKET);
平多:SELL(开空平多条件,手数,MARKET);
if HOLDING = 0 then begin
    开多:BUY(开多平空条件,手数,MARKET);
    开空:BUYSHORT(开空平多条件,手数,MARKET);
end

SimRecord(1,1,1);

当前持仓:HOLDING,COLORGRAY,LINETHICK0;
当前资产:ASSET,NOAXIS,COLORGRAY;


这是策略,在回测的时候,不能正确执行VBA的函数。

 回到顶部
总数 11 1 2 下一页