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

边缘_Michael

计算公式时希望导出一些结算结果，以便用excel统计。
: l  W6 @8 a  g( L" z
不知道现有公式函数里，有没有可以写文件的函数呢？
预先谢谢大牛们回答。
/ i: l3 F: w% B( N. ?. R, K

gc007

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

边缘_Michael

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

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

mccs

同问，请版主大人指教

醉心

用VB来写看看

1. 
   
2. 
   
3. if DATAPERIOD<>0 then
   
4. begin
   0 O$ X0 C! d7 W& ~" ?0 S' Y
5. DRAWTEXT(BARPOS=SYSPARAM(2)+10,1,'本指标只能用于分笔分析');
   
6. exit;
   
7. end;
   
8. 
   . u+ s( r. E+ ^- q' I$ P
9. dd:=date;
   
10. 
    # [' J2 J. ?  e+ R
11. str:=NUMTOSTR(time,0)+';'+NUMTOSTR(v,0)+';'+NUMTOSTR(c,2);
    
12. for i=25 to 36 do
    
13. begin
    * E# \6 A: E' B3 P2 J
14. str:=str+';'+NUMTOSTR(DYNAINFO(i),2);
    
15. end;
    * l, }) M: ~9 `, v' w* z
16. 
    
17. <%
    ; C7 u" v7 r7 s$ [3 S4 H
18. vd1 = FFL.VarData("dd")
    * p0 n3 w/ A$ u% u" ~# I
19. vd2 = FFL.VarData("str")
    
20. nFirst = FFL.VarStartIndex("dd")
    5 p/ \) T* R4 M5 `
21. 
    ; }$ `# y+ {; ?1 b3 L
22. Set fso=CreateObject("Scripting.FileSystemObject")
    5 i( l* ]" ?$ t; J
23. fn ="D:/fhdata/"+cstr(vd1(nFirst))+"data.txt"
    
24. 
    
25. Set f1 = fso.OpenTextFile(fn,8,True)
    6 r' q3 _3 z5 H' G& b% p, P) A' P
26. f1.writeline vd2
    / E$ W$ x& Z; q$ u
27. f1.close
    
28. 
    
29. %>
    * N$ }( W) j, i- p9 y
30. 
    
31. aa:time;
    8 V9 Y5 `! W  Y0 |+ U$ A( x
32. Show File Failed
    & ?$ [3 J4 ?  i* y/ _% _, p& a, b6 U
33. 
    , b& n8 y( D9 l+ y5 p; T
34. 
    

复制代码

边缘_Michael

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

对VB不太熟，先学习着

sxsongchen

学习了，试试

边缘_Michael

醉心 发表于 2014-2-17 11:36
: f2 g3 Y+ Z' `- A) e9 B. e用VB来写看看

$ p& I5 ~  r* Z哈哈，测试成功了！谢谢！

9 V% u; V  m5 [" q公式里面的vb是不是调用的windows自带的vb scripts引擎，window有的，公式里都能用吧？