步步汇盈

标题: 请问公式中有可以写文件的函数吗？ [打印本页]
作者: 边缘_Michael    时间: 2014-2-15 14:08
标题: 请问公式中有可以写文件的函数吗？
计算公式时希望导出一些结算结果，以便用excel统计。2 F1 \  D- H1 q- ]
$ |# z( C6 b2 Z  d4 L
不知道现有公式函数里，有没有可以写文件的函数呢？
6 l7 w9 {: g' X预先谢谢大牛们回答。
5 r* n, p! ~( K$ [# T& S/ R$ u4 h5 c) g. H6 C3 ?5 P
作者: gc007    时间: 2014-2-16 11:00
是同时计算公式的时候，输出数据到EXCEL吗？
作者: 边缘_Michael    时间: 2014-2-16 22:37
gc007 发表于 2014-2-16 11:00
( B6 A& c' n3 s是同时计算公式的时候，输出数据到EXCEL吗？
7 [& q' F9 h) J" c- x. H+ A2 s
是的，就是这个意思。输出格式能灵活些更好。
作者: mccs    时间: 2014-2-17 00:45
同问，请版主大人指教
作者: 醉心    时间: 2014-2-17 11:36
用VB来写看看
3 Y5 r: U. ], |5 k1 Q: A6 o: g) |' R  b! _) ~- }+ N8 h

  1. " {- k; s! P- z$ M& k$ X' j

  2. 5 J3 L) C0 _- m
  3. if DATAPERIOD<>0 then
    1 R( R9 @+ E3 @1 c, c
  4. begin
      D- p6 ?* ~( y. R2 f
  5. DRAWTEXT(BARPOS=SYSPARAM(2)+10,1,'本指标只能用于分笔分析');
    ) v/ k( F9 G6 R7 y6 P$ L0 g3 G
  6. exit;: ]' t# G$ ]2 S+ Z, ?
  7. end;$ r/ m9 |( e, |, S7 M+ J
  8. ! S' t& J' Z( y. Z+ F  M6 \- [
  9. dd:=date;2 z9 l% R  s: O# b3 }; `
  10. 4 k8 n8 }1 x/ U9 X7 w! {
  11. str:=NUMTOSTR(time,0)+';'+NUMTOSTR(v,0)+';'+NUMTOSTR(c,2);
    3 |0 B  p8 T( P* {
  12. for i=25 to 36 do
    * r+ Q: V  g6 u' Z0 P
  13. begin$ d7 U; o4 k! r- ]( s
  14. str:=str+';'+NUMTOSTR(DYNAINFO(i),2);" W3 m( Y# i$ p% o
  15. end;
    $ ~9 h8 p" j+ n7 B4 `  P0 u
  16.   m+ C& k; T' y% ^1 W: Y' v: G
  17. <%
    . t+ V& F4 t4 ^/ p; o& \: h* S  D
  18. vd1 = FFL.VarData("dd")( m2 e9 Z! _/ o0 Q6 j
  19. vd2 = FFL.VarData("str")  y7 y- Z- Z/ ]2 i5 ?" W0 I0 i
  20. nFirst = FFL.VarStartIndex("dd")
    ; K- c: O- |1 H& K" u
  21. 5 e) V  x: F( q1 i
  22. Set fso=CreateObject("Scripting.FileSystemObject")
    + o7 e: o4 W% U2 S
  23. fn ="D:/fhdata/"+cstr(vd1(nFirst))+"data.txt"$ s; ^$ v+ m' u0 Z2 C

  24. * M; G! V( ~7 u
  25. Set f1 = fso.OpenTextFile(fn,8,True)
    $ Y) y9 G& I2 W' I# j! L, L! M6 w
  26. f1.writeline vd2
    7 `( I! i7 u% l2 r
  27. f1.close* o, g9 T% [+ z8 ^/ d8 [* M

  28. 7 l$ a" L  [6 x3 U' o
  29. %>
    $ M" i3 \2 p% U$ p' h
  30. " Y3 K+ b0 G& ^6 y# B
  31. aa:time;) _# k8 u7 [; c0 e& l
  32. Show File Failed
    , y5 N  t8 [8 `; _
  33. 3 p) }5 \* x- L1 |
  34. : ~4 ?% D* m% u; f: }* e
复制代码

( H' L# [! t5 t/ }$ k
作者: 边缘_Michael    时间: 2014-2-17 21:35
醉心 发表于 2014-2-17 11:36  t  d0 {2 s- S* o4 D
用VB来写看看
: q4 h. v- [1 N# m. U5 l
对VB不太熟，先学习着
作者: sxsongchen    时间: 2014-2-18 17:20
学习了，试试
作者: 边缘_Michael    时间: 2014-3-2 21:41
醉心 发表于 2014-2-17 11:36% ~+ f2 {' v% Q2 S) m# K
用VB来写看看
1 j/ a2 f: r- d% I, W2 `
哈哈，测试成功了！谢谢！$ n7 [, N3 }0 \/ @: R8 G9 l8 F4 X
0 l$ F1 ^. V/ M4 }
公式里面的vb是不是调用的windows自带的vb scripts引擎，window有的，公式里都能用吧？



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