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

边缘_Michael

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

不知道现有公式函数里，有没有可以写文件的函数呢？
预先谢谢大牛们回答。
9 ]- Z$ ?$ F+ w+ K2 h* w

gc007

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

边缘_Michael

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

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

mccs

同问，请版主大人指教

醉心

用VB来写看看
0 ~; `$ }- U* ~/ f: m& f% g+ Y- I! d

1. 
   
2. 
   
3. if DATAPERIOD<>0 then
   . Y! a6 A1 w5 a* |
4. begin
   
5. DRAWTEXT(BARPOS=SYSPARAM(2)+10,1,'本指标只能用于分笔分析');
     V8 _- X! m) U: W8 \5 r6 v0 ~! y
6. exit;
   
7. end;
   6 v" u2 Y6 V, T' x
8. 
   
9. dd:=date;
   
10. 
    
11. str:=NUMTOSTR(time,0)+';'+NUMTOSTR(v,0)+';'+NUMTOSTR(c,2);
    7 V% Z' a6 u# P
12. for i=25 to 36 do
    
13. begin
    
14. str:=str+';'+NUMTOSTR(DYNAINFO(i),2);
    
15. end;
    ' a4 r4 [& ^6 n0 W+ k
16. 
    
17. <%
    
18. vd1 = FFL.VarData("dd")
    8 W3 a- s. `8 \; R& u2 W3 d
19. vd2 = FFL.VarData("str")
    " |& X( I( }) M) n% V8 s- A
20. nFirst = FFL.VarStartIndex("dd")
    
21. 
    
22. Set fso=CreateObject("Scripting.FileSystemObject")
    ( G/ f2 m2 [% R# a
23. fn ="D:/fhdata/"+cstr(vd1(nFirst))+"data.txt"
    ! ~0 M, c4 H% w& Q0 v
24. 
    
25. Set f1 = fso.OpenTextFile(fn,8,True)
    
26. f1.writeline vd2
    - A. V6 C$ L, `( w: Q4 k9 r# z
27. f1.close
    8 F  ^/ D& f+ x& U
28. 
    / `* g& i2 k1 w. B! y4 x  E0 k" A/ N
29. %>
    
30. 
    # V. \, V) h" g2 @* N1 h
31. aa:time;
    ) f# b: p# V4 x6 l
32. Show File Failed
    
33. 
    " u% Q3 ?4 d0 v; \" [/ C
34. 
    3 A2 W* N8 |$ ?. J

复制代码

  |- w! _+ x% p7 s( ^! {

边缘_Michael

醉心 发表于 2014-2-17 11:36
5 S. }4 j0 g: d+ G用VB来写看看

) t) T0 r- T! |4 R! f$ a对VB不太熟，先学习着

sxsongchen

学习了，试试

边缘_Michael

醉心 发表于 2014-2-17 11:36
( o/ U8 C. P6 M+ P" R用VB来写看看

哈哈，测试成功了！谢谢！
  t3 ~1 M3 k6 }$ k% x# I/ x
. U; [2 n3 N- a$ i7 i! o公式里面的vb是不是调用的windows自带的vb scripts引擎，window有的，公式里都能用吧？