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

边缘_Michael

计算公式时希望导出一些结算结果，以便用excel统计。
9 W# Q: s2 w; b+ ^! g
  J% I3 v3 S1 ~, h; D/ z& |不知道现有公式函数里，有没有可以写文件的函数呢？
& K8 q8 ~% d3 K( v8 z: q+ I预先谢谢大牛们回答。
9 j1 M- m9 D9 F: T2 c  ?1 q

gc007

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

边缘_Michael

gc007 发表于 2014-2-16 11:00
$ f6 k# H8 M+ \' ^是同时计算公式的时候，输出数据到EXCEL吗？

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

mccs

同问，请版主大人指教

醉心

用VB来写看看

1. 
   2 I: N! M3 w9 V$ s4 P
2. 
   1 L4 f6 l" h" G' u$ E0 l! G% Q
3. if DATAPERIOD<>0 then
   ! v1 t1 o) L# Y9 _1 Y# j( n
4. begin
   
5. DRAWTEXT(BARPOS=SYSPARAM(2)+10,1,'本指标只能用于分笔分析');
   1 x8 S3 g6 N. n6 ]: R
6. exit;
   ) N! o. ~5 s1 Y5 ?( Z7 m9 i
7. end;
   ! V8 `' b! p; N" c  L
8. 
   ; a1 Z3 t: E2 N* Z  r
9. dd:=date;
   ! [: x( z" U% ]1 L8 |7 k
10. 
    * Q9 y3 @0 p) q' `- S
11. str:=NUMTOSTR(time,0)+';'+NUMTOSTR(v,0)+';'+NUMTOSTR(c,2);
    9 H1 X' O, b' T: a% q; s) r
12. for i=25 to 36 do
    " Q# k8 @4 h- ]3 e: S4 j5 F& W' a
13. begin
    
14. str:=str+';'+NUMTOSTR(DYNAINFO(i),2);
    4 P9 D) W" {% n2 }" e' z3 p
15. end;
    
16. 
    $ I/ i# Q) \. R/ V! @
17. <%
    
18. vd1 = FFL.VarData("dd")
    : y9 ]9 j$ m+ [8 M& _
19. vd2 = FFL.VarData("str")
    " ~3 B; h& |0 ~8 z) ~& g( {/ I
20. nFirst = FFL.VarStartIndex("dd")
    
21. 
    
22. Set fso=CreateObject("Scripting.FileSystemObject")
    $ v4 L$ b1 A+ }$ f9 Q" A
23. fn ="D:/fhdata/"+cstr(vd1(nFirst))+"data.txt"
    & R; I! D  ~2 t% w6 y0 U: `
24. 
    
25. Set f1 = fso.OpenTextFile(fn,8,True)
    
26. f1.writeline vd2
    
27. f1.close
    
28. 
    ) R5 |! F5 Y1 x3 _
29. %>
    * C. \9 O5 V0 Q) M8 x$ _1 H) q8 u
30. 
    ( b) {9 J) F! j( u, \2 P
31. aa:time;
    4 _. M$ v7 j2 Y& W
32. Show File Failed
    : v# E6 \) i, A/ h; [8 P
33. 
    4 m- I" L! K" W2 B* j" ^
34. 
    

复制代码

0 b$ ~, v$ |0 X; n2 Z

边缘_Michael

醉心 发表于 2014-2-17 11:36
2 y$ J( T' w  g! u. e8 ]) o6 ?用VB来写看看

对VB不太熟，先学习着

sxsongchen

学习了，试试

边缘_Michael

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

1 E0 X# ~/ Z; V7 z哈哈，测试成功了！谢谢！
0 d0 ^% ^  q- I  z) `% c" L
公式里面的vb是不是调用的windows自带的vb scripts引擎，window有的，公式里都能用吧？