设为首页收藏本站

步步汇盈

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

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

[复制链接]
跳转到指定楼层
楼主
发表于 2014-2-15 14:08:20 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
计算公式时希望导出一些结算结果,以便用excel统计。3 `# \1 y$ p- O4 T: U6 v6 L6 g

" e% Q3 i) U* @+ r/ k不知道现有公式函数里,有没有可以写文件的函数呢?
9 {0 u" k0 f. v3 l: G预先谢谢大牛们回答。
! X; f1 ]) |8 l
3 ]: |6 S* ]+ U
回复

使用道具 举报

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

使用道具 举报

板凳
 楼主| 发表于 2014-2-16 22:37:36 | 只看该作者
gc007 发表于 2014-2-16 11:00
5 j7 o2 M0 Z' V# f0 r/ K是同时计算公式的时候,输出数据到EXCEL吗?

! u& R# h/ h8 R, ^( T, ~是的,就是这个意思。输出格式能灵活些更好。
回复 支持 反对

使用道具 举报

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

使用道具 举报

5#
发表于 2014-2-17 11:36:35 | 只看该作者
用VB来写看看! q  K9 d6 s& S- @: Z# T7 r+ ~
' [) J# P) x- ]; _- b& G: ]( o# Y
  1. / q8 x, R+ B# T. o* t6 d7 Z5 }

  2. # ]+ F! M% ~( w' Z" U& E
  3. if DATAPERIOD<>0 then
    0 z: S  N8 h- o% e1 I! f
  4. begin$ c4 o/ w* U  v/ T" y# R2 Q
  5. DRAWTEXT(BARPOS=SYSPARAM(2)+10,1,'本指标只能用于分笔分析');$ [* B  U7 E5 I
  6. exit;- l% c- R3 j* N' J! U
  7. end;
    0 B  A5 q( @6 R6 \: E
  8. ) }0 |9 D7 O) n# l+ Q# [
  9. dd:=date;
    9 e2 o7 l5 p, u9 i/ M; N5 c
  10. ( e/ r% T0 c" C
  11. str:=NUMTOSTR(time,0)+';'+NUMTOSTR(v,0)+';'+NUMTOSTR(c,2);1 O! V5 J/ I5 U$ y% b) }
  12. for i=25 to 36 do5 q! k0 T. w9 c2 A% F/ B* o1 r& i
  13. begin
    8 d: D( ^2 h; }  P+ b& B' ^# E
  14. str:=str+';'+NUMTOSTR(DYNAINFO(i),2);/ F; J+ B! u+ S# F, s
  15. end;5 I, j% o, [: D6 e+ K) B
  16. 5 a$ ]; ?0 ?, l; Q* q6 k6 g4 z
  17. <%1 x: H! E7 l1 o
  18. vd1 = FFL.VarData("dd")+ j5 R. d% ]9 }
  19. vd2 = FFL.VarData("str")
    3 K+ h, {& X+ n
  20. nFirst = FFL.VarStartIndex("dd")
    * E# V, H" y; t7 B; \! p3 }; \

  21. 1 L, p* y/ A9 s/ h! |
  22. Set fso=CreateObject("Scripting.FileSystemObject")
    " M, X! F2 j. \5 n; e3 {( i0 P1 ^  l
  23. fn ="D:/fhdata/"+cstr(vd1(nFirst))+"data.txt"
    ! [  E* d9 |+ F. \8 i3 k

  24. : m! \1 _+ `. k) z8 X
  25. Set f1 = fso.OpenTextFile(fn,8,True): z% M7 _; C0 Q' v$ O" M' c
  26. f1.writeline vd2
    + x" U* P: a- \$ l' R
  27. f1.close' h0 [9 E0 V* B. F

  28. 3 T) G: S' L, F8 \( b
  29. %>& L8 S8 S/ N& u: U& I

  30. ) V4 {5 o, s6 Z" I6 }' [) |7 o
  31. aa:time;
    , g+ A6 r* y( S# B- R& V7 v; l: P: \
  32. Show File Failed' y% E) y9 y% z' H, O8 L# v8 {# b

  33. 0 }6 ^0 i( Q' F; K: w9 _/ O

  34. - E5 V& t2 V1 e* G
复制代码

& r# V) X0 H! ?
回复 支持 反对

使用道具 举报

6#
 楼主| 发表于 2014-2-17 21:35:39 | 只看该作者
醉心 发表于 2014-2-17 11:36( M4 i! h$ d* N
用VB来写看看

& l- l4 h: {0 u对VB不太熟,先学习着
回复 支持 反对

使用道具 举报

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

使用道具 举报

8#
 楼主| 发表于 2014-3-2 21:41:15 | 只看该作者
醉心 发表于 2014-2-17 11:36
2 H* }: [0 w+ I! a$ o$ A: b用VB来写看看
* u# z6 d* A. Z
哈哈,测试成功了!谢谢!9 E' b- _! d8 y  ]4 V
5 F# ?2 O3 n5 A- [8 \$ g
公式里面的vb是不是调用的windows自带的vb scripts引擎,window有的,公式里都能用吧?
回复 支持 反对

使用道具 举报

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

本版积分规则

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

GMT+8, 2025-10-6 03:29 , Processed in 0.265141 second(s), 16 queries , Gzip On.

Powered by Discuz! X3.2

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

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