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

边缘_Michael

计算公式时希望导出一些结算结果，以便用excel统计。
. r2 ~* i* }1 @- u
# w4 {% G) l9 V* E: W6 N  X2 Q6 ~不知道现有公式函数里，有没有可以写文件的函数呢？
预先谢谢大牛们回答。

! ]8 B1 M6 r- S8 c

边缘_Michael

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

哈哈，测试成功了！谢谢！

9 b: T$ ]& _6 ~) g* T公式里面的vb是不是调用的windows自带的vb scripts引擎，window有的，公式里都能用吧？

sxsongchen

学习了，试试

边缘_Michael

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

对VB不太熟，先学习着

醉心

用VB来写看看

1. 
   
2. 
   4 d0 X. C' J2 Y3 m2 V
3. if DATAPERIOD<>0 then
   
4. begin
   0 m. d) d1 k6 ]. Q( G
5. DRAWTEXT(BARPOS=SYSPARAM(2)+10,1,'本指标只能用于分笔分析');
   0 D4 c6 k) _6 l/ d7 G- P
6. exit;
   
7. end;
   
8. 
   
9. dd:=date;
   ) R% v- P! y2 f4 R6 {) D$ K9 n
10. 
    3 |3 M7 K! U# _  Q: Z8 w0 ~
11. str:=NUMTOSTR(time,0)+';'+NUMTOSTR(v,0)+';'+NUMTOSTR(c,2);
    
12. for i=25 to 36 do
    
13. begin
    # Q" a: V5 q5 s/ I0 e- @
14. str:=str+';'+NUMTOSTR(DYNAINFO(i),2);
    % ]5 f9 D5 K% K
15. end;
    / W: D9 Q/ `; E/ O# z
16. 
    8 q) v, L& R) o% H- ^+ y
17. <%
    $ r3 R7 x' Q4 k0 m6 N5 t
18. vd1 = FFL.VarData("dd")
    7 o$ I4 ^! ~" q$ x" ~( }% W4 M
19. vd2 = FFL.VarData("str")
    1 Z  Q# _4 i4 D- r6 N
20. nFirst = FFL.VarStartIndex("dd")
    
21. 
    
22. Set fso=CreateObject("Scripting.FileSystemObject")
    ! S% J0 N# k6 l# m
23. fn ="D:/fhdata/"+cstr(vd1(nFirst))+"data.txt"
    1 V: n" [  \4 C+ s4 U9 ~) H
24. 
    , M2 x# r+ {$ b3 A
25. Set f1 = fso.OpenTextFile(fn,8,True)
    ! w/ F% y& ^. P2 v+ ~
26. f1.writeline vd2
    : M2 g' i0 U0 H& b8 V2 ^
27. f1.close
    
28. 
    
29. %>
    , X0 _5 w  u- e- m5 H$ d7 G0 x
30. 
    
31. aa:time;
    ' @' [5 n9 c% q- d6 ?4 T$ s$ w
32. Show File Failed
    
33. 
    1 j( Q$ I( L$ Y- Y3 p) h/ j, ^
34. 
    ! @6 q3 E1 B& `( I$ L" X. n2 B4 j

复制代码

9 A) A! }$ L3 r5 D4 Q

mccs

同问，请版主大人指教

边缘_Michael

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

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

gc007

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