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

边缘_Michael

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

不知道现有公式函数里，有没有可以写文件的函数呢？
/ e0 g% f4 d; L: l预先谢谢大牛们回答。

gc007

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

边缘_Michael

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

4 V9 B2 [. q& w- s" l% h6 h是的，就是这个意思。输出格式能灵活些更好。

mccs

同问，请版主大人指教

醉心

用VB来写看看
9 v* x5 r2 i: O" r; D# k

1. 
   ' l3 Q% w& A- z- m7 I' _
2. 
   
3. if DATAPERIOD<>0 then
   * K, K. a; S' W0 j
4. begin
   
5. DRAWTEXT(BARPOS=SYSPARAM(2)+10,1,'本指标只能用于分笔分析');
   8 v1 e( i2 a% n5 J, d
6. exit;
   
7. end;
   % n" i( l1 [% Q! G& Z
8. 
   
9. dd:=date;
   - s% |' K$ c, C! l1 v. Z$ h2 f; c
10. 
    $ D$ N1 |; M, A& B, U" S5 {
11. str:=NUMTOSTR(time,0)+';'+NUMTOSTR(v,0)+';'+NUMTOSTR(c,2);
    - S: L8 k7 E& Q& c
12. for i=25 to 36 do
    * w& w* _) ~8 g+ J
13. begin
    
14. str:=str+';'+NUMTOSTR(DYNAINFO(i),2);
    
15. end;
    
16. 
    , B, M! G- _: {1 D
17. <%
    ) B5 ~9 i+ u! S9 V2 W* \+ C
18. vd1 = FFL.VarData("dd")
    4 N+ {' L/ [- e) s' y# b+ x$ |# _
19. vd2 = FFL.VarData("str")
    : U5 P% }3 d. a$ H% z
20. nFirst = FFL.VarStartIndex("dd")
    
21. 
    
22. Set fso=CreateObject("Scripting.FileSystemObject")
    0 M  M& T8 N" @2 V6 V3 L
23. fn ="D:/fhdata/"+cstr(vd1(nFirst))+"data.txt"
    
24. 
    ! |" x2 H5 R, |) N
25. Set f1 = fso.OpenTextFile(fn,8,True)
    6 f* L+ j3 U$ u0 H/ J7 o# ~  @
26. f1.writeline vd2
    
27. f1.close
    
28. 
    
29. %>
    
30. 
    
31. aa:time;
    7 x; U! J+ V( p! t- E2 Y
32. Show File Failed
    
33. 
    
34. 
    

复制代码

5 c5 p: M" s5 A9 ]9 j1 L

边缘_Michael

醉心 发表于 2014-2-17 11:36
0 j% }; n: D( T+ V用VB来写看看

对VB不太熟，先学习着

sxsongchen

学习了，试试

边缘_Michael

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

哈哈，测试成功了！谢谢！
8 x' m( ^/ Z& Q# u# k7 H
公式里面的vb是不是调用的windows自带的vb scripts引擎，window有的，公式里都能用吧？