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

边缘_Michael

计算公式时希望导出一些结算结果，以便用excel统计。
2 m: j1 N5 Y2 ~, `
不知道现有公式函数里，有没有可以写文件的函数呢？
预先谢谢大牛们回答。
; V( p( q4 {- a8 d
. i! }8 x) m9 n+ h

gc007

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

边缘_Michael

gc007 发表于 2014-2-16 11:00
# h1 S8 {  @9 I9 m6 G1 S/ Y- V是同时计算公式的时候，输出数据到EXCEL吗？

- M: F$ g* h. l0 d, i4 U4 T% \$ L是的，就是这个意思。输出格式能灵活些更好。

mccs

同问，请版主大人指教

醉心

用VB来写看看

1. 
   1 y) C1 V! O2 P
2. 
   
3. if DATAPERIOD<>0 then
   
4. begin
   " K4 H3 t' i2 c( w9 b6 d
5. DRAWTEXT(BARPOS=SYSPARAM(2)+10,1,'本指标只能用于分笔分析');
   & G$ E& H6 r( n/ b  ?' P2 d( t/ x3 Q
6. exit;
   
7. end;
   & w5 }# `1 Q, f, d% |2 ^
8. 
   
9. dd:=date;
   1 i" Y. V* x4 ~7 L4 F
10. 
    / ~% n1 ]0 y/ |& w7 \% T
11. str:=NUMTOSTR(time,0)+';'+NUMTOSTR(v,0)+';'+NUMTOSTR(c,2);
    % r0 w+ U$ p7 d
12. for i=25 to 36 do
    - U3 z  w) j/ q3 k
13. begin
    " x& q! r# S4 V  Q
14. str:=str+';'+NUMTOSTR(DYNAINFO(i),2);
    
15. end;
    - l2 u* ?, b+ h
16. 
    
17. <%
    8 j' l; s- j' Z" |, A' m
18. vd1 = FFL.VarData("dd")
    
19. vd2 = FFL.VarData("str")
    
20. nFirst = FFL.VarStartIndex("dd")
    ) F) l2 v/ @! k# B& C% ^4 t
21. 
    ; r9 j  W4 Q# o( N; h
22. Set fso=CreateObject("Scripting.FileSystemObject")
    6 s( F" X! h: e2 A/ V
23. fn ="D:/fhdata/"+cstr(vd1(nFirst))+"data.txt"
    
24. 
    
25. Set f1 = fso.OpenTextFile(fn,8,True)
    
26. f1.writeline vd2
    
27. f1.close
    
28. 
    9 h* {  S1 J0 \9 I8 O
29. %>
    / F+ A+ d4 t) F
30. 
    ' K( [; b& c5 u& g. J0 P
31. aa:time;
    4 ]9 K9 d% `4 e5 [0 p. o' W/ G9 V5 ~6 E
32. Show File Failed
    2 p% d( N1 B% k7 r' @7 I
33. 
    " g6 f- W" g- z8 B# l- F
34. 
    

复制代码

, v6 l6 _! p9 W) Q% N

边缘_Michael

醉心 发表于 2014-2-17 11:36
4 n( q, y# e0 _6 ~3 G: B5 o- v用VB来写看看

对VB不太熟，先学习着

sxsongchen

学习了，试试

边缘_Michael

醉心 发表于 2014-2-17 11:36
+ Y2 |. ~- {& U1 s用VB来写看看

& V6 D" e" N7 y) W& Z( {哈哈，测试成功了！谢谢！
* L: v% E% Z" P$ q7 e6 p, ~; e
公式里面的vb是不是调用的windows自带的vb scripts引擎，window有的，公式里都能用吧？