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

边缘_Michael

计算公式时希望导出一些结算结果，以便用excel统计。
- {) W2 X' Y0 @
' c% @9 G. \' {( f0 C不知道现有公式函数里，有没有可以写文件的函数呢？
3 M# T, L! I! f% t/ e7 d预先谢谢大牛们回答。

3 U0 @, L8 x" }

gc007

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

边缘_Michael

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

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

mccs

同问，请版主大人指教

醉心

用VB来写看看
  N5 _  J8 A4 k: j+ m( n* J
) V$ B) K/ O- D. F; \% n

1. 
   & Y- S! s' D3 [5 b' x) U8 C
2. 
   
3. if DATAPERIOD<>0 then
   
4. begin
   
5. DRAWTEXT(BARPOS=SYSPARAM(2)+10,1,'本指标只能用于分笔分析');
   
6. exit;
   7 w; T6 d- S! l% u6 o# A
7. end;
   
8. 
   
9. dd:=date;
     v, G8 X4 x1 k6 t; h& ]. c6 s
10. 
    ( M$ ?! p4 i+ j0 @8 A( }
11. str:=NUMTOSTR(time,0)+';'+NUMTOSTR(v,0)+';'+NUMTOSTR(c,2);
    
12. for i=25 to 36 do
    
13. begin
    
14. str:=str+';'+NUMTOSTR(DYNAINFO(i),2);
    ; W' x4 _1 \8 O2 O
15. end;
    
16. 
    
17. <%
    
18. vd1 = FFL.VarData("dd")
    $ K& \) U8 I7 K, i# R5 A4 P1 S
19. vd2 = FFL.VarData("str")
    
20. nFirst = FFL.VarStartIndex("dd")
    : _/ p! g) t& R9 k' g7 w9 f2 f8 ~& Q
21. 
    : o) v) q) }/ z/ }: q0 X
22. Set fso=CreateObject("Scripting.FileSystemObject")
    ! h* A. ]* b% D+ V
23. fn ="D:/fhdata/"+cstr(vd1(nFirst))+"data.txt"
    
24. 
    2 w2 P7 h9 b: b* s
25. Set f1 = fso.OpenTextFile(fn,8,True)
    
26. f1.writeline vd2
    ! y9 z1 j* ~0 N3 Z
27. f1.close
    
28. 
    $ n& e! a2 r! S* w
29. %>
    % L, L4 N# m( M1 r+ |
30. 
    
31. aa:time;
    6 T4 T' u; _7 T
32. Show File Failed
    ( g6 B% j# q5 E  U
33. 
    
34. 
    

复制代码

7 [; C( q7 w4 U! e

边缘_Michael

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

( k4 D; ~3 R: ^; S+ G3 N对VB不太熟，先学习着

sxsongchen

学习了，试试

边缘_Michael

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

哈哈，测试成功了！谢谢！
# v, B9 l8 r4 C4 G. P9 }) d6 V
) c2 s+ S5 P9 I- n" Z7 [公式里面的vb是不是调用的windows自带的vb scripts引擎，window有的，公式里都能用吧？