请问公式中有可以写文件的函数吗？

边缘_Michael

计算公式时希望导出一些结算结果，以便用excel统计。

不知道现有公式函数里，有没有可以写文件的函数呢？
7 o  M! Y- z' |- I6 h; \: U预先谢谢大牛们回答。

2 M2 j0 v2 w2 S- o9 @; G% a

gc007

是同时计算公式的时候，输出数据到EXCEL吗？

边缘_Michael

gc007 发表于 2014-2-16 11:00
是同时计算公式的时候，输出数据到EXCEL吗？

是的，就是这个意思。输出格式能灵活些更好。

mccs

同问，请版主大人指教

醉心

用VB来写看看

1. 
   5 k- f' t/ p5 q7 @. [: @! N" D
2. 
   
3. if DATAPERIOD<>0 then
   # j' U: p9 @2 k! P* _
4. begin
   
5. DRAWTEXT(BARPOS=SYSPARAM(2)+10,1,'本指标只能用于分笔分析');
   
6. exit;
   8 P4 K# E0 X( V5 V, R" c- L
7. end;
   / B8 X' I# z" z  d2 Q+ x
8. 
   
9. dd:=date;
   
10. 
    ; w8 q8 q/ u  [/ e
11. str:=NUMTOSTR(time,0)+';'+NUMTOSTR(v,0)+';'+NUMTOSTR(c,2);
    
12. for i=25 to 36 do
    6 k( B; k& |- p
13. begin
    ) }0 v+ D% C) ?' q
14. str:=str+';'+NUMTOSTR(DYNAINFO(i),2);
    4 B  z) _! ?. ^7 p
15. end;
    5 a  c: R* B# ^5 S
16. 
    
17. <%
    
18. vd1 = FFL.VarData("dd")
    ) u9 r: G1 C# I$ t( ?
19. vd2 = FFL.VarData("str")
    1 b2 W2 T" s, m5 z# X7 ~% d
20. nFirst = FFL.VarStartIndex("dd")
    ' e  v, |% b$ j+ o9 l
21. 
    $ n" u  n# x( H; L& z! J
22. Set fso=CreateObject("Scripting.FileSystemObject")
    
23. fn ="D:/fhdata/"+cstr(vd1(nFirst))+"data.txt"
    * L  Z5 I/ T) B% a
24. 
    
25. Set f1 = fso.OpenTextFile(fn,8,True)
    : n8 O! @6 Y! Y+ q& j+ u" `* A% ^
26. f1.writeline vd2
    % V2 _0 g" a, f
27. f1.close
    
28. 
    $ _3 y# ?% D1 ^& S1 h
29. %>
    
30. 
    + [" j% k0 y( |3 b2 I! C0 ?, x' X
31. aa:time;
    
32. Show File Failed
    
33. 
    ! j2 g, V: H6 K4 g$ s; l
34. 
    

复制代码

9 g3 h7 t' s( n8 X1 k) M' |7 v

边缘_Michael

醉心 发表于 2014-2-17 11:36
用VB来写看看

: L. c& S* Q: q& d/ c2 R2 t$ ~对VB不太熟，先学习着

sxsongchen

学习了，试试

边缘_Michael

醉心 发表于 2014-2-17 11:36
用VB来写看看

哈哈，测试成功了！谢谢！

公式里面的vb是不是调用的windows自带的vb scripts引擎，window有的，公式里都能用吧？