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

边缘_Michael

计算公式时希望导出一些结算结果，以便用excel统计。
! P) E" p0 P3 n* e, H
+ f. I0 P$ [7 t# P不知道现有公式函数里，有没有可以写文件的函数呢？
预先谢谢大牛们回答。

4 o% [' x& B& }

边缘_Michael

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

哈哈，测试成功了！谢谢！
# C" o, U3 ~% f% E8 u9 M
3 t1 U& n4 b9 M3 u* _: C/ ^+ _公式里面的vb是不是调用的windows自带的vb scripts引擎，window有的，公式里都能用吧？

sxsongchen

学习了，试试

边缘_Michael

醉心 发表于 2014-2-17 11:36
% W4 s. X3 v: l( Q' |用VB来写看看

9 m  E, g9 l; q1 E  p& z3 X: ]: p对VB不太熟，先学习着

醉心

用VB来写看看
- h( J# o; {" W6 O- ~

1. 
   
2. 
   7 O' s/ u" U: i  x1 `/ O/ b$ L( A7 s
3. if DATAPERIOD<>0 then
   1 L% W# f& S* Y4 s
4. begin
   
5. DRAWTEXT(BARPOS=SYSPARAM(2)+10,1,'本指标只能用于分笔分析');
   2 V+ ]8 S) D" n* S+ M# C
6. exit;
   ) \' Q3 P3 j7 I
7. end;
   
8. 
   5 {' P/ D) O$ Y' C
9. dd:=date;
   5 C& \/ X5 B' w7 I( G( N) h
10. 
    
11. str:=NUMTOSTR(time,0)+';'+NUMTOSTR(v,0)+';'+NUMTOSTR(c,2);
    
12. for i=25 to 36 do
    7 U  h4 z$ ]- N1 h# t1 y6 F
13. begin
    
14. str:=str+';'+NUMTOSTR(DYNAINFO(i),2);
    ) z$ Y9 @% p/ n0 x
15. end;
    
16. 
    
17. <%
    
18. vd1 = FFL.VarData("dd")
    
19. vd2 = FFL.VarData("str")
    # r4 Z" s! e5 |7 o# Z+ |
20. nFirst = FFL.VarStartIndex("dd")
    
21. 
    
22. Set fso=CreateObject("Scripting.FileSystemObject")
    9 X' T. b7 y% {  \* ]6 s5 {5 F
23. fn ="D:/fhdata/"+cstr(vd1(nFirst))+"data.txt"
    8 Q/ s. i! \4 a: m
24. 
    
25. Set f1 = fso.OpenTextFile(fn,8,True)
    
26. f1.writeline vd2
    6 M$ p; L& d& X, M) K. }
27. f1.close
    - b! _( G, T" R# f
28. 
    , ?' p% y, k, Q! v8 n
29. %>
    + Q6 H  k6 V" `2 K
30. 
    
31. aa:time;
    
32. Show File Failed
    ( }# L+ Z; A$ m. E& c
33. 
    , L% H. u, V; D( E7 @4 |
34. 
    ' ?3 q* i* p+ l7 r3 H+ X

复制代码

. y0 k! ?8 a2 J1 g7 m9 R( A6 f! Q

mccs

同问，请版主大人指教

边缘_Michael

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

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

gc007

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