设为首页收藏本站

步步汇盈服务平台

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

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

[复制链接]
跳转到指定楼层
楼主
发表于 2014-2-15 14:08:20 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
计算公式时希望导出一些结算结果,以便用excel统计。3 T7 M2 Y$ @3 A- l8 z: Z
  x$ p) w" t* d8 p( W- Z
不知道现有公式函数里,有没有可以写文件的函数呢?( K' z) t( x1 H& f/ f  I! r
预先谢谢大牛们回答。' \  V9 V! J& b7 ^/ v4 g

! f0 D; o( Q/ ?' p
回复

使用道具 举报

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

使用道具 举报

板凳
 楼主| 发表于 2014-2-16 22:37:36 | 只看该作者
gc007 发表于 2014-2-16 11:00; e5 f& n0 y& \$ c2 m- ^1 s% Q! E
是同时计算公式的时候,输出数据到EXCEL吗?

& B0 W# [5 U- b& ~8 H3 Z9 T是的,就是这个意思。输出格式能灵活些更好。
回复 支持 反对

使用道具 举报

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

使用道具 举报

5#
发表于 2014-2-17 11:36:35 | 只看该作者
用VB来写看看2 o6 t# \7 A5 C/ }8 t! ~

$ m- ]+ b( ~) n0 L% |- Q' ~  p
  1. $ U1 v$ R& {6 o+ v3 }- J8 E. `
  2. $ Q+ a) l$ M" c5 i5 T! N; n) l- M
  3. if DATAPERIOD<>0 then
    1 ?  a7 r8 F+ t  Z; `
  4. begin5 |' D* t0 N5 G/ A* r7 D+ C* J% ]
  5. DRAWTEXT(BARPOS=SYSPARAM(2)+10,1,'本指标只能用于分笔分析');$ b; E1 t2 T2 D( L5 \6 N
  6. exit;; S, h. C% e' t, z) D0 h( j* I
  7. end;
    - J. q* e7 q; X
  8. " u4 N6 c4 s/ V+ R
  9. dd:=date;
    : k6 m. S* z0 D8 Q$ l4 U  p

  10. 5 x7 W  |8 R$ W7 p
  11. str:=NUMTOSTR(time,0)+';'+NUMTOSTR(v,0)+';'+NUMTOSTR(c,2);. }' Q: q5 [6 {5 ?+ |9 \7 b
  12. for i=25 to 36 do
    , b. C/ B; V$ n2 g& f
  13. begin$ i3 a; V- }7 O# H
  14. str:=str+';'+NUMTOSTR(DYNAINFO(i),2);
    9 M  V8 O2 @; T- |' O/ d8 {' [3 ~
  15. end;
    ; m& L. p) x! e. R; A* `5 i
  16. 1 h8 G( B) p) K% k, W
  17. <%
    * s/ Q8 k) l5 j+ ^
  18. vd1 = FFL.VarData("dd")9 u" W" ^) \6 w* `  Q9 E2 ]
  19. vd2 = FFL.VarData("str"). M* e; D0 I$ T& i; M7 K
  20. nFirst = FFL.VarStartIndex("dd") 4 W1 w" t& i$ j3 u- F. a
  21. , a+ H+ g, v9 R+ `& q
  22. Set fso=CreateObject("Scripting.FileSystemObject")
    5 g# B4 k( q0 l* a9 ~0 z' u
  23. fn ="D:/fhdata/"+cstr(vd1(nFirst))+"data.txt". i' {: ?. v7 f9 L! h7 j
  24. # O" M6 d' Y3 W5 ^' N$ ~3 O
  25. Set f1 = fso.OpenTextFile(fn,8,True)0 I% R+ J3 r6 a' Z
  26. f1.writeline vd2* \/ f% B7 H, J
  27. f1.close
    * a* u# B" @& z: n  k
  28. 0 G; A7 K) ]! v- u% Q" I3 U
  29. %>
    ) e9 m8 E; y! g: I- b  S  a
  30. 0 G8 P9 ]5 E! P, _
  31. aa:time;
    2 q! e. s, z) J! R1 \
  32. Show File Failed, [8 ^( p4 }1 @$ y, J

  33. 3 y+ S$ v3 A# m# ^7 }5 p) p6 ^7 [

  34. 3 a4 F/ R3 K1 E. l# V/ F# R+ d
复制代码

4 D9 f6 Z+ k( w. b8 F2 E) w
回复 支持 反对

使用道具 举报

6#
 楼主| 发表于 2014-2-17 21:35:39 | 只看该作者
醉心 发表于 2014-2-17 11:364 _1 D  v/ h8 V5 {3 o
用VB来写看看
; K( B0 ]- f7 E" ]8 F
对VB不太熟,先学习着
回复 支持 反对

使用道具 举报

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

使用道具 举报

8#
 楼主| 发表于 2014-3-2 21:41:15 | 只看该作者
醉心 发表于 2014-2-17 11:36' B* ?1 M: `# B* w1 Z$ N
用VB来写看看
6 Y2 C+ G# ~! K$ Y) S
哈哈,测试成功了!谢谢!) u8 ]5 A, r8 P5 E

% V1 e; b" B! k6 i公式里面的vb是不是调用的windows自带的vb scripts引擎,window有的,公式里都能用吧?
回复 支持 反对

使用道具 举报

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

本版积分规则

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

GMT+8, 2025-6-10 13:53 , Processed in 0.147072 second(s), 16 queries , Gzip On.

Powered by Discuz! X3.2

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

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