- 金字塔客服中心 - 专业程序化交易软件提供商 (http://222.73.7.161/bbs/index.asp)
-- 高级功能研发区 (http://222.73.7.161/bbs/list.asp?boardid=5)
---- 如何通过VBA读写文件 (http://222.73.7.161/bbs/dispbbs.asp?boardid=5&id=95942)
-- 发布时间：2016/4/7 15:26:24
-- 如何通过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’，语句未结束”
请问这是什么问题呢
-- 发布时间：2016/4/7 15:57:15
--
FileSystemObject 建立这个对象来对文本进行操作吧。论坛搜下也有这个范例比较多
http://www.weistock.com/bbs/dispbbs.asp?BoardID=5&ID=90619&skin=0
-- 发布时间：2016/4/7 17:17:22
--
多谢您的回复，按照帖子上的方法测试了一下，编译没有问题，但是在回测的时候文件并没有被操作，可能是什么问题呢？
-- 发布时间：2016/4/7 17:26:30
--
你按照1楼那个方法，自己在d盘建立好testfile.txt
然后运行没反应吗？？？？我这边试过，写入这个文件都是没问题的
你别用自定义函数，直接复制黏贴，然后去启动这样一个操作看下呢？
[此贴子已经被作者于2016/4/7 17:41:39编辑过]
-- 发布时间：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的函数。
-- 发布时间：2016/4/7 18:09:07
--
VBA的自定义函数要通过公式编辑器左侧的自定义函数栏进行添加的，请确认你是否是通过这个方式添加的
-- 发布时间：2016/4/7 18:15:10
--
是按照这个方式添加的
-- 发布时间：2016/4/7 19:56:46
--
函数入口的 测试 这个对话框有弹出么？
或者检查vba引擎有没开启
-- 发布时间：2016/4/7 21:19:53
--
如图，就这样放到图表上看看情况呢
此主题相关图片如下：5v)bu$cosfjdwl0hj8(x)ec.png
-- 发布时间：2016/4/8 10:21:21
--
SimRecord(1,1,1);
MA1:=MA(CLOSE,A);
单独测试simrecord是没问题的，但是增加下面一条语句后，就不能执行simrecord中的代码了（不弹出提示框）