设为首页收藏本站

步步汇盈服务平台

 找回密码
 手机注册
搜索
查看: 3412|回复: 7
打印 上一主题 下一主题

[步步汇盈] 请问公式中有可以写文件的函数吗?

[复制链接]
跳转到指定楼层
楼主
发表于 2014-2-15 14:08:20 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
计算公式时希望导出一些结算结果,以便用excel统计。
0 M/ h5 l6 Q! d( b8 d+ D# a& \: S1 ?# U7 A' @0 c1 R# g
不知道现有公式函数里,有没有可以写文件的函数呢?. ~  M' X9 q2 |0 q
预先谢谢大牛们回答。
3 q5 t) m. c. z: ?" J. s
1 p+ _7 b( g& X6 }0 U/ o
回复

使用道具 举报

沙发
发表于 2014-2-16 11:00:07 | 只看该作者
是同时计算公式的时候,输出数据到EXCEL吗?
回复 支持 反对

使用道具 举报

板凳
 楼主| 发表于 2014-2-16 22:37:36 | 只看该作者
gc007 发表于 2014-2-16 11:00
' n  a6 r" y+ f4 C# H是同时计算公式的时候,输出数据到EXCEL吗?
  H& j0 g' i3 V- e% ?
是的,就是这个意思。输出格式能灵活些更好。
回复 支持 反对

使用道具 举报

地板
发表于 2014-2-17 00:45:04 | 只看该作者
同问,请版主大人指教
回复 支持 反对

使用道具 举报

5#
发表于 2014-2-17 11:36:35 | 只看该作者
用VB来写看看" g4 e0 Y8 z* R% a) I+ G) a
8 t- u, V# ]) i9 Q5 d2 P
  1. / S$ b; k8 O5 q0 v. ]

  2. 7 y! K; }/ Q, ?9 D8 R8 L
  3. if DATAPERIOD<>0 then
    ) B; u' t( Q4 I! L8 x4 Q5 \
  4. begin
    3 F: s# j: _7 d) d9 x# i$ l9 X4 @0 c
  5. DRAWTEXT(BARPOS=SYSPARAM(2)+10,1,'本指标只能用于分笔分析');
    ( ?  @9 f* \  ^9 O+ Z
  6. exit;8 z5 v  R8 M. o  e1 R& \; H! Y4 ~
  7. end;
    2 j2 o1 H* ^2 M. _

  8. ( n1 @8 J2 s- I' i+ l$ c: h
  9. dd:=date;
    8 G0 `" e% ~  V+ c% u
  10. 8 Z/ \2 u4 V$ d. C) X2 z) D! ?
  11. str:=NUMTOSTR(time,0)+';'+NUMTOSTR(v,0)+';'+NUMTOSTR(c,2);' ^7 m! `; ]1 D; G/ F
  12. for i=25 to 36 do. h8 D& I/ _" k. |3 D$ S7 x; e
  13. begin
    5 W3 I8 R$ y' k5 K- P) p
  14. str:=str+';'+NUMTOSTR(DYNAINFO(i),2);8 @: }5 t0 L4 i7 X
  15. end;
    4 a& |2 T* D* X$ D6 k7 {' d

  16. * p. q' |3 m2 M
  17. <%% [9 Z, y) ~9 ^& s" O$ d% K
  18. vd1 = FFL.VarData("dd")
    4 J( q- a0 a% R9 a/ T: R% {4 p; }
  19. vd2 = FFL.VarData("str")
    1 c+ q$ b1 O' J, U  _
  20. nFirst = FFL.VarStartIndex("dd")
    . x" J' p5 J3 l3 F; g1 F
  21. # m$ y  F+ b- r7 Y. ]
  22. Set fso=CreateObject("Scripting.FileSystemObject")6 f" F: j8 ]/ M; M3 Q& k
  23. fn ="D:/fhdata/"+cstr(vd1(nFirst))+"data.txt"( N" c; P0 a+ o) y) B
  24. / u8 n1 l7 d9 V! f* ?8 W% {3 S
  25. Set f1 = fso.OpenTextFile(fn,8,True)
    ' {/ B5 n3 z& A' j7 N9 a
  26. f1.writeline vd2
    . t' m- V9 U' }% v; W" ~
  27. f1.close, X, q; ?4 N! x0 R8 E/ H6 _) {

  28. . I( K. U  A; |0 j- Q5 @8 h. h) K
  29. %>/ o% t# W" ]; [  n7 ?
  30. , P  D! K) E* @
  31. aa:time;
    5 f- x8 o9 a" X2 O* X  x) o
  32. Show File Failed
    $ t$ T  H* p1 i! T5 |$ d" `

  33. $ R4 b; D  I) |: w- Z# V; l

  34. & h0 s" v5 n7 p5 t
复制代码

) p# r9 ^7 U" i  w: J1 r; u9 ^% q
回复 支持 反对

使用道具 举报

6#
 楼主| 发表于 2014-2-17 21:35:39 | 只看该作者
醉心 发表于 2014-2-17 11:36' j. i, R, o% A8 X+ V
用VB来写看看
9 b6 [2 D9 z+ ^" j5 Y/ \9 V
对VB不太熟,先学习着
回复 支持 反对

使用道具 举报

7#
发表于 2014-2-18 17:20:14 | 只看该作者
学习了,试试
回复 支持 反对

使用道具 举报

8#
 楼主| 发表于 2014-3-2 21:41:15 | 只看该作者
醉心 发表于 2014-2-17 11:36( H8 m* j5 F6 K3 T
用VB来写看看

! q7 H6 i8 c( q* _9 H9 f6 ?- O哈哈,测试成功了!谢谢!/ W; e. Q- L$ Y. y  n6 u" K& g
& j& c5 K& |1 B1 V% k* ?
公式里面的vb是不是调用的windows自带的vb scripts引擎,window有的,公式里都能用吧?
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 手机注册

本版积分规则

QQ|小黑屋|手机版|Archiver|步步汇盈 ( 冀ICP备13000772   

GMT+8, 2025-6-11 10:47 , Processed in 0.143694 second(s), 16 queries , Gzip On.

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc. 技术支持 by 巅峰设计.

快速回复 返回顶部 返回列表