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

边缘_Michael

计算公式时希望导出一些结算结果，以便用excel统计。
8 K! [' ]8 m) z3 w2 D0 b
不知道现有公式函数里，有没有可以写文件的函数呢？
$ p4 i5 e7 V% C, j! Z预先谢谢大牛们回答。

gc007

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

边缘_Michael

gc007 发表于 2014-2-16 11:00
4 c$ Z4 s. a( f" a2 |- g$ T+ t4 z是同时计算公式的时候，输出数据到EXCEL吗？

/ P. [; U' P: Y) Z- w. I6 U是的，就是这个意思。输出格式能灵活些更好。

mccs

同问，请版主大人指教

醉心

用VB来写看看

1. 
   1 |/ B+ L5 @. ^  m  o7 A
2. 
   # `5 O/ e6 h# z9 M& p: P
3. if DATAPERIOD<>0 then
   3 U+ A5 ^3 \! y
4. begin
   # }" o6 o; o4 `  E
5. DRAWTEXT(BARPOS=SYSPARAM(2)+10,1,'本指标只能用于分笔分析');
   
6. exit;
   , a( d5 x  W% l- y8 m: R  ], Y0 c
7. end;
   
8. 
   + x4 l. B( E/ I4 ?3 z5 H& R7 B) V  [
9. dd:=date;
   
10. 
    ; `( t1 h( R6 `; m9 x6 I
11. str:=NUMTOSTR(time,0)+';'+NUMTOSTR(v,0)+';'+NUMTOSTR(c,2);
    + J) _* z  M& [
12. for i=25 to 36 do
    
13. begin
    
14. str:=str+';'+NUMTOSTR(DYNAINFO(i),2);
    ' T. M0 X+ ]$ j; W) y; N
15. end;
    % V2 S: a. T- t" [1 }- v$ N
16. 
    
17. <%
    
18. vd1 = FFL.VarData("dd")
    7 d0 ]* \; q' v% k8 C" G
19. vd2 = FFL.VarData("str")
    ' J1 N3 @& F1 _% ]2 {
20. nFirst = FFL.VarStartIndex("dd")
    6 O2 C4 |$ R3 G% u5 X- v( T
21. 
    
22. Set fso=CreateObject("Scripting.FileSystemObject")
    3 n) t- T' r% A+ F# g  c4 }
23. fn ="D:/fhdata/"+cstr(vd1(nFirst))+"data.txt"
    
24. 
    
25. Set f1 = fso.OpenTextFile(fn,8,True)
    
26. f1.writeline vd2
    
27. f1.close
    % x' l/ g, m3 v
28. 
    
29. %>
    7 P" e! j$ b( t3 r3 ?
30. 
    % O5 [- ?1 M% k
31. aa:time;
    
32. Show File Failed
    
33. 
    6 L7 S- R! ?( h) H- N. b
34. 
    

复制代码

边缘_Michael

醉心 发表于 2014-2-17 11:36
, {2 @$ E4 O; g用VB来写看看

对VB不太熟，先学习着

sxsongchen

学习了，试试

边缘_Michael

醉心 发表于 2014-2-17 11:36
* c$ l' y4 y1 R. A' d$ D用VB来写看看

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

公式里面的vb是不是调用的windows自带的vb scripts引擎，window有的，公式里都能用吧？