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

边缘_Michael

计算公式时希望导出一些结算结果，以便用excel统计。
+ {/ r4 n0 _: |9 E$ _3 b2 m& c
" C- ^$ c; h* I' A4 [# V不知道现有公式函数里，有没有可以写文件的函数呢？
预先谢谢大牛们回答。

边缘_Michael

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

  r- \3 n9 i2 y% G哈哈，测试成功了！谢谢！
! S6 s7 p+ {% l9 |( l
公式里面的vb是不是调用的windows自带的vb scripts引擎，window有的，公式里都能用吧？

sxsongchen

学习了，试试

边缘_Michael

醉心 发表于 2014-2-17 11:36
% e# d; R6 o8 j8 z8 u( D用VB来写看看

- U8 T* z3 a$ l/ T9 ?% o* U对VB不太熟，先学习着

醉心

用VB来写看看

1. 
   , ]1 |) z, y6 d1 O1 e7 V1 g- T7 E3 p
2. 
   
3. if DATAPERIOD<>0 then
   . K6 e+ t! t% A
4. begin
   ! @; U$ L% v1 }$ |1 f5 \
5. DRAWTEXT(BARPOS=SYSPARAM(2)+10,1,'本指标只能用于分笔分析');
   8 }0 m" I! i& r* L
6. exit;
     f1 S# F- `& t6 }
7. end;
   
8. 
   6 a7 G! B5 ?: N) ~+ [. x$ s, w) H
9. dd:=date;
   2 ^6 I0 i# G7 e/ L6 r( ^- w3 U$ W
10. 
    
11. str:=NUMTOSTR(time,0)+';'+NUMTOSTR(v,0)+';'+NUMTOSTR(c,2);
    " }+ C/ p3 L+ l2 J# w) v
12. for i=25 to 36 do
    
13. begin
    + i- b7 i2 W& ^2 H
14. str:=str+';'+NUMTOSTR(DYNAINFO(i),2);
    $ `& p) z8 r/ f  g  G+ I2 d
15. end;
    
16. 
    9 ~9 m7 ^: D* P" r6 Q, u& Z2 g
17. <%
    ( ]# H  J" ^$ p8 a
18. vd1 = FFL.VarData("dd")
    
19. vd2 = FFL.VarData("str")
    
20. nFirst = FFL.VarStartIndex("dd")
    
21. 
    
22. Set fso=CreateObject("Scripting.FileSystemObject")
    + D6 [- H9 w- k0 n" {, U
23. fn ="D:/fhdata/"+cstr(vd1(nFirst))+"data.txt"
    7 @, x# c9 O1 M% W
24. 
    
25. Set f1 = fso.OpenTextFile(fn,8,True)
    
26. f1.writeline vd2
    ; s8 _4 k- b) f( o6 b
27. f1.close
    + Z1 E6 z# P- o8 {' p( W6 O
28. 
    
29. %>
    
30. 
    
31. aa:time;
    ) y$ Y1 m1 b( X6 w: Z
32. Show File Failed
    & V8 H$ w% y+ @
33. 
    $ n9 L, c8 w- _+ S; F0 D0 m# M
34. 
    

复制代码

mccs

同问，请版主大人指教

边缘_Michael

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

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

gc007

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