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

边缘_Michael

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

不知道现有公式函数里，有没有可以写文件的函数呢？
预先谢谢大牛们回答。

gc007

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

边缘_Michael

gc007 发表于 2014-2-16 11:00
7 z9 ?9 m+ A+ E. A' h是同时计算公式的时候，输出数据到EXCEL吗？

' }; Y/ J9 M% b8 N是的，就是这个意思。输出格式能灵活些更好。

mccs

同问，请版主大人指教

醉心

用VB来写看看
5 ^# U/ q8 m" I& b5 O' p3 ^

1. 
   $ g$ W3 j. T! W/ S, H% X0 x
2. 
   * y; E$ k/ a' K8 }- w- u
3. if DATAPERIOD<>0 then
   ) V1 _% P' r$ L- \4 h( P7 t( n
4. begin
   - J( O7 ^" U. S* y
5. DRAWTEXT(BARPOS=SYSPARAM(2)+10,1,'本指标只能用于分笔分析');
   
6. exit;
   0 t+ l7 m4 B, B
7. end;
   
8. 
   1 B, y' \; G8 b& W4 Y- f
9. dd:=date;
   2 l+ E$ P% ]3 `: F
10. 
    
11. str:=NUMTOSTR(time,0)+';'+NUMTOSTR(v,0)+';'+NUMTOSTR(c,2);
    & B4 ]% g4 c% e
12. for i=25 to 36 do
    
13. begin
    - J" _' v+ {% j& l
14. str:=str+';'+NUMTOSTR(DYNAINFO(i),2);
    ! h/ j& H( o, d/ ~9 u, k  H' ]
15. end;
    # w, p! M$ a$ h0 |* @4 V2 r  n
16. 
    
17. <%
    / H) t0 a+ ~3 ~: p, W& H" \
18. vd1 = FFL.VarData("dd")
    8 p7 G7 P( w  L$ b* Z' ^
19. vd2 = FFL.VarData("str")
    $ B. X. J* t, A; J7 v" L
20. nFirst = FFL.VarStartIndex("dd")
    0 M; A# E2 @# v  U& X/ C7 I  S
21. 
    & m2 M" @& E# ?1 B0 W
22. Set fso=CreateObject("Scripting.FileSystemObject")
    % F, e' p- t. c# [8 T, T
23. fn ="D:/fhdata/"+cstr(vd1(nFirst))+"data.txt"
    9 e" v4 g3 _' O  d5 w
24. 
    ' r- {7 ~; J& h) ~5 ]! Z' j
25. Set f1 = fso.OpenTextFile(fn,8,True)
    
26. f1.writeline vd2
    
27. f1.close
    6 Q) Q4 C3 M+ w1 \( K+ n
28. 
    
29. %>
    
30. 
    
31. aa:time;
    ' |' x1 E% Y) x; J* o
32. Show File Failed
    
33. 
    
34. 
    1 H' S. B. p* i9 ?1 F5 r

复制代码

边缘_Michael

醉心 发表于 2014-2-17 11:36
' ?- p- L* U" i2 n用VB来写看看

对VB不太熟，先学习着

sxsongchen

学习了，试试

边缘_Michael

醉心 发表于 2014-2-17 11:36
0 R" ~- L0 t' ~' v& D/ X5 h7 F用VB来写看看

5 @) I7 d3 i* ~( s. F! W1 U: \5 `; I哈哈，测试成功了！谢谢！
% v# r2 S& C% i2 i7 D. W2 C0 v
公式里面的vb是不是调用的windows自带的vb scripts引擎，window有的，公式里都能用吧？