设为首页收藏本站

步步汇盈服务平台

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

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

[复制链接]
跳转到指定楼层
楼主
发表于 2014-2-15 14:08:20 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
计算公式时希望导出一些结算结果,以便用excel统计。% T, [8 R1 ^( w! X
) {% q* N- S; m# t* `3 T
不知道现有公式函数里,有没有可以写文件的函数呢?$ H' x' M& u: a$ A+ _1 g. _
预先谢谢大牛们回答。
9 ]- Z$ ?$ F+ w+ K2 h* w3 \' ?) R+ X* Z2 k7 L0 P
回复

使用道具 举报

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

使用道具 举报

板凳
 楼主| 发表于 2014-2-16 22:37:36 | 只看该作者
gc007 发表于 2014-2-16 11:008 `" @2 p' d6 y$ }- O" V
是同时计算公式的时候,输出数据到EXCEL吗?
* A: W  S1 Y+ g( [% |+ [  U- f
是的,就是这个意思。输出格式能灵活些更好。
回复 支持 反对

使用道具 举报

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

使用道具 举报

5#
发表于 2014-2-17 11:36:35 | 只看该作者
用VB来写看看
0 ~; `$ }- U* ~/ f: m& f% g+ Y- I! d; V1 H4 n1 s0 E& L4 ?# J
  1. # w* x' T: j3 }9 B
  2. 9 ?; l5 \& W2 \. r( b
  3. if DATAPERIOD<>0 then
    . Y! a6 A1 w5 a* |
  4. begin8 x* N9 h- M7 [, ~. J
  5. DRAWTEXT(BARPOS=SYSPARAM(2)+10,1,'本指标只能用于分笔分析');
      V8 _- X! m) U: W8 \5 r6 v0 ~! y
  6. exit;: a: I' E8 q1 X' p
  7. end;
    6 v" u2 Y6 V, T' x
  8. ( p# ~* e+ v( }+ y( f
  9. dd:=date;$ V3 K+ s# d- {
  10. % y8 T" n+ E* D* D  {/ {0 ?1 p) E
  11. str:=NUMTOSTR(time,0)+';'+NUMTOSTR(v,0)+';'+NUMTOSTR(c,2);
    7 V% Z' a6 u# P
  12. for i=25 to 36 do8 Y, f9 T8 R) N
  13. begin9 s0 F$ P) [& S1 v& {
  14. str:=str+';'+NUMTOSTR(DYNAINFO(i),2);; i. @0 X6 ~7 b1 S- F
  15. end;
    ' a4 r4 [& ^6 n0 W+ k
  16. + ?8 f9 U) X- t/ r# B% |1 s: `
  17. <%& e: h/ ^; W$ f9 O
  18. vd1 = FFL.VarData("dd")
    8 W3 a- s. `8 \; R& u2 W3 d
  19. vd2 = FFL.VarData("str")
    " |& X( I( }) M) n% V8 s- A
  20. nFirst = FFL.VarStartIndex("dd") % h% ^6 D$ o1 y9 A2 \& I. ^* B9 w
  21. 2 I) f% g8 Z+ u, O
  22. Set fso=CreateObject("Scripting.FileSystemObject")
    ( G/ f2 m2 [% R# a
  23. fn ="D:/fhdata/"+cstr(vd1(nFirst))+"data.txt"
    ! ~0 M, c4 H% w& Q0 v
  24. , T6 }9 J& z/ o1 l0 S, ?
  25. Set f1 = fso.OpenTextFile(fn,8,True)6 ~4 f% V7 c( O6 I
  26. f1.writeline vd2
    - A. V6 C$ L, `( w: Q4 k9 r# z
  27. f1.close
    8 F  ^/ D& f+ x& U

  28. / `* g& i2 k1 w. B! y4 x  E0 k" A/ N
  29. %>7 s: P- q6 G$ w* S8 v1 J

  30. # V. \, V) h" g2 @* N1 h
  31. aa:time;
    ) f# b: p# V4 x6 l
  32. Show File Failed, r; l* @: {4 t) ^

  33. " u% Q3 ?4 d0 v; \" [/ C

  34. 3 A2 W* N8 |$ ?. J
复制代码

  |- w! _+ x% p7 s( ^! {
回复 支持 反对

使用道具 举报

6#
 楼主| 发表于 2014-2-17 21:35:39 | 只看该作者
醉心 发表于 2014-2-17 11:36
5 S. }4 j0 g: d+ G用VB来写看看

) t) T0 r- T! |4 R! f$ a对VB不太熟,先学习着
回复 支持 反对

使用道具 举报

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

使用道具 举报

8#
 楼主| 发表于 2014-3-2 21:41:15 | 只看该作者
醉心 发表于 2014-2-17 11:36
( o/ U8 C. P6 M+ P" R用VB来写看看
* F' w6 \8 _& Z4 w$ v$ t; X0 ~& n5 P8 s8 T
哈哈,测试成功了!谢谢!
  t3 ~1 M3 k6 }$ k% x# I/ x
. U; [2 n3 N- a$ i7 i! o公式里面的vb是不是调用的windows自带的vb scripts引擎,window有的,公式里都能用吧?
回复 支持 反对

使用道具 举报

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

本版积分规则

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

GMT+8, 2025-6-12 11:59 , Processed in 0.151586 second(s), 17 queries , Gzip On.

Powered by Discuz! X3.2

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

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