设为首页收藏本站

步步汇盈服务平台

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

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

[复制链接]
跳转到指定楼层
楼主
发表于 2014-2-15 14:08:20 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
计算公式时希望导出一些结算结果,以便用excel统计。7 C, l5 @" t+ |% `6 P( ]4 r
% J, p; K% X7 }5 f0 n
不知道现有公式函数里,有没有可以写文件的函数呢?1 z# z3 d9 t! j' |: t
预先谢谢大牛们回答。/ }4 X+ v* _( T6 S5 u2 V/ D

: {6 r. e4 i/ C8 N8 X
回复

使用道具 举报

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

使用道具 举报

板凳
 楼主| 发表于 2014-2-16 22:37:36 | 只看该作者
gc007 发表于 2014-2-16 11:00
) |3 u6 s1 i! f9 \, t7 L7 W1 F" v是同时计算公式的时候,输出数据到EXCEL吗?

& Y7 e# Z( M8 z& {是的,就是这个意思。输出格式能灵活些更好。
回复 支持 反对

使用道具 举报

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

使用道具 举报

5#
发表于 2014-2-17 11:36:35 | 只看该作者
用VB来写看看
. P; _" @, ^4 `' V$ }/ |9 f! z4 l3 b' \/ P& `: @

  1. & v4 f7 q6 M9 L& W
  2. 7 R( E/ M: l5 D9 {- z
  3. if DATAPERIOD<>0 then 3 w% H& D* g) [1 h2 t
  4. begin
    ( T  W2 |1 z6 a8 ~# g- u' f1 p
  5. DRAWTEXT(BARPOS=SYSPARAM(2)+10,1,'本指标只能用于分笔分析');
    4 d! t2 p9 G' x, G4 {! Y4 D
  6. exit;2 S! T5 y9 h( I; e: F" h! ]
  7. end;( H* B  X; U$ G9 c3 Q  W0 Q
  8. ; _& c' i+ B6 t+ X- M  ^
  9. dd:=date;
    3 J4 a8 G0 d  `0 @6 G. A# o: D( O

  10. ' y; a+ ~1 s6 i) E. F6 G7 f
  11. str:=NUMTOSTR(time,0)+';'+NUMTOSTR(v,0)+';'+NUMTOSTR(c,2);
    " u! W0 M! C. U3 k  g
  12. for i=25 to 36 do# z, ]1 G' ?# N" [7 D  P
  13. begin
    ) T) w. X5 A7 h: Z; ^- K7 U9 O
  14. str:=str+';'+NUMTOSTR(DYNAINFO(i),2);5 A2 X9 c* y" D$ C
  15. end;
    # F+ n$ I8 K* H% F2 w( E

  16. 5 X6 s* c" u" [
  17. <%
    : ~% L: B6 \# V' S, n. i1 v0 ]
  18. vd1 = FFL.VarData("dd")- q" @9 E1 I: t/ a! B/ _
  19. vd2 = FFL.VarData("str")
    ( A  `; l$ T. {( X! m
  20. nFirst = FFL.VarStartIndex("dd")
    8 A3 U2 m- N& P8 e. S2 X8 H
  21. ) i3 x  H5 p  W( X+ ^1 z
  22. Set fso=CreateObject("Scripting.FileSystemObject")/ u4 W% J. B1 i, ~0 E
  23. fn ="D:/fhdata/"+cstr(vd1(nFirst))+"data.txt"
    , h$ W) k* `) u% _7 r. [

  24. 2 M" r7 A% z5 k* f* ]
  25. Set f1 = fso.OpenTextFile(fn,8,True)5 \3 q$ g' d+ a1 E7 b
  26. f1.writeline vd2
    : @  ?! \# L1 A/ L6 `
  27. f1.close& t$ N7 z9 k7 z" K* J7 Z, W
  28. " L  `6 V+ u6 l% J0 a
  29. %>
    : i" O4 u3 {0 W% i* a+ y
  30. 7 G7 y" `# t) u, E3 u
  31. aa:time;( r+ ~1 ]! d1 a6 p7 \7 L
  32. Show File Failed" F# j+ H5 M0 |% W+ T: _' a
  33. . i5 W; ~' R2 {; j9 N  y/ Z4 @, o
  34.   K" h  s# h, P# f9 F3 w( P
复制代码

+ }. _  r* m) \
回复 支持 反对

使用道具 举报

6#
 楼主| 发表于 2014-2-17 21:35:39 | 只看该作者
醉心 发表于 2014-2-17 11:36
: X% I! a1 ]0 Q4 t9 \* R0 O4 d& [用VB来写看看

2 u. h- l* V/ V5 M  M对VB不太熟,先学习着
回复 支持 反对

使用道具 举报

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

使用道具 举报

8#
 楼主| 发表于 2014-3-2 21:41:15 | 只看该作者
醉心 发表于 2014-2-17 11:36
1 k  j3 W; T: _0 ?. R# O用VB来写看看
( A. E& d: G5 ?- n. ?7 P
哈哈,测试成功了!谢谢!+ O; i1 A6 E( A" S* L6 s

( p+ z$ {. l3 I7 L2 g公式里面的vb是不是调用的windows自带的vb scripts引擎,window有的,公式里都能用吧?
回复 支持 反对

使用道具 举报

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

本版积分规则

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

GMT+8, 2025-2-19 07:14 , Processed in 0.155323 second(s), 17 queries , Gzip On.

Powered by Discuz! X3.2

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

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