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

边缘_Michael

计算公式时希望导出一些结算结果，以便用excel统计。
$ e* i# L. S9 ]" q2 K) m
不知道现有公式函数里，有没有可以写文件的函数呢？
预先谢谢大牛们回答。
3 u2 O3 f! w, \5 F- W& ^0 G/ k

gc007

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

边缘_Michael

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

  I3 i4 V4 W! U8 C是的，就是这个意思。输出格式能灵活些更好。

mccs

同问，请版主大人指教

醉心

用VB来写看看

7 @) k8 n9 R4 s9 g

1. 
   , p& E4 i0 d( f& O: ]
2. 
   
3. if DATAPERIOD<>0 then
   
4. begin
   
5. DRAWTEXT(BARPOS=SYSPARAM(2)+10,1,'本指标只能用于分笔分析');
   - p6 _* g' R* z  [9 L( T* j* C
6. exit;
   ! R. y2 ^1 e* X, J8 j
7. end;
   % V& e4 {! e% p5 D
8. 
   $ y6 v  A) o) ~) n" l% X  ~3 e- |
9. dd:=date;
   
10. 
    6 f/ N% a3 u; \, f# B: K
11. str:=NUMTOSTR(time,0)+';'+NUMTOSTR(v,0)+';'+NUMTOSTR(c,2);
    
12. for i=25 to 36 do
    
13. begin
    ) ^! X! K5 c% E7 Q9 e0 g8 Z
14. str:=str+';'+NUMTOSTR(DYNAINFO(i),2);
    1 v9 p/ H# U3 t) M- X
15. end;
    
16. 
    6 M; f9 q, f% W$ Q; w6 m( ?
17. <%
    ) }! W6 \& P1 `& s# s6 \0 x* ^
18. vd1 = FFL.VarData("dd")
    ; U# C. J  [& t$ u
19. vd2 = FFL.VarData("str")
    
20. nFirst = FFL.VarStartIndex("dd")
    
21. 
    
22. Set fso=CreateObject("Scripting.FileSystemObject")
    
23. fn ="D:/fhdata/"+cstr(vd1(nFirst))+"data.txt"
    
24. 
    
25. Set f1 = fso.OpenTextFile(fn,8,True)
    4 B" J% L* g2 F6 V  l
26. f1.writeline vd2
    ( c  K, O3 q/ ^1 F7 c' t. _3 ]
27. f1.close
    1 m) k  A7 ~6 ?- m, F# c
28. 
    . R- }/ T" X$ z) l! \
29. %>
    
30. 
    3 Z1 w  T; t' `1 ?# C( a) q
31. aa:time;
    : P, r8 m* Y, c
32. Show File Failed
    
33. 
    % t' v! {* {- P! ?
34. 
    , b7 m4 v: J5 K) r

复制代码

1 M0 ~6 ~$ X& w* W: X: e, B) Z

边缘_Michael

醉心 发表于 2014-2-17 11:36
! H3 j; a9 B  P6 z2 q5 V) R( a3 g- \用VB来写看看

对VB不太熟，先学习着

sxsongchen

学习了，试试

边缘_Michael

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

0 f: |  t5 f+ H" U: f5 d哈哈，测试成功了！谢谢！

1 ?9 I9 T- t/ v: _  @2 q公式里面的vb是不是调用的windows自带的vb scripts引擎，window有的，公式里都能用吧？