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

Function SimRecord(Formula,variety,OpType,ss)
    '系统会在逐K线模式解释公式时的每个周期都会调用此函数一遍，因此设计时应该注重程序的执行效率，不要重复的执行一些没必要的代码
    SimRecord = 0
    Open "d:\tt.txt" For Output as #1
    a=1
    print #1 , a
    close #1
End Function

请教一下，建立了一个vba函数，在open的时候编译有错误，提示“编译错误‘1025’，语句未结束”
请问这是什么问题呢

多谢您的回复，按照帖子上的方法测试了一下，编译没有问题，但是在回测的时候文件并没有被操作，可能是什么问题呢？

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的函数。

是按照这个方式添加的

SimRecord(1,1,1);
MA1:=MA(CLOSE,A);
单独测试simrecord是没问题的，但是增加下面一条语句后，就不能执行simrecord中的代码了（不弹出提示框）

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