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

边缘_Michael

计算公式时希望导出一些结算结果，以便用excel统计。
: X4 z* O9 P6 h* U! @. t
' R9 [( c( J) c+ k5 O不知道现有公式函数里，有没有可以写文件的函数呢？
预先谢谢大牛们回答。

: g/ d. t7 }8 F

gc007

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

边缘_Michael

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

# n8 a8 a) Z& N, k% e8 b是的，就是这个意思。输出格式能灵活些更好。

mccs

同问，请版主大人指教

醉心

用VB来写看看
' k  o+ R& w$ q  D: y

1. 
   
2. 
   * ^6 t! o2 r; R( P
3. if DATAPERIOD<>0 then
   : v/ J' W  R! X, ^; y2 {) |
4. begin
   ' ^1 t/ y6 P# Z; }
5. DRAWTEXT(BARPOS=SYSPARAM(2)+10,1,'本指标只能用于分笔分析');
   
6. exit;
   1 E" l) `$ Q8 j! L- i; g
7. end;
   1 q% d- L$ m6 [( i
8. 
   & R3 {6 v0 Q5 w$ R
9. dd:=date;
   - q0 o5 I1 F& |: P
10. 
    " u0 |' a1 G" U! ~' g* ~
11. str:=NUMTOSTR(time,0)+';'+NUMTOSTR(v,0)+';'+NUMTOSTR(c,2);
    % v" E- n% W7 A; P
12. for i=25 to 36 do
    ' e. i* {9 H' J! d# O' x5 n' a
13. begin
    2 T6 `- w; ?3 X6 X/ F
14. str:=str+';'+NUMTOSTR(DYNAINFO(i),2);
    & L  k: ~& _* J% C0 j8 V, c
15. end;
    
16. 
    ; Q" f# R( O% J( U/ X+ r
17. <%
    : x/ I  l* M. @9 }9 B" }2 e
18. vd1 = FFL.VarData("dd")
    
19. vd2 = FFL.VarData("str")
    / q9 |+ U2 d6 ~+ ?% {3 F
20. nFirst = FFL.VarStartIndex("dd")
    
21. 
    
22. Set fso=CreateObject("Scripting.FileSystemObject")
    5 t; O" n% E' W/ Q8 B% Z7 P
23. fn ="D:/fhdata/"+cstr(vd1(nFirst))+"data.txt"
    
24. 
    : S4 ^4 U' _$ x5 }% @" o
25. Set f1 = fso.OpenTextFile(fn,8,True)
    % Z2 j  x9 ?5 w% a5 I4 {- R
26. f1.writeline vd2
    
27. f1.close
    # \6 k" ?2 k8 F7 x3 i. ~% b  }1 t
28. 
    
29. %>
    
30. 
    / a/ s# R- W( i, ]
31. aa:time;
    
32. Show File Failed
    
33. 
    
34. 
    

复制代码

# I# L1 m5 F6 w' \$ b

边缘_Michael

醉心 发表于 2014-2-17 11:36
3 w# F( n. m5 [$ q! G. d% J用VB来写看看

对VB不太熟，先学习着

sxsongchen

学习了，试试

边缘_Michael

醉心 发表于 2014-2-17 11:36
% H8 |+ }$ q. @+ m% e用VB来写看看

哈哈，测试成功了！谢谢！
( M0 F) G  w% s# E
$ p6 {2 h+ l8 u6 E$ s8 S5 F3 X公式里面的vb是不是调用的windows自带的vb scripts引擎，window有的，公式里都能用吧？