步步汇盈

标题: 请问公式中有可以写文件的函数吗？ [打印本页]
作者: 边缘_Michael    时间: 2014-2-15 14:08
标题: 请问公式中有可以写文件的函数吗？
计算公式时希望导出一些结算结果，以便用excel统计。$ p- t) x4 B% o9 I- D* y5 \) o5 q
& [8 B4 Y( F8 `/ ~( p
不知道现有公式函数里，有没有可以写文件的函数呢？& f4 V: N5 {4 \% m( t
预先谢谢大牛们回答。
! M/ l) {& j8 c/ b4 P
% g' A* n+ ]& ~9 X% U/ {
作者: gc007    时间: 2014-2-16 11:00
是同时计算公式的时候，输出数据到EXCEL吗？
作者: 边缘_Michael    时间: 2014-2-16 22:37
gc007 发表于 2014-2-16 11:009 l) K5 }: b; ~' p3 \2 L4 x# B6 @
是同时计算公式的时候，输出数据到EXCEL吗？
' `& @! T8 K; _7 M
是的，就是这个意思。输出格式能灵活些更好。
作者: mccs    时间: 2014-2-17 00:45
同问，请版主大人指教
作者: 醉心    时间: 2014-2-17 11:36
用VB来写看看
! p  T3 j) e. g% K8 C2 o2 V6 I) O& }9 L+ o
  1. . M4 x* f, u! O6 R, R

  2. % g) Y" ^8 I) c- F9 s
  3. if DATAPERIOD<>0 then 2 d' V7 v- Q8 K+ D& Y. r- |
  4. begin' v8 M4 ?' A" B) K2 K4 v' w9 d
  5. DRAWTEXT(BARPOS=SYSPARAM(2)+10,1,'本指标只能用于分笔分析');7 ?$ u2 @3 O: `1 P# u$ W  A. Q
  6. exit;$ G0 w; n1 d2 R& \7 e" c
  7. end;- _$ a( _6 ~5 R. t' ?( k

  8. 7 C% P# y9 g6 C0 ~  G8 c
  9. dd:=date;
      |# [; S/ f; _% @) D

  10. & `' w* t' r/ y$ {) F% ~
  11. str:=NUMTOSTR(time,0)+';'+NUMTOSTR(v,0)+';'+NUMTOSTR(c,2);% }9 r0 D1 Z) g$ ^
  12. for i=25 to 36 do( U8 c! g! I' @4 i
  13. begin. e. G8 u4 f& Q0 o( {
  14. str:=str+';'+NUMTOSTR(DYNAINFO(i),2);$ G! ]  @$ J% N& c6 F- V
  15. end;$ @1 i* g( Q1 k

  16. 8 j' m1 P; w, h% w+ y! u
  17. <%( R( [. P& `2 z' }% G0 a# m/ u* q
  18. vd1 = FFL.VarData("dd")4 i5 o- X7 U  Q( R9 i' I9 m
  19. vd2 = FFL.VarData("str")! u. \% o& h1 T
  20. nFirst = FFL.VarStartIndex("dd") / T9 i. s! k' |! g+ }# o/ a
  21. " _' }* t! V+ F; n7 y
  22. Set fso=CreateObject("Scripting.FileSystemObject")
    4 z' [/ c" W! I/ Y* ?' S
  23. fn ="D:/fhdata/"+cstr(vd1(nFirst))+"data.txt"" P* f  I$ @) |% O
  24. - e% m2 k( {; b- W3 C3 J3 j
  25. Set f1 = fso.OpenTextFile(fn,8,True)
    % k( Q6 H2 A. W9 `2 O! d
  26. f1.writeline vd2' B' `+ @. _& B& }
  27. f1.close
    1 U5 j* E: \" T3 r

  28. 6 O4 F2 Y& `! t( i  o
  29. %>
    . C$ h% |( h6 F# z
  30. + H2 h4 n, [! u1 f8 a: D* r$ A5 C7 S
  31. aa:time;/ G% r' }- _, a5 E0 {3 p1 V- X/ @
  32. Show File Failed
    2 u: w( ^1 C$ e7 y8 @0 f) ]
  33. ' p7 T" w+ p# Y

  34. . L2 Y9 }4 t6 P3 J2 s) D
复制代码

. ~: I5 h6 S( j) d7 A2 m( K8 _2 o
作者: 边缘_Michael    时间: 2014-2-17 21:35
醉心 发表于 2014-2-17 11:36
+ g8 }6 l, a% D& M4 @8 W3 ]用VB来写看看

. a  m" g+ k* |% t# B5 g对VB不太熟，先学习着
作者: sxsongchen    时间: 2014-2-18 17:20
学习了，试试
作者: 边缘_Michael    时间: 2014-3-2 21:41
醉心 发表于 2014-2-17 11:36
8 e, p% `5 _7 y4 |用VB来写看看
! \0 }8 S" k! a
哈哈，测试成功了！谢谢！
. x1 P4 S$ P: i; b* @! K6 v2 ]4 n
3 K- w* |  e, O) M' I; o公式里面的vb是不是调用的windows自带的vb scripts引擎，window有的，公式里都能用吧？



欢迎光临 步步汇盈 (http://bbs.58851.com/) Powered by Discuz! X3.2