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

边缘_Michael

计算公式时希望导出一些结算结果，以便用excel统计。
% R4 t8 |8 d( _) a+ |0 r
$ D7 I) K6 C* j0 E" q/ \不知道现有公式函数里，有没有可以写文件的函数呢？
$ X& a/ o8 r1 B/ A3 m% c8 s预先谢谢大牛们回答。

" H  |; c: f8 h* r& E

gc007

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

边缘_Michael

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

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

mccs

同问，请版主大人指教

醉心

用VB来写看看
5 Z* ?, n, b! H6 t4 S8 F8 F7 g
) O! C4 f0 S9 d5 h

1. 
   : |3 A0 N% B/ o# t& w7 ]
2. 
   # _# p! k8 r3 C' r. d: o5 S: P
3. if DATAPERIOD<>0 then
   / f/ K* z; {# H
4. begin
   $ c4 q! C9 D* {1 L5 E" Q3 b( L+ q% x
5. DRAWTEXT(BARPOS=SYSPARAM(2)+10,1,'本指标只能用于分笔分析');
   $ H' L8 H: R4 M& Y- B5 E& @
6. exit;
   
7. end;
   
8. 
   : b( E: t8 }' d% h2 T' l1 L
9. dd:=date;
   ' {8 @- x3 k- l) `; S: D& j7 `9 \
10. 
    & k; z- B' a" r6 @9 E
11. str:=NUMTOSTR(time,0)+';'+NUMTOSTR(v,0)+';'+NUMTOSTR(c,2);
    
12. for i=25 to 36 do
    + [- U0 v' B) D& y4 T# ]
13. begin
    
14. str:=str+';'+NUMTOSTR(DYNAINFO(i),2);
    
15. end;
    
16. 
    * h: t# u( {8 N1 V2 J$ E$ n- n4 ]
17. <%
    
18. vd1 = FFL.VarData("dd")
    
19. vd2 = FFL.VarData("str")
    , k* I5 s- P8 Q- v6 n
20. nFirst = FFL.VarStartIndex("dd")
    
21. 
    
22. Set fso=CreateObject("Scripting.FileSystemObject")
    6 P& |4 D6 @0 ~( t. N/ d6 x7 g
23. fn ="D:/fhdata/"+cstr(vd1(nFirst))+"data.txt"
    " u1 ^* R6 {4 j1 a
24. 
    9 C* u- [! w2 v5 L+ T  T
25. Set f1 = fso.OpenTextFile(fn,8,True)
    ( i9 e: J/ r) T( j* L3 F0 L, O
26. f1.writeline vd2
    
27. f1.close
    : z" X1 z! ~7 D' G* v
28. 
    
29. %>
    4 n6 D' Q6 |0 Z9 ]  u  B% o
30. 
    % L6 M0 x* B% B9 D9 ]
31. aa:time;
    
32. Show File Failed
    : L. }, H1 D7 X4 G+ d1 O
33. 
    : y* S5 }! q5 P7 \& R/ T' I
34. 
    

复制代码

边缘_Michael

醉心 发表于 2014-2-17 11:36
) o; F1 o% F; I# l1 e' u用VB来写看看

对VB不太熟，先学习着

sxsongchen

学习了，试试

边缘_Michael

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

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

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