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

边缘_Michael

计算公式时希望导出一些结算结果，以便用excel统计。
% _4 H& ^4 D$ |2 Y% b
! m3 x0 [9 m+ }! E不知道现有公式函数里，有没有可以写文件的函数呢？
& {& v4 U: P( ]: V( R& s预先谢谢大牛们回答。
; z4 j% p0 i, B: @$ Q7 i

gc007

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

边缘_Michael

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

7 T! X0 z( a' `# r1 a是的，就是这个意思。输出格式能灵活些更好。

mccs

同问，请版主大人指教

醉心

用VB来写看看

1. 
     x! v+ x- e3 P. J" }! K
2. 
   
3. if DATAPERIOD<>0 then
   
4. begin
   ( V3 _) l! Y% V5 q2 t! Z; @+ V
5. DRAWTEXT(BARPOS=SYSPARAM(2)+10,1,'本指标只能用于分笔分析');
   
6. exit;
   6 o( I0 t# Z$ c2 q( F- |
7. end;
   
8. 
   
9. dd:=date;
   2 x8 ~4 K( X5 \* B
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);
    9 G# f" z5 Z0 L* R) q! y+ ^$ T
15. end;
    
16. 
    
17. <%
    
18. vd1 = FFL.VarData("dd")
    ' I) d: j7 i; j" I  u2 P
19. vd2 = FFL.VarData("str")
    ( ~! ?- Y" @1 O* v
20. nFirst = FFL.VarStartIndex("dd")
    0 }6 A7 Y7 Y& G* @2 `, }( V
21. 
    
22. Set fso=CreateObject("Scripting.FileSystemObject")
    
23. fn ="D:/fhdata/"+cstr(vd1(nFirst))+"data.txt"
    
24. 
    # }% Z4 @* h+ u
25. Set f1 = fso.OpenTextFile(fn,8,True)
    4 i0 d1 x  n# L: X
26. f1.writeline vd2
    % X' H0 W# H8 _. X2 a
27. f1.close
    
28. 
    
29. %>
    4 ^* p& w. |6 R: K; O5 W
30. 
    . x3 k- x3 ^, v% L! e1 Z$ j
31. aa:time;
    
32. Show File Failed
    ' n! L1 S; v& E1 g  S) B6 b
33. 
    % j" z: b0 `! }/ O
34. 
    : W# _6 ~# ^2 E6 a* g

复制代码

边缘_Michael

醉心 发表于 2014-2-17 11:36
) [* B& e( X  Z: v/ V/ U0 K用VB来写看看

对VB不太熟，先学习着

sxsongchen

学习了，试试

边缘_Michael

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

- _! ^0 }, w, p$ H# z+ V7 k/ {哈哈，测试成功了！谢谢！

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