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

边缘_Michael

计算公式时希望导出一些结算结果，以便用excel统计。
; Z/ a) D" t" N# j# n8 ?  b
+ Q1 U+ ~3 N$ E9 Z% g+ l不知道现有公式函数里，有没有可以写文件的函数呢？
' g. F8 Z& |0 d+ H预先谢谢大牛们回答。
+ i, K. U* J8 r' d% r

gc007

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

边缘_Michael

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

' g% k. M- I! u% o是的，就是这个意思。输出格式能灵活些更好。

mccs

同问，请版主大人指教

醉心

用VB来写看看

  r& W! o" E+ ~' I/ a- L' q( u

1. 
   
2. 
   $ o& f; v7 G+ o7 O; ?
3. if DATAPERIOD<>0 then
   + [1 [  V5 Z6 m1 U  B" q6 G
4. begin
   
5. DRAWTEXT(BARPOS=SYSPARAM(2)+10,1,'本指标只能用于分笔分析');
   3 D- e0 O; |$ s+ Z) d' ^
6. exit;
   
7. end;
   1 F% D4 b; t5 B
8. 
     J5 ]& H2 u+ S( y
9. dd:=date;
     W: y, K% w8 n! l( p
10. 
    
11. str:=NUMTOSTR(time,0)+';'+NUMTOSTR(v,0)+';'+NUMTOSTR(c,2);
    
12. for i=25 to 36 do
    ! q& u3 v1 X7 f* \5 _
13. begin
    " W; N9 J  k( [9 P$ `
14. str:=str+';'+NUMTOSTR(DYNAINFO(i),2);
    - |; F) l' }; {
15. end;
    
16. 
    - O: S8 k# t/ _+ R1 C5 L! z
17. <%
    
18. vd1 = FFL.VarData("dd")
    * ~' L" z) L5 [5 a- _
19. vd2 = FFL.VarData("str")
    
20. nFirst = FFL.VarStartIndex("dd")
    8 w# X7 X  V% E; k! V! W( _9 s
21. 
    
22. Set fso=CreateObject("Scripting.FileSystemObject")
    3 g+ w* i8 T) [. Y
23. fn ="D:/fhdata/"+cstr(vd1(nFirst))+"data.txt"
    - l6 F' O- A$ h  J6 _. [1 N
24. 
    
25. Set f1 = fso.OpenTextFile(fn,8,True)
    
26. f1.writeline vd2
    0 F4 G+ B; m5 ]; M6 V( \
27. f1.close
    ; [1 I0 Q% J* F3 u+ C
28. 
    / p, o7 R, t0 Y# G7 b
29. %>
    8 S) R$ @, J( {- d' Z
30. 
    " B! p8 s/ }/ F1 k! S: W& c# V/ l
31. aa:time;
    + v$ g1 o# `4 z+ }* V5 j; r
32. Show File Failed
    
33. 
    # c; Z8 X) G% x, M
34. 
    # p) ~6 N+ F$ H: n. F) _8 p. M

复制代码

边缘_Michael

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

对VB不太熟，先学习着

sxsongchen

学习了，试试

边缘_Michael

醉心 发表于 2014-2-17 11:36
8 |, Y- A# W( f4 x" I用VB来写看看

哈哈，测试成功了！谢谢！
- }* @7 V$ k0 |6 t  ^4 B& c+ I5 l
公式里面的vb是不是调用的windows自带的vb scripts引擎，window有的，公式里都能用吧？