步步汇盈

标题: 请问公式中有可以写文件的函数吗？ [打印本页]
作者: 边缘_Michael    时间: 2014-2-15 14:08
标题: 请问公式中有可以写文件的函数吗？
计算公式时希望导出一些结算结果，以便用excel统计。: X! M- }8 \3 ?) m$ d% h
: \6 H4 y8 s: |. V0 c& V
不知道现有公式函数里，有没有可以写文件的函数呢？
2 K. |3 m! I! K$ q# F预先谢谢大牛们回答。" @! Q0 }7 `6 l7 a; b4 V, {# T$ z
. z. H. ]8 ?# j# q4 O$ J, k4 N
作者: gc007    时间: 2014-2-16 11:00
是同时计算公式的时候，输出数据到EXCEL吗？
作者: 边缘_Michael    时间: 2014-2-16 22:37
gc007 发表于 2014-2-16 11:002 J- c# _$ L1 l1 k: w
是同时计算公式的时候，输出数据到EXCEL吗？
1 J0 A/ i$ L5 g9 W
是的，就是这个意思。输出格式能灵活些更好。
作者: mccs    时间: 2014-2-17 00:45
同问，请版主大人指教
作者: 醉心    时间: 2014-2-17 11:36
用VB来写看看) m" r5 p2 s% n
4 O% \1 p0 a8 J; ~( V  H; e3 F: g$ X

  1. $ V) D; r; ^9 ~4 E
  2. ; e, {3 Q" y! P
  3. if DATAPERIOD<>0 then
    , ?, x2 L$ L4 V4 A' f! l0 B/ a( c
  4. begin: I* m$ B' g9 N4 D4 l
  5. DRAWTEXT(BARPOS=SYSPARAM(2)+10,1,'本指标只能用于分笔分析');
    5 W: f: S, h" T2 W0 |; N; `
  6. exit;
    & v) q' p) |! _* X4 l
  7. end;1 \" f: N& V* c6 r- z) [
  8. / w( L8 [. e" ?% b5 j* P
  9. dd:=date;. L; G8 [- ]0 S0 y/ K# O) A* _

  10. / k9 B, y0 g% U/ x' d) v& O
  11. str:=NUMTOSTR(time,0)+';'+NUMTOSTR(v,0)+';'+NUMTOSTR(c,2);+ E6 W3 Y- r5 b# K3 ^
  12. for i=25 to 36 do
    ' M3 x4 _3 i; G7 ^0 E+ M% Z1 r7 T
  13. begin) x2 U6 R9 d' S% q, ~( x/ S" u
  14. str:=str+';'+NUMTOSTR(DYNAINFO(i),2);6 M$ S* x+ q2 @
  15. end;
    : r6 X5 h" u4 |
  16. 0 C5 `' M$ i! d/ [! R  c7 v7 X
  17. <%  p* A& |  r* p
  18. vd1 = FFL.VarData("dd")+ R* S, j0 [, X, W* z4 P; K! _
  19. vd2 = FFL.VarData("str")- l7 u! W# M4 V: @
  20. nFirst = FFL.VarStartIndex("dd")
    ; G6 S% ]' V5 Z  [/ `4 `

  21. " I- ^8 b5 T+ \0 E! H/ P
  22. Set fso=CreateObject("Scripting.FileSystemObject")- Y5 N0 R1 _" q8 c& ]- ~
  23. fn ="D:/fhdata/"+cstr(vd1(nFirst))+"data.txt"
    0 M; h+ P" L  [7 H/ _

  24. ; ^6 m. g8 n7 M; ~( I' e
  25. Set f1 = fso.OpenTextFile(fn,8,True)9 K8 e: q3 t6 ?1 _6 K: V/ g3 @% H
  26. f1.writeline vd21 {- k+ r3 O' q
  27. f1.close4 m8 h$ c% g" A. g  y% {

  28. 0 l& C- r% g3 x
  29. %>
    : M9 Y) _4 I$ r

  30. 8 f" L2 k# m2 B2 i! \% a6 G
  31. aa:time;9 }( o# `* I7 m7 x" a- g6 A) V
  32. Show File Failed
    9 P* W8 `( U% o+ e+ k9 d# M: i
  33. 7 f1 K% z9 ^0 i$ E8 A

  34. " i9 p: w6 c- n  y
复制代码
. X  m+ T0 `0 Z/ n( r
作者: 边缘_Michael    时间: 2014-2-17 21:35
醉心 发表于 2014-2-17 11:36
4 x# F: A, H( i3 O; B9 W6 z用VB来写看看

) r* ~! Z) b& V- n1 ?4 T: J9 d: C对VB不太熟，先学习着
作者: sxsongchen    时间: 2014-2-18 17:20
学习了，试试
作者: 边缘_Michael    时间: 2014-3-2 21:41
醉心 发表于 2014-2-17 11:36& a! D9 X5 @: b  r& o, H
用VB来写看看

$ R1 ^+ T  C) W( g  _哈哈，测试成功了！谢谢！
4 Y$ w3 U' w* S/ M, {( r  g* y3 T) U
公式里面的vb是不是调用的windows自带的vb scripts引擎，window有的，公式里都能用吧？



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