步步汇盈

标题: 请问公式中有可以写文件的函数吗？ [打印本页]
作者: 边缘_Michael    时间: 2014-2-15 14:08
标题: 请问公式中有可以写文件的函数吗？
计算公式时希望导出一些结算结果，以便用excel统计。
( M5 |; O9 A% w( Q* J! y
$ g: D3 D( b1 M7 e不知道现有公式函数里，有没有可以写文件的函数呢？
* H1 @* _2 z) L% |( P预先谢谢大牛们回答。: k. P, u2 K+ \( g! |
- n) n6 M' X) l! \  h/ P
作者: gc007    时间: 2014-2-16 11:00
是同时计算公式的时候，输出数据到EXCEL吗？
作者: 边缘_Michael    时间: 2014-2-16 22:37
gc007 发表于 2014-2-16 11:00( T# ~( ?% h6 U2 Z8 @2 e. d
是同时计算公式的时候，输出数据到EXCEL吗？
5 H$ p. a, b1 E, L9 B' A
是的，就是这个意思。输出格式能灵活些更好。
作者: mccs    时间: 2014-2-17 00:45
同问，请版主大人指教
作者: 醉心    时间: 2014-2-17 11:36
用VB来写看看5 T7 i* L' n6 G, J

% {2 O, ]7 ^* Q) ?
  1. 8 x- @' o% h+ K" C- R( C$ g

  2. 6 y4 s$ V( T( a4 ^, Y7 X
  3. if DATAPERIOD<>0 then 3 a* x4 B! T/ \. H0 k& a
  4. begin
    ! }8 x2 b+ I; F& D2 `% @4 H3 r. \# h
  5. DRAWTEXT(BARPOS=SYSPARAM(2)+10,1,'本指标只能用于分笔分析');. v$ Q( c) ^# x% X
  6. exit;
    , d+ a8 O9 Q- M1 k& B
  7. end;
    4 K, ?+ M) P  m5 E2 Z/ R/ E: |. L; ^

  8. 8 q0 y6 N; J8 n4 T5 C6 z. e
  9. dd:=date;
    3 [7 S0 K9 H. \! _" u

  10. 1 M% P' P" ~" h9 W8 K4 H" h
  11. str:=NUMTOSTR(time,0)+';'+NUMTOSTR(v,0)+';'+NUMTOSTR(c,2);- ^# k& ^  g& y- L
  12. for i=25 to 36 do
    5 ]& }: N# _0 ]) D4 v8 x
  13. begin
    / a  g& @4 J: H: ~, F% p
  14. str:=str+';'+NUMTOSTR(DYNAINFO(i),2);
    * q! p3 Y6 e2 U
  15. end;
    & A# d& s; P$ z+ i7 x3 V

  16. % u4 U9 N: \2 L! G9 E  R
  17. <%
    # q  C: N# B/ h/ k* O% h$ E* ]; o
  18. vd1 = FFL.VarData("dd")
    ( e+ R+ h) X4 }6 ~) s& S3 A3 t
  19. vd2 = FFL.VarData("str"): {" Z% S0 w+ e+ Q
  20. nFirst = FFL.VarStartIndex("dd") % {9 k4 Y, U0 ^9 z' J! I
  21. 0 c' \7 R  v) V+ O/ q& v
  22. Set fso=CreateObject("Scripting.FileSystemObject")! \: F! r8 b$ L# V
  23. fn ="D:/fhdata/"+cstr(vd1(nFirst))+"data.txt"& P* h+ e) O& ~" ~% ~; u! Z0 {( ~
  24. 8 Y/ N7 @# p, s2 @9 R5 S
  25. Set f1 = fso.OpenTextFile(fn,8,True)
    / T; u; E( @; F  f9 g
  26. f1.writeline vd2
    # D. Z8 H3 @! X0 W6 z
  27. f1.close
    . D. D/ d; f1 H

  28. . S/ [$ {# J  E. f" v
  29. %>
    5 H- d5 J9 E; w# y8 x. E9 w# K/ [
  30. $ i3 d( m: S  w
  31. aa:time;+ b. S% V+ ]' x$ V5 v( b
  32. Show File Failed) p% S4 }# F/ S/ W- d; T; Z

  33. 8 f) S! W6 ^( s* a% |

  34. + t" F8 k! p4 F7 U7 i/ X( e) i
复制代码

/ v% }8 R0 c( K
作者: 边缘_Michael    时间: 2014-2-17 21:35
醉心 发表于 2014-2-17 11:36* P2 O$ `3 T$ a- Z
用VB来写看看
; c! X2 U* o+ B6 l. g7 a; ]" e5 w
对VB不太熟，先学习着
作者: sxsongchen    时间: 2014-2-18 17:20
学习了，试试
作者: 边缘_Michael    时间: 2014-3-2 21:41
醉心 发表于 2014-2-17 11:36
! f" _8 I) A6 S6 m用VB来写看看
2 d1 r/ t2 T/ ?% ?% G
哈哈，测试成功了！谢谢！
8 p8 n9 w) g1 ^  V! L
& J& l$ i' y. K- f. a% z/ B: n公式里面的vb是不是调用的windows自带的vb scripts引擎，window有的，公式里都能用吧？



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