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

边缘_Michael

计算公式时希望导出一些结算结果，以便用excel统计。
6 Q) i3 H' j8 Y9 O# H+ v& P% m
不知道现有公式函数里，有没有可以写文件的函数呢？
( |  R8 j7 J- P9 o- f' w预先谢谢大牛们回答。

gc007

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

边缘_Michael

gc007 发表于 2014-2-16 11:00
8 {/ j% U% i! y/ g: F. \是同时计算公式的时候，输出数据到EXCEL吗？

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

mccs

同问，请版主大人指教

醉心

用VB来写看看
/ R) k- W6 p* \9 x1 Z

1. 
   
2. 
   
3. if DATAPERIOD<>0 then
   ( ?2 S% k) U) |' v6 ^
4. begin
   : |0 o  i# o( f7 s" p- f
5. DRAWTEXT(BARPOS=SYSPARAM(2)+10,1,'本指标只能用于分笔分析');
   
6. exit;
   / k; [  @6 a# O, \9 {
7. end;
   " S1 g8 P4 J2 u# W. T
8. 
   2 Z2 W1 i4 H. C- o) v5 d4 |
9. dd:=date;
   - M, a, Z( ?9 E& I0 m
10. 
    
11. str:=NUMTOSTR(time,0)+';'+NUMTOSTR(v,0)+';'+NUMTOSTR(c,2);
    * p7 G5 P  I, M. j$ D2 X
12. for i=25 to 36 do
    
13. begin
    . _) z& `3 _( b  I4 a% J+ A* b
14. str:=str+';'+NUMTOSTR(DYNAINFO(i),2);
    ( m! J4 Z2 S4 B% s3 U4 g8 B
15. end;
    0 n7 X5 Y' O, c6 ~' _) U. b
16. 
    $ \* G( V3 K. |! F; N
17. <%
    
18. vd1 = FFL.VarData("dd")
    
19. vd2 = FFL.VarData("str")
    
20. nFirst = FFL.VarStartIndex("dd")
    
21. 
    
22. Set fso=CreateObject("Scripting.FileSystemObject")
    # w0 c' O, i' `6 A2 Q' B
23. fn ="D:/fhdata/"+cstr(vd1(nFirst))+"data.txt"
    8 c3 x0 ]5 o# s( J1 I+ I( p( p
24. 
    
25. Set f1 = fso.OpenTextFile(fn,8,True)
    
26. f1.writeline vd2
    
27. f1.close
    5 s/ F4 c$ u& s
28. 
    # h* O" T9 E6 c0 c0 j; W
29. %>
    
30. 
    
31. aa:time;
    
32. Show File Failed
    * _* R% D% D. `$ z6 n2 }: ^
33. 
    " A# w8 S1 d( a2 G8 u, Q
34. 
    1 x$ x3 }8 k- Y5 b. z4 u

复制代码

边缘_Michael

醉心 发表于 2014-2-17 11:36
- w" B6 m9 j  u- a用VB来写看看

+ z2 m2 J! J; v  F对VB不太熟，先学习着

sxsongchen

学习了，试试

边缘_Michael

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

哈哈，测试成功了！谢谢！
# F7 F& j/ v" {- C" ]
! n( u4 a# y0 [1 t公式里面的vb是不是调用的windows自带的vb scripts引擎，window有的，公式里都能用吧？