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

边缘_Michael

计算公式时希望导出一些结算结果，以便用excel统计。
% E0 ~5 [3 r8 z! h' `0 y% b) ]
! f4 F0 m) @7 Q1 A) Y* _8 o不知道现有公式函数里，有没有可以写文件的函数呢？
预先谢谢大牛们回答。
6 F' e; U- X/ \+ `# E
: Z; i) c; x6 Z' G

gc007

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

边缘_Michael

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

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

mccs

同问，请版主大人指教

醉心

用VB来写看看

1. 
   
2. 
   + z1 S3 O. X1 I: E; v5 s( a
3. if DATAPERIOD<>0 then
   $ W9 p1 E2 @" }' q. C7 y; z/ _
4. begin
   0 B, c: x4 x$ w: h- k8 R3 J/ B
5. DRAWTEXT(BARPOS=SYSPARAM(2)+10,1,'本指标只能用于分笔分析');
   
6. exit;
   - p* g2 X! }/ D3 k- k' `& F& U
7. end;
   
8. 
   3 N5 x, V) S9 V/ e4 u
9. dd:=date;
   $ t3 t  z7 y# P" J
10. 
    
11. str:=NUMTOSTR(time,0)+';'+NUMTOSTR(v,0)+';'+NUMTOSTR(c,2);
    
12. for i=25 to 36 do
    " Q3 O0 ~, P& u  B! J- h( d
13. begin
    $ {/ i  ?& z6 Y6 H5 p) U0 u* W
14. str:=str+';'+NUMTOSTR(DYNAINFO(i),2);
    
15. end;
      w" L7 [8 O4 d6 U! @; j9 w
16. 
    
17. <%
    
18. vd1 = FFL.VarData("dd")
    
19. vd2 = FFL.VarData("str")
    2 n6 r2 a& i2 l7 Y' h) `  l/ ^
20. nFirst = FFL.VarStartIndex("dd")
    
21. 
    8 A9 b8 e+ u* K# u+ a, b
22. Set fso=CreateObject("Scripting.FileSystemObject")
    2 B$ |6 y2 A+ I6 K% \
23. fn ="D:/fhdata/"+cstr(vd1(nFirst))+"data.txt"
    
24. 
    
25. Set f1 = fso.OpenTextFile(fn,8,True)
    ' j$ A) i4 N& ?/ y2 r* }
26. f1.writeline vd2
    
27. f1.close
    ( w  E) X" U4 Y
28. 
    6 v2 p4 I0 K5 k( B
29. %>
      _! ^6 p: p9 a9 Q6 k! e
30. 
    8 d5 N; X, t/ e3 W
31. aa:time;
    / y, m) U0 ^% y: ^* R
32. Show File Failed
    
33. 
    
34. 
    * b! ^' u' p: j8 y' o

复制代码

$ g( h9 W, J0 P6 Y" H0 d

边缘_Michael

醉心 发表于 2014-2-17 11:36
) q. \# z! G/ K& f* m$ h用VB来写看看

对VB不太熟，先学习着

sxsongchen

学习了，试试

边缘_Michael

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

哈哈，测试成功了！谢谢！
/ z; _6 ], B: }! M# r
2 n  W2 k! B# i! C" H& Q% C  ]公式里面的vb是不是调用的windows自带的vb scripts引擎，window有的，公式里都能用吧？