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

边缘_Michael

计算公式时希望导出一些结算结果，以便用excel统计。
+ P' W" _8 u  X0 f$ t
9 O* k% \( z3 ~0 y2 f* {3 J& ?不知道现有公式函数里，有没有可以写文件的函数呢？
$ r! ^: {& v* e" @) T  a% d! w预先谢谢大牛们回答。

  Z: H1 b$ ]1 E2 R( N% m/ N

gc007

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

边缘_Michael

gc007 发表于 2014-2-16 11:00
- W  |: n+ J; y$ S是同时计算公式的时候，输出数据到EXCEL吗？

5 f+ {: F) D2 R  t: W8 n是的，就是这个意思。输出格式能灵活些更好。

mccs

同问，请版主大人指教

醉心

用VB来写看看
  y" ~. I9 e9 Z/ q9 ~* X. B3 i
0 E8 p$ z$ y7 p0 y' C, }$ [3 n

1. 
   ( t4 L# D8 m* H* K
2. 
   
3. if DATAPERIOD<>0 then
   3 X6 O+ v' G  v+ j9 r
4. begin
   
5. DRAWTEXT(BARPOS=SYSPARAM(2)+10,1,'本指标只能用于分笔分析');
   
6. exit;
   6 z+ g- x0 ~$ i4 \8 C
7. end;
   
8. 
   
9. dd:=date;
   
10. 
    7 C2 ^# G; l  c0 C
11. str:=NUMTOSTR(time,0)+';'+NUMTOSTR(v,0)+';'+NUMTOSTR(c,2);
    
12. for i=25 to 36 do
    % S4 Z& E6 _/ q* t2 y
13. begin
    
14. str:=str+';'+NUMTOSTR(DYNAINFO(i),2);
    
15. end;
    
16. 
    
17. <%
    2 ^& _3 s- ~3 x4 A
18. vd1 = FFL.VarData("dd")
    ( T$ X- O, P5 j% \, s9 x2 A: E3 D
19. vd2 = FFL.VarData("str")
    
20. nFirst = FFL.VarStartIndex("dd")
    
21. 
    ) o% y9 D  c3 i* C& x
22. Set fso=CreateObject("Scripting.FileSystemObject")
    8 a; }- {+ \# L+ V$ K! Q+ `
23. fn ="D:/fhdata/"+cstr(vd1(nFirst))+"data.txt"
    ) ~2 z5 k5 r; h! t6 \1 k% B1 U! Z
24. 
    - X( d; Z8 `8 b7 y+ A. w; |: w
25. Set f1 = fso.OpenTextFile(fn,8,True)
    0 P) V% p8 N. @
26. f1.writeline vd2
    % ~3 e( B/ m; Y$ ?4 S
27. f1.close
    1 ]  i8 K" h& I& B" y! K3 h# N
28. 
    2 ^" }2 a) f5 {6 L6 M+ `
29. %>
    4 U9 L+ j# C/ q/ |  n
30. 
    
31. aa:time;
    
32. Show File Failed
    
33. 
    
34. 
    

复制代码

边缘_Michael

醉心 发表于 2014-2-17 11:36
3 ]' U. T6 N" G用VB来写看看

5 ], p9 u9 Y% v1 _3 c; F9 j对VB不太熟，先学习着

sxsongchen

学习了，试试

边缘_Michael

醉心 发表于 2014-2-17 11:36
$ I# ~. Y$ v2 U8 z  |/ @用VB来写看看

8 K% P. i: u) u% e+ [哈哈，测试成功了！谢谢！

% P. U4 F4 w' v! \公式里面的vb是不是调用的windows自带的vb scripts引擎，window有的，公式里都能用吧？