设为首页收藏本站

步步汇盈服务平台

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

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

[复制链接]
跳转到指定楼层
楼主
发表于 2014-2-15 14:08:20 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
计算公式时希望导出一些结算结果,以便用excel统计。
- {) W2 X' Y0 @
' c% @9 G. \' {( f0 C不知道现有公式函数里,有没有可以写文件的函数呢?
3 M# T, L! I! f% t/ e7 d预先谢谢大牛们回答。$ a" c. P/ B+ B+ p- r

3 U0 @, L8 x" }
回复

使用道具 举报

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

使用道具 举报

板凳
 楼主| 发表于 2014-2-16 22:37:36 | 只看该作者
gc007 发表于 2014-2-16 11:008 j6 V* V6 u& O1 S8 ^. d
是同时计算公式的时候,输出数据到EXCEL吗?
/ ~( Z$ L" i6 M' \4 J
是的,就是这个意思。输出格式能灵活些更好。
回复 支持 反对

使用道具 举报

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

使用道具 举报

5#
发表于 2014-2-17 11:36:35 | 只看该作者
用VB来写看看
  N5 _  J8 A4 k: j+ m( n* J
) V$ B) K/ O- D. F; \% n

  1. & Y- S! s' D3 [5 b' x) U8 C
  2. ' ]9 ^# x( c5 z  ^
  3. if DATAPERIOD<>0 then & R: R0 E) j4 X1 y+ v: U
  4. begin, D8 D& A8 k/ W/ s& Y5 [
  5. DRAWTEXT(BARPOS=SYSPARAM(2)+10,1,'本指标只能用于分笔分析');  a2 H6 E  [7 |0 _" t
  6. exit;
    7 w; T6 d- S! l% u6 o# A
  7. end;7 s1 P/ d2 o# o/ u
  8.   A( Q- Y$ U* \4 S1 {; v% v; b" K
  9. dd:=date;
      v, G8 X4 x1 k6 t; h& ]. c6 s

  10. ( M$ ?! p4 i+ j0 @8 A( }
  11. str:=NUMTOSTR(time,0)+';'+NUMTOSTR(v,0)+';'+NUMTOSTR(c,2);+ {- s2 \: C+ W8 ?4 z
  12. for i=25 to 36 do" _, N; n* Q8 }* [& o+ N0 _& C: \
  13. begin) i; N) ~' S' u' B% I
  14. str:=str+';'+NUMTOSTR(DYNAINFO(i),2);
    ; W' x4 _1 \8 O2 O
  15. end;; _2 d( _( c- _; k& G
  16. ( R& Y' L+ _, @& u: J+ C5 N6 o
  17. <%' ^& S8 f* {. ?( M, j
  18. vd1 = FFL.VarData("dd")
    $ K& \) U8 I7 K, i# R5 A4 P1 S
  19. vd2 = FFL.VarData("str")& Q2 ]. {0 P# }8 ^/ h7 a# k
  20. nFirst = FFL.VarStartIndex("dd")
    : _/ p! g) t& R9 k' g7 w9 f2 f8 ~& Q

  21. : o) v) q) }/ z/ }: q0 X
  22. Set fso=CreateObject("Scripting.FileSystemObject")
    ! h* A. ]* b% D+ V
  23. fn ="D:/fhdata/"+cstr(vd1(nFirst))+"data.txt"- i; [9 l. c( i: P' R/ P/ R& ?

  24. 2 w2 P7 h9 b: b* s
  25. Set f1 = fso.OpenTextFile(fn,8,True)) y7 W1 J; P; ~
  26. f1.writeline vd2
    ! y9 z1 j* ~0 N3 Z
  27. f1.close7 Z0 p4 J2 Y; a; B7 z% s' b

  28. $ n& e! a2 r! S* w
  29. %>
    % L, L4 N# m( M1 r+ |
  30. % V: Y& {0 }7 [/ D1 B
  31. aa:time;
    6 T4 T' u; _7 T
  32. Show File Failed
    ( g6 B% j# q5 E  U
  33. ' m! ]# Q+ Y' l6 N/ H6 C# M$ f: Z
  34. ) ^% I" R9 {* R5 Z3 n
复制代码

7 [; C( q7 w4 U! e
回复 支持 反对

使用道具 举报

6#
 楼主| 发表于 2014-2-17 21:35:39 | 只看该作者
醉心 发表于 2014-2-17 11:36/ j7 U6 N# x1 T9 |2 |; a3 L+ M
用VB来写看看

( k4 D; ~3 R: ^; S+ G3 N对VB不太熟,先学习着
回复 支持 反对

使用道具 举报

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

使用道具 举报

8#
 楼主| 发表于 2014-3-2 21:41:15 | 只看该作者
醉心 发表于 2014-2-17 11:36! K0 B, E  w+ ]! d1 R2 P. O+ ]
用VB来写看看
; p5 i2 b0 h7 d2 G- @1 l3 \5 V' p
哈哈,测试成功了!谢谢!
# v, B9 l8 r4 C4 G. P9 }) d6 V
) c2 s+ S5 P9 I- n" Z7 [公式里面的vb是不是调用的windows自带的vb scripts引擎,window有的,公式里都能用吧?
回复 支持 反对

使用道具 举报

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

本版积分规则

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

GMT+8, 2025-2-19 06:17 , Processed in 0.166081 second(s), 16 queries , Gzip On.

Powered by Discuz! X3.2

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

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