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

边缘_Michael

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

不知道现有公式函数里，有没有可以写文件的函数呢？
! r! }$ M5 q3 e4 x. o预先谢谢大牛们回答。
. U) W1 @( V0 o) i6 Q4 h4 \

gc007

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

边缘_Michael

gc007 发表于 2014-2-16 11:00
& L: ]/ W, C9 h$ b是同时计算公式的时候，输出数据到EXCEL吗？

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

mccs

同问，请版主大人指教

醉心

用VB来写看看

$ \+ p, k& j2 j/ c

1. 
   
2. 
   
3. if DATAPERIOD<>0 then
   7 [5 z0 M5 Q/ l
4. begin
   / F. h# A+ |* n# m# ^6 ]" w0 y
5. DRAWTEXT(BARPOS=SYSPARAM(2)+10,1,'本指标只能用于分笔分析');
   
6. exit;
   
7. end;
   
8. 
   ) h6 {4 x, t. U! u% s, T+ {
9. dd:=date;
   
10. 
    
11. str:=NUMTOSTR(time,0)+';'+NUMTOSTR(v,0)+';'+NUMTOSTR(c,2);
    
12. for i=25 to 36 do
    
13. begin
    
14. str:=str+';'+NUMTOSTR(DYNAINFO(i),2);
    % P) o# p3 n9 ]* X% X: {4 e+ o
15. end;
    * I5 J; w" w; H% p9 T. N6 K
16. 
    6 \0 [% h2 s  E# X4 b2 D5 k
17. <%
    6 o- f6 ^/ f: D; d) x' n
18. vd1 = FFL.VarData("dd")
    * E! N4 C+ v/ S$ G
19. vd2 = FFL.VarData("str")
    
20. nFirst = FFL.VarStartIndex("dd")
    
21. 
    5 a( u; U7 d0 Z8 @! O  r. ~
22. Set fso=CreateObject("Scripting.FileSystemObject")
    
23. fn ="D:/fhdata/"+cstr(vd1(nFirst))+"data.txt"
    / m- S7 }/ D1 S2 E" X! s9 w7 Y
24. 
    * T) t4 H8 {/ [8 w" Z
25. Set f1 = fso.OpenTextFile(fn,8,True)
    
26. f1.writeline vd2
    3 l5 I2 z1 }& G: u7 @. t3 k
27. f1.close
    
28. 
    $ A( I! Q$ O. n' G# `; L  j/ F
29. %>
    / C2 t0 k9 O$ U( J) c
30. 
    
31. aa:time;
    & ]  S7 q& q) F" [
32. Show File Failed
    
33. 
    
34. 
    , ?4 [$ ^; `9 }9 v9 K" x. {, ]) _

复制代码

边缘_Michael

醉心 发表于 2014-2-17 11:36
6 B$ d3 z7 Q3 R) S/ K1 F用VB来写看看

8 X* E4 `+ L' i% A. e1 F( N7 N4 d( w对VB不太熟，先学习着

sxsongchen

学习了，试试

边缘_Michael

醉心 发表于 2014-2-17 11:36
# w5 k0 Y& e  v, u, m" {! z) f用VB来写看看

2 w8 M* Q8 J8 F) i3 V8 d! ]哈哈，测试成功了！谢谢！

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