设为首页收藏本站

步步汇盈服务平台

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

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

[复制链接]
跳转到指定楼层
楼主
发表于 2014-2-15 14:08:20 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
计算公式时希望导出一些结算结果,以便用excel统计。
2 c# G3 r2 y' P4 w" j2 e9 g2 D' j, a
: |, J8 v. N  X- N不知道现有公式函数里,有没有可以写文件的函数呢?
4 O, X9 n& ]3 @7 C8 }2 [预先谢谢大牛们回答。& F" v9 `$ t7 q' G" k( O) |% \

- Q9 J4 g7 c3 T* ^% X4 j& u
回复

使用道具 举报

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

使用道具 举报

板凳
 楼主| 发表于 2014-2-16 22:37:36 | 只看该作者
gc007 发表于 2014-2-16 11:00, A: P# {, [- K# S
是同时计算公式的时候,输出数据到EXCEL吗?
/ c: _) q( p: n% L; v& n
是的,就是这个意思。输出格式能灵活些更好。
回复 支持 反对

使用道具 举报

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

使用道具 举报

5#
发表于 2014-2-17 11:36:35 | 只看该作者
用VB来写看看" ^/ S  [$ d/ I

. `( y, K# Z  u8 G

  1. 9 s" s8 m, R9 B( E! A

  2. # a$ q$ j9 h7 [" ?, H4 t) c# C* Z
  3. if DATAPERIOD<>0 then
    $ J% r' P% n' |! d
  4. begin
    ) m, c: ]4 h1 U1 s* Y3 c2 M
  5. DRAWTEXT(BARPOS=SYSPARAM(2)+10,1,'本指标只能用于分笔分析');
    & V; e$ \) M+ ]
  6. exit;2 n, ~8 o, Y" p( L2 G
  7. end;4 V2 Y% {) G& V2 d1 N

  8. # ^1 E5 e6 `9 J" z0 I6 u
  9. dd:=date;
    8 g4 s. ^9 G1 d6 ?9 b0 I: Y
  10. $ j( }  t1 `5 Q/ |6 o
  11. str:=NUMTOSTR(time,0)+';'+NUMTOSTR(v,0)+';'+NUMTOSTR(c,2);8 g" w( L0 Q+ v6 ~% N$ p# j8 ^3 T
  12. for i=25 to 36 do: z! v4 s9 v% l9 k
  13. begin+ Q* n9 a) m5 n* _; ~- r* n5 Q
  14. str:=str+';'+NUMTOSTR(DYNAINFO(i),2);; e9 {3 U8 i' t0 h4 m! C$ C" G$ V- w
  15. end;
    ( y1 ]4 q# ?$ o7 G/ W- r
  16. : C' _( m+ c/ B
  17. <%
    8 D9 S3 W% [' Z7 G
  18. vd1 = FFL.VarData("dd")$ R1 w( }+ N4 \  |' V# w
  19. vd2 = FFL.VarData("str")
    ; u+ u9 r1 h  @9 }
  20. nFirst = FFL.VarStartIndex("dd")
    3 t+ @: I$ M- i) U4 A
  21.   _* E9 d! Z5 |- m
  22. Set fso=CreateObject("Scripting.FileSystemObject")
    5 H+ r3 x% g( m) r5 o
  23. fn ="D:/fhdata/"+cstr(vd1(nFirst))+"data.txt"5 d8 f0 t  C1 k( u/ N0 U: E( t

  24. / z- n' G" o; i) ?1 G" W3 f
  25. Set f1 = fso.OpenTextFile(fn,8,True)5 X; I! p* n' ~" o: Z. l) m
  26. f1.writeline vd20 j9 n3 T8 q$ Z+ D9 F9 g! f; @, E
  27. f1.close
    ) m% n4 e: V" W$ l# I. x& X1 p  g
  28. $ a- n; T$ w' r+ D! n/ H0 n
  29. %>- z/ e9 L4 ?* [4 O, [& m5 T0 V; {
  30. 1 V: M8 W8 k3 v0 U* g2 o; h9 u
  31. aa:time;9 t9 ]  U9 S, R) i
  32. Show File Failed: g. F  Q2 ^$ }4 o# O( b/ B$ _
  33. ; \, q) I  X: G# k3 q& s/ I
  34. 0 o6 q9 {8 f9 G: B2 R' g
复制代码
/ |* \. X& s3 s6 ~0 F" S4 H
回复 支持 反对

使用道具 举报

6#
 楼主| 发表于 2014-2-17 21:35:39 | 只看该作者
醉心 发表于 2014-2-17 11:36! Y5 ~9 b! X# N. \. A% R9 ]
用VB来写看看

  \' a$ `' ?" ^对VB不太熟,先学习着
回复 支持 反对

使用道具 举报

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

使用道具 举报

8#
 楼主| 发表于 2014-3-2 21:41:15 | 只看该作者
醉心 发表于 2014-2-17 11:36
/ I9 }+ }' \- a9 o用VB来写看看
1 \. [* J8 h7 m
哈哈,测试成功了!谢谢!3 @* X. m1 }/ c! a4 i; b, d+ X6 f; j

2 l# ~. e; H2 c* s公式里面的vb是不是调用的windows自带的vb scripts引擎,window有的,公式里都能用吧?
回复 支持 反对

使用道具 举报

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

本版积分规则

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

GMT+8, 2025-2-19 07:00 , Processed in 0.196308 second(s), 24 queries , Gzip On.

Powered by Discuz! X3.2

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

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