步步汇盈

标题: 请问公式中有可以写文件的函数吗？ [打印本页]
作者: 边缘_Michael    时间: 2014-2-15 14:08
标题: 请问公式中有可以写文件的函数吗？
计算公式时希望导出一些结算结果，以便用excel统计。
$ U- I1 X9 Q* d+ ^' R: _' w
  b6 h) G8 H! D6 F" w& y3 ?不知道现有公式函数里，有没有可以写文件的函数呢？
' q- K7 b2 R* T  T9 K  i& T, X预先谢谢大牛们回答。6 i' z! ?1 x' t* E* h3 T$ ?& G

, v  B! k) S2 f: A
作者: gc007    时间: 2014-2-16 11:00
是同时计算公式的时候，输出数据到EXCEL吗？
作者: 边缘_Michael    时间: 2014-2-16 22:37
gc007 发表于 2014-2-16 11:00! S- q7 s- N3 w, P1 W. n3 }
是同时计算公式的时候，输出数据到EXCEL吗？
/ @' C& }- I4 ^# w, c9 G6 V& H8 T
是的，就是这个意思。输出格式能灵活些更好。
作者: mccs    时间: 2014-2-17 00:45
同问，请版主大人指教
作者: 醉心    时间: 2014-2-17 11:36
用VB来写看看: i$ E- j1 E; l2 b

8 a' V3 I# m1 r8 _
  1. 3 k! Y6 a% q1 B; t1 f3 Z
  2. + A: g% k3 w: M( {: `
  3. if DATAPERIOD<>0 then   a% I3 X0 `' o) l) k4 }/ M5 U: _
  4. begin9 L* z% h6 H' \2 H! M5 @  q
  5. DRAWTEXT(BARPOS=SYSPARAM(2)+10,1,'本指标只能用于分笔分析');
    ' O& d; ], s) n+ ]0 ?; G2 }
  6. exit;
    , B; y" i7 F: Z, W+ U
  7. end;
    ( m7 f" k+ g. p' t% d
  8. * b+ S/ i( j' z; x4 a: X7 x8 S
  9. dd:=date;
    ; l+ N6 L  W- u1 y* e

  10. ) Z) o% g4 P: b0 J7 V2 y
  11. str:=NUMTOSTR(time,0)+';'+NUMTOSTR(v,0)+';'+NUMTOSTR(c,2);
    ; D# l" Z) p% m( J
  12. for i=25 to 36 do
    ! @2 H2 h/ l$ }3 ?9 f
  13. begin
    7 _4 A+ T( q: e/ ?$ b( o
  14. str:=str+';'+NUMTOSTR(DYNAINFO(i),2);& t. y7 \: B; ~
  15. end;
    1 P: Q( J! @4 x% d

  16. " q  J, f3 [! M9 M$ n8 ?8 Q: I- ~
  17. <%2 ~- t0 E+ s& A6 |& N
  18. vd1 = FFL.VarData("dd")
    # r0 b' Z" J2 V4 _% C
  19. vd2 = FFL.VarData("str")
    & k5 r, N; i7 Y, i! v. ?
  20. nFirst = FFL.VarStartIndex("dd")
    ' a2 h1 ^: B- J* d/ x" l

  21. 9 w( n4 C6 U* p, q8 G4 u5 v
  22. Set fso=CreateObject("Scripting.FileSystemObject")
      j* E3 E8 ~3 ?" ?7 u" X
  23. fn ="D:/fhdata/"+cstr(vd1(nFirst))+"data.txt"5 L% O  x* R% C9 V! F% G3 @
  24. 1 R# l9 d2 H+ R" V
  25. Set f1 = fso.OpenTextFile(fn,8,True)
    / U/ ~8 G" C  j; R1 c# C
  26. f1.writeline vd21 \& B5 Q" \( x+ d4 D
  27. f1.close
    . w# z1 N7 L, \: |2 P) A+ f) t6 n
  28. - H4 a3 G7 Z& ~5 M$ L
  29. %>
    - t1 t* p9 F3 `, o: q* b* J, X4 s/ }" h

  30. " h* A5 `. L& B' c  J) i) A/ A
  31. aa:time;
    / Z; K+ L7 e* R; F, w5 B. X
  32. Show File Failed. I+ [+ J( B  e9 }8 t
  33. % Y$ h' X9 @7 |- _( b* I. _

  34. # _" \% i# N3 R/ R% ]- z
复制代码

+ c6 H, y+ K8 [# T) w
作者: 边缘_Michael    时间: 2014-2-17 21:35
醉心 发表于 2014-2-17 11:36
+ S, T( l% g1 v1 \2 |% M3 \& X用VB来写看看

8 a0 `6 t; u6 s. e) ^: `对VB不太熟，先学习着
作者: sxsongchen    时间: 2014-2-18 17:20
学习了，试试
作者: 边缘_Michael    时间: 2014-3-2 21:41
醉心 发表于 2014-2-17 11:36$ \+ Z$ H$ j/ }6 ^5 M. m) Z
用VB来写看看

* Y* i6 l; W2 w哈哈，测试成功了！谢谢！
: g' X3 a! {  r( T1 `4 B3 o# u* o; d9 A2 L1 V
公式里面的vb是不是调用的windows自带的vb scripts引擎，window有的，公式里都能用吧？



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