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

边缘_Michael

计算公式时希望导出一些结算结果，以便用excel统计。

: X2 x/ O2 R1 p6 o  i2 {. B2 L不知道现有公式函数里，有没有可以写文件的函数呢？
4 H! D1 \( }0 x  [7 A5 u2 b+ [预先谢谢大牛们回答。

* ^6 K! a2 v8 B5 h/ m- L

gc007

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

边缘_Michael

gc007 发表于 2014-2-16 11:00
& P1 r/ o$ f1 j  l" B6 d是同时计算公式的时候，输出数据到EXCEL吗？

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

mccs

同问，请版主大人指教

醉心

用VB来写看看
  M/ B9 w! X2 N7 ]7 S8 W
$ u3 B7 K# ?9 [/ q5 L6 b+ N

1. 
   ( C8 e7 x7 V) Z# G( W/ `; F  x
2. 
   
3. if DATAPERIOD<>0 then
   
4. begin
   
5. DRAWTEXT(BARPOS=SYSPARAM(2)+10,1,'本指标只能用于分笔分析');
   
6. exit;
   ' [0 {4 a2 g3 b2 l" `$ X: w) Q" a
7. end;
   
8. 
   $ ]8 C2 X7 u' H, A, X+ q
9. dd:=date;
   
10. 
    
11. str:=NUMTOSTR(time,0)+';'+NUMTOSTR(v,0)+';'+NUMTOSTR(c,2);
    ' w  H% L: S% o" d' y6 t: }; E
12. for i=25 to 36 do
    $ Z/ `$ z0 ]0 M: ?
13. begin
    7 u0 r4 i% @5 D9 q0 R" q5 W
14. str:=str+';'+NUMTOSTR(DYNAINFO(i),2);
    
15. end;
    3 W& K7 d* O/ q
16. 
    
17. <%
    : n# Y- m: T, ~" @/ B  b
18. vd1 = FFL.VarData("dd")
    , L( x0 g: f* o2 P# \( g
19. vd2 = FFL.VarData("str")
    0 d, o: R  B( l* ]& e
20. nFirst = FFL.VarStartIndex("dd")
    ! K$ I7 j' t9 ^$ s+ g( B
21. 
    0 M1 U: ~7 W) o" O1 I0 L: y. M
22. Set fso=CreateObject("Scripting.FileSystemObject")
    
23. fn ="D:/fhdata/"+cstr(vd1(nFirst))+"data.txt"
    
24. 
    
25. Set f1 = fso.OpenTextFile(fn,8,True)
    / X4 o; b0 M: X3 Z
26. f1.writeline vd2
    
27. f1.close
    - b6 c; L0 T$ K  `/ i  ]
28. 
    / j+ i; ]" D: G, g1 `! c: w3 c6 s- t% {
29. %>
      U/ D/ H! W! u$ Z+ s8 |1 Z
30. 
    * k9 W; ^$ c1 T1 m- `; \: E+ A1 a
31. aa:time;
    
32. Show File Failed
    
33. 
    / y4 B5 o7 I0 D! p. Q* G$ @8 D
34. 
    9 G  z: `8 F) `1 r, L/ n3 U: Z

复制代码

边缘_Michael

醉心 发表于 2014-2-17 11:36
6 m- x" W3 _' ]8 r+ j- [+ }用VB来写看看

4 F7 e# ^0 I/ g) K9 Z对VB不太熟，先学习着

sxsongchen

学习了，试试

边缘_Michael

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

哈哈，测试成功了！谢谢！

* `( N  K$ Q8 h! F公式里面的vb是不是调用的windows自带的vb scripts引擎，window有的，公式里都能用吧？