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

边缘_Michael

计算公式时希望导出一些结算结果，以便用excel统计。
! S9 ~0 x* ~" E+ w# `! W
不知道现有公式函数里，有没有可以写文件的函数呢？
- i) y/ }/ I2 @! ]# ?, Y预先谢谢大牛们回答。
$ V" w" u% W# z+ Q0 G7 b* U% l
/ ?! c& M- @9 w- F3 p" F( t, j* |

gc007

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

边缘_Michael

gc007 发表于 2014-2-16 11:00
0 H8 c7 `7 I. R7 `( B是同时计算公式的时候，输出数据到EXCEL吗？

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

mccs

同问，请版主大人指教

醉心

用VB来写看看
7 @5 i1 B! w8 S6 d2 [1 ^

1. 
   0 D& x. f" u% S1 ^) J% _
2. 
   % a/ v# |$ c5 Q
3. if DATAPERIOD<>0 then
   
4. begin
   
5. DRAWTEXT(BARPOS=SYSPARAM(2)+10,1,'本指标只能用于分笔分析');
   " F. L6 P1 \3 j& Z* w$ z. F
6. exit;
   % G+ D0 n( F' r, v/ K; @
7. end;
   
8. 
   
9. dd:=date;
   # B& R7 r' k" c  T, |2 {( f' b* S
10. 
    
11. str:=NUMTOSTR(time,0)+';'+NUMTOSTR(v,0)+';'+NUMTOSTR(c,2);
    
12. for i=25 to 36 do
    & t! W. S1 W; h+ O
13. begin
    : Z; L1 p( l9 ^1 Q) J
14. str:=str+';'+NUMTOSTR(DYNAINFO(i),2);
    $ c' k: u3 u/ W& A* o2 Y
15. end;
    
16. 
    + P) v! |; W: d" J  Y* u+ J8 b3 u& O
17. <%
    : {: v- S% C& u  h& ]8 y) T
18. vd1 = FFL.VarData("dd")
    . G- k- l5 l$ l# h5 n
19. vd2 = FFL.VarData("str")
    
20. nFirst = FFL.VarStartIndex("dd")
    , {) a. e$ q" a5 Y
21. 
    
22. Set fso=CreateObject("Scripting.FileSystemObject")
    - v0 z% |/ o9 M% a
23. fn ="D:/fhdata/"+cstr(vd1(nFirst))+"data.txt"
    
24. 
    ( J0 E9 ]! B, |  ^7 l4 Z1 I9 [9 i) q
25. Set f1 = fso.OpenTextFile(fn,8,True)
    
26. f1.writeline vd2
    
27. f1.close
    
28. 
    . a  N1 `: `/ Y1 _' {3 {- I/ r+ a% ]- M
29. %>
    4 L% h; U9 a1 a: D3 j+ S9 h# P1 m
30. 
    ' @$ _, n* z& I
31. aa:time;
    ( l0 s7 C* Z3 `; h3 h
32. Show File Failed
    ! L1 }9 E* o" r/ w" j7 F
33. 
    ' s$ Y6 q4 y6 n5 z0 ^
34. 
    # C' M$ x! Z5 F0 t/ O. x# P) @

复制代码

边缘_Michael

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

. _! N, ]1 H$ c  c( r( d对VB不太熟，先学习着

sxsongchen

学习了，试试

边缘_Michael

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

哈哈，测试成功了！谢谢！
2 ^$ b; `9 K  ]# J* U* Y
公式里面的vb是不是调用的windows自带的vb scripts引擎，window有的，公式里都能用吧？