设为首页收藏本站

步步汇盈

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

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

[复制链接]
跳转到指定楼层
楼主
发表于 2014-2-15 14:08:20 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
计算公式时希望导出一些结算结果,以便用excel统计。
. {, g1 T3 a# w2 n8 Q! V5 n6 E6 \* ]0 k( W5 B8 @! b" |* y
不知道现有公式函数里,有没有可以写文件的函数呢?. a- ~: \* ]6 U* l3 d- P
预先谢谢大牛们回答。
* ~1 l/ `5 f, [$ S. {' E* Z7 F" W/ F  q' X3 ^7 t0 s
回复

使用道具 举报

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

使用道具 举报

板凳
 楼主| 发表于 2014-2-16 22:37:36 | 只看该作者
gc007 发表于 2014-2-16 11:00! i3 x% W% C  }* H. w4 b
是同时计算公式的时候,输出数据到EXCEL吗?
$ h1 Y$ a1 B$ _" n/ m5 w2 G4 n/ `6 h
是的,就是这个意思。输出格式能灵活些更好。
回复 支持 反对

使用道具 举报

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

使用道具 举报

5#
发表于 2014-2-17 11:36:35 | 只看该作者
用VB来写看看
  k( v; a8 ~8 E
! x4 l7 i7 p8 P: ^) \/ t# ~* Y
  1. 9 y8 O& B' w) [" v6 b6 d; i; x& T
  2. 5 K) |- s8 w$ n/ a7 m% F- |5 A' |8 t; q
  3. if DATAPERIOD<>0 then
    # W6 s+ \! v6 \5 h0 Q) o1 I
  4. begin% o8 C* ^4 j$ z& t4 `5 C
  5. DRAWTEXT(BARPOS=SYSPARAM(2)+10,1,'本指标只能用于分笔分析');
      h/ Y: V: d! Z1 U
  6. exit;, K) U, t) z/ z8 i1 f, o% u0 z
  7. end;/ Z. B6 e) F4 c/ x7 s6 g

  8. & }0 ]0 q1 q/ d/ _4 S( G$ m6 e
  9. dd:=date;
      x( B  ?9 X: C3 A- |
  10. ; ~- c* `9 M  o2 o+ ?5 d3 u3 x
  11. str:=NUMTOSTR(time,0)+';'+NUMTOSTR(v,0)+';'+NUMTOSTR(c,2);! j. C: R( N0 V  K; O0 W
  12. for i=25 to 36 do7 M; A1 ]$ x  E" x% ~) V* N* {
  13. begin
    + p% _7 U- G9 ~; T; M3 T
  14. str:=str+';'+NUMTOSTR(DYNAINFO(i),2);+ m6 Q% p: p/ x$ j" P2 H  |- _
  15. end;; F; M6 n. [! J! H' \
  16. $ d, z/ h; w# i+ w
  17. <%- Z  \- x' U% M; N" x4 z' Z
  18. vd1 = FFL.VarData("dd")5 H2 J. }" c4 B5 R( d5 y$ J2 R" V
  19. vd2 = FFL.VarData("str")/ E  J# |$ ?! @, W5 G' @
  20. nFirst = FFL.VarStartIndex("dd") * E. M- R. q2 z
  21. 9 F* w# k: q8 y# M, \  m1 ]# U; j
  22. Set fso=CreateObject("Scripting.FileSystemObject")
    6 C+ d4 b4 u! {- x6 z, J
  23. fn ="D:/fhdata/"+cstr(vd1(nFirst))+"data.txt"
    3 ]/ m- [0 g4 ~% n
  24. 7 u" c( N5 Y. V0 Z6 j& [% ^8 g' P
  25. Set f1 = fso.OpenTextFile(fn,8,True)* h2 j9 j+ T. L( W# \' ~8 t. V# S0 M* ]
  26. f1.writeline vd2
      g. d# i* H/ o  `* a
  27. f1.close% J/ _9 _: S8 v7 r

  28. . m) t8 t; m! C1 C+ |4 x9 i' Y
  29. %>/ w* L# ]& b  P* ~  R' f: q- A2 r
  30. 4 o2 C7 O; b( h. I- B9 \! \
  31. aa:time;
    6 a* P6 N6 t& l4 ]* }1 x
  32. Show File Failed+ ]2 `# c# n6 x. k5 M5 I

  33. / k) B2 G( w3 W

  34. + E, R: u* i: a6 z
复制代码

9 _+ Y6 w# Z) e/ U' a
回复 支持 反对

使用道具 举报

6#
 楼主| 发表于 2014-2-17 21:35:39 | 只看该作者
醉心 发表于 2014-2-17 11:36: m( {; j* y$ J; G' S
用VB来写看看
( J# t0 }0 R! N/ C+ v6 ?* h
对VB不太熟,先学习着
回复 支持 反对

使用道具 举报

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

使用道具 举报

8#
 楼主| 发表于 2014-3-2 21:41:15 | 只看该作者
醉心 发表于 2014-2-17 11:36" g' Q7 c/ C' |& X) E9 [) A8 J# ~
用VB来写看看

, H7 @' F! ^1 S. k* z9 A0 A哈哈,测试成功了!谢谢!3 P; y- C" z& o& y( `6 y4 j
$ d( }( h4 q+ N  g
公式里面的vb是不是调用的windows自带的vb scripts引擎,window有的,公式里都能用吧?
回复 支持 反对

使用道具 举报

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

本版积分规则

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

GMT+8, 2026-2-4 16:01 , Processed in 0.162499 second(s), 16 queries , Gzip On.

Powered by Discuz! X3.2

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

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