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

边缘_Michael

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

不知道现有公式函数里，有没有可以写文件的函数呢？
预先谢谢大牛们回答。
" b/ W+ l! n$ R) ^* c
9 w9 k) |; U! Y. _0 N) @9 a

gc007

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

边缘_Michael

gc007 发表于 2014-2-16 11:00
/ s& S  A+ u7 \( ^是同时计算公式的时候，输出数据到EXCEL吗？

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

mccs

同问，请版主大人指教

醉心

用VB来写看看

& p. X. l2 |, b0 U, s0 n/ r

1. 
   ) H! X( `( c) e2 i+ p5 R1 V3 v
2. 
   
3. if DATAPERIOD<>0 then
   , @  }; }% Z. J1 F
4. begin
   
5. DRAWTEXT(BARPOS=SYSPARAM(2)+10,1,'本指标只能用于分笔分析');
   # K0 M  N1 ?6 Y- D2 }2 r& M, G! o# b* H
6. exit;
   
7. end;
   & _. Q! ^5 \, U# z& D1 G
8. 
   
9. dd:=date;
   : t/ Y8 l& X6 o4 T4 l( c
10. 
    - R2 O6 ^& ?$ Q2 T3 b
11. str:=NUMTOSTR(time,0)+';'+NUMTOSTR(v,0)+';'+NUMTOSTR(c,2);
    * E6 A% |( l0 L' X$ R1 v; M
12. for i=25 to 36 do
    
13. begin
    ( h, v0 L/ W+ p2 w; y9 X
14. str:=str+';'+NUMTOSTR(DYNAINFO(i),2);
    , x! @! S" x$ _* [# Z
15. end;
    
16. 
    % t7 m3 |: M. @9 i* V
17. <%
    9 |3 f7 T' F! ?+ ^$ c( e3 F
18. vd1 = FFL.VarData("dd")
    & c1 C4 V8 D( c  b: Q
19. vd2 = FFL.VarData("str")
    7 f) f4 F% F: N
20. nFirst = FFL.VarStartIndex("dd")
    1 w7 q& Q3 Q) u. f  \" K2 U
21. 
    
22. Set fso=CreateObject("Scripting.FileSystemObject")
    
23. fn ="D:/fhdata/"+cstr(vd1(nFirst))+"data.txt"
    
24. 
    . w+ g- h+ ^+ U0 ]. R7 o: m
25. Set f1 = fso.OpenTextFile(fn,8,True)
    4 x+ b1 v7 O' B# O5 y
26. f1.writeline vd2
    3 l: A) |" @( i) A; \6 e
27. f1.close
    
28. 
    7 ?: b) ~1 C5 n0 E8 f
29. %>
    # n  Y1 [+ z( f9 Y/ {
30. 
    
31. aa:time;
    
32. Show File Failed
    ; G2 I" d5 I6 K% a/ q: k
33. 
    & g: U, O. n# K: ~: ?
34. 
    * ]. N1 t* K( \( y  |5 G/ \9 ]; W

复制代码

边缘_Michael

醉心 发表于 2014-2-17 11:36
; a* z2 U) u4 w0 l$ g用VB来写看看

对VB不太熟，先学习着

sxsongchen

学习了，试试

边缘_Michael

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

( X* T! {& u% O哈哈，测试成功了！谢谢！
8 `( \5 f% T; w" V& r
" d" N0 S* ~# @+ w) w公式里面的vb是不是调用的windows自带的vb scripts引擎，window有的，公式里都能用吧？