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

边缘_Michael

计算公式时希望导出一些结算结果，以便用excel统计。
2 H! o; W! G& b) h4 J4 X8 _, Z
不知道现有公式函数里，有没有可以写文件的函数呢？
预先谢谢大牛们回答。
+ M# K( J* p2 X1 {3 W; R
/ R: M4 Z$ U% M2 j- M

gc007

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

边缘_Michael

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

6 h" u$ u6 H" I& E  g/ L是的，就是这个意思。输出格式能灵活些更好。

mccs

同问，请版主大人指教

醉心

用VB来写看看
% _% g* t! b: f" |7 Z% J% k
: B# o0 s1 a+ Z# q

1. 
   
2. 
   
3. if DATAPERIOD<>0 then
   * @% l( C4 E" V" N/ m7 `4 x2 u
4. begin
   , Q4 @2 d7 J! D" ]  V; `
5. DRAWTEXT(BARPOS=SYSPARAM(2)+10,1,'本指标只能用于分笔分析');
   
6. exit;
   
7. end;
   
8. 
   % ]) q- |2 Y" u& W4 N/ u
9. dd:=date;
   1 w% [8 f+ n, F5 u! I
10. 
    
11. str:=NUMTOSTR(time,0)+';'+NUMTOSTR(v,0)+';'+NUMTOSTR(c,2);
    6 Z( f& g* P. P* k% P; m
12. for i=25 to 36 do
    9 M! R, p$ }4 g7 L
13. begin
    8 Q7 x; N0 n1 {6 q3 p+ C0 K/ l8 g' u
14. str:=str+';'+NUMTOSTR(DYNAINFO(i),2);
    , h4 v2 \' h+ y, Z
15. end;
    
16. 
    ; y: t) R# \+ O; j
17. <%
    : o: X/ H0 ?" a( _. W
18. vd1 = FFL.VarData("dd")
    1 h/ O% F2 z# ?
19. vd2 = FFL.VarData("str")
    ; J/ @  j' \2 K+ X$ x9 Y1 F
20. nFirst = FFL.VarStartIndex("dd")
    
21. 
    
22. Set fso=CreateObject("Scripting.FileSystemObject")
    
23. fn ="D:/fhdata/"+cstr(vd1(nFirst))+"data.txt"
    3 `! H! P0 }; G" l% y6 N* k
24. 
    
25. Set f1 = fso.OpenTextFile(fn,8,True)
    
26. f1.writeline vd2
    8 S9 w2 X. F' T; p1 m4 ?
27. f1.close
    % J) {0 a: `/ l2 b, \. Z* q: q
28. 
    # {$ l  L# E) d9 J; A
29. %>
    
30. 
    
31. aa:time;
    
32. Show File Failed
    " I  l# z1 o. V; \3 V. q1 X' x
33. 
    3 a, E- f+ C" Q0 e  u4 i4 u
34. 
    $ g2 A) D9 O! {+ d* Z$ F

复制代码

0 q% p# y% v& I' N- @1 `

边缘_Michael

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

+ P# k! L9 r0 {  U9 p对VB不太熟，先学习着

sxsongchen

学习了，试试

边缘_Michael

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

& Q2 b4 S' m0 J哈哈，测试成功了！谢谢！
% N+ P5 P% x! f# C" j
# C# F1 h8 m, c  w- d( Q4 H8 ~8 m4 Y公式里面的vb是不是调用的windows自带的vb scripts引擎，window有的，公式里都能用吧？