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

边缘_Michael

计算公式时希望导出一些结算结果，以便用excel统计。
, v2 o" l5 _  ]( L& f9 b/ L: X  a
不知道现有公式函数里，有没有可以写文件的函数呢？
预先谢谢大牛们回答。

边缘_Michael

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

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

5 N4 K9 F7 M+ k2 b" U公式里面的vb是不是调用的windows自带的vb scripts引擎，window有的，公式里都能用吧？

sxsongchen

学习了，试试

边缘_Michael

醉心 发表于 2014-2-17 11:36
  G' x- ?- l9 w$ k% ]用VB来写看看

# T% a! e! \1 q- [( h4 V对VB不太熟，先学习着

醉心

用VB来写看看

1. 
   , w% k( c) t* Y) g7 D0 p) {
2. 
   
3. if DATAPERIOD<>0 then
   
4. begin
   5 |/ A- q) ^( p/ K  g. U
5. DRAWTEXT(BARPOS=SYSPARAM(2)+10,1,'本指标只能用于分笔分析');
   5 |" ~" `8 Z5 p$ X) y! M
6. exit;
   ( n& J3 V. N( Y( m8 K
7. end;
   
8. 
   
9. dd:=date;
   . }5 y  y2 l2 ~) B
10. 
    
11. str:=NUMTOSTR(time,0)+';'+NUMTOSTR(v,0)+';'+NUMTOSTR(c,2);
    4 P5 r2 h) S$ R( h: s7 p" c! O
12. for i=25 to 36 do
    
13. begin
    
14. str:=str+';'+NUMTOSTR(DYNAINFO(i),2);
    - W* ~3 `9 }/ M. g# U
15. end;
    4 q5 }" ?$ j" S3 \- C4 B( R% i1 B: K
16. 
    : W! ]" r/ m: u9 ~% u8 |8 V
17. <%
    & m5 y: |9 S( n
18. vd1 = FFL.VarData("dd")
    / x( d3 _) j  l* y
19. vd2 = FFL.VarData("str")
    " Q1 E" [) Y2 L! f% g3 H# U
20. nFirst = FFL.VarStartIndex("dd")
    
21. 
      Q; i% m; Q# m4 A$ A% Z
22. Set fso=CreateObject("Scripting.FileSystemObject")
    : x% A" E. _) W; }. Q3 l2 N( R( ^
23. fn ="D:/fhdata/"+cstr(vd1(nFirst))+"data.txt"
    8 |% G  P8 G  |
24. 
    0 w: ?. f$ `- P% \
25. Set f1 = fso.OpenTextFile(fn,8,True)
    & d% I1 C8 h1 m, P* Y+ M  }
26. f1.writeline vd2
      E; Q. r, d" w) N3 y; n
27. f1.close
    
28. 
    
29. %>
    ; U2 j" b  h3 L, h4 R
30. 
    * ]- h  [! T( E4 B7 k2 c9 e
31. aa:time;
    ' ^) ]9 M6 Z3 L+ F1 Y
32. Show File Failed
    
33. 
    
34. 
    

复制代码

4 l: j9 u7 F( _3 T% ~3 {" ?

mccs

同问，请版主大人指教

边缘_Michael

gc007 发表于 2014-2-16 11:00
5 Z8 M$ \: ]1 Q0 R是同时计算公式的时候，输出数据到EXCEL吗？

/ S; j  z0 C, O, P5 d是的，就是这个意思。输出格式能灵活些更好。

gc007

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