设为首页收藏本站

步步汇盈服务平台

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

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

[复制链接]
跳转到指定楼层
楼主
发表于 2014-2-15 14:08:20 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
计算公式时希望导出一些结算结果,以便用excel统计。4 ]0 s; v+ e1 [/ d* [7 [4 T+ }& w

4 z! X( b" g2 G* ~2 ]7 u0 I不知道现有公式函数里,有没有可以写文件的函数呢?
, f& e. c+ z8 \1 C' t( D: O预先谢谢大牛们回答。  _6 a1 e/ d' V8 {5 Q8 g9 A
* y) L2 X6 n& ^5 r" D' E2 x
回复

使用道具 举报

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

使用道具 举报

板凳
 楼主| 发表于 2014-2-16 22:37:36 | 只看该作者
gc007 发表于 2014-2-16 11:00' J' b3 s4 F; P% k0 K  v& a* u
是同时计算公式的时候,输出数据到EXCEL吗?

& U+ S5 o- F: E4 m  D# X& H8 d) u是的,就是这个意思。输出格式能灵活些更好。
回复 支持 反对

使用道具 举报

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

使用道具 举报

5#
发表于 2014-2-17 11:36:35 | 只看该作者
用VB来写看看$ U* Q6 l$ W4 l  q

9 V- F; \# C' z, W

  1. 5 z  i1 C& b) H# G- e9 g

  2. 7 i% F% {  u- R& {
  3. if DATAPERIOD<>0 then
    6 L+ i$ l+ _5 T  H
  4. begin' Q6 W0 r1 Y, ]! `/ T. y0 z* q
  5. DRAWTEXT(BARPOS=SYSPARAM(2)+10,1,'本指标只能用于分笔分析');5 o$ {) s* B3 {. u+ E4 n( ^# L
  6. exit;
      t! k1 _$ d7 ]5 P- @) F( X
  7. end;0 \! }; t5 b( b2 I
  8. " ^" h# g- G1 P
  9. dd:=date;
    % r/ l6 _6 |0 k

  10. $ O9 Q3 j( l+ G
  11. str:=NUMTOSTR(time,0)+';'+NUMTOSTR(v,0)+';'+NUMTOSTR(c,2);
    2 L5 q% v) @" ^0 {2 y8 Q
  12. for i=25 to 36 do
    2 t2 w( P$ {! a
  13. begin/ b7 T% k1 `# e; K  z
  14. str:=str+';'+NUMTOSTR(DYNAINFO(i),2);3 C0 r+ F) N9 r9 S% i# R
  15. end;+ K3 r8 x4 k9 I, K1 i5 z4 v( z

  16. 5 p( y, S% D: b2 g8 i" V/ B
  17. <%
    8 w. r) s, o- j: v
  18. vd1 = FFL.VarData("dd")
    , ?  X2 X5 s, d/ K
  19. vd2 = FFL.VarData("str"). |! G  _6 G' ^4 v- Q" h. n
  20. nFirst = FFL.VarStartIndex("dd") / ?% @7 s4 }" D; S" E
  21. ; Q8 K- o4 o, e) V/ u% \2 ~. b" _
  22. Set fso=CreateObject("Scripting.FileSystemObject")% `# y: d7 w% M" S( R  f9 e2 c
  23. fn ="D:/fhdata/"+cstr(vd1(nFirst))+"data.txt"
    # z0 z. s( M; |& Z! x
  24. : X8 Z9 T1 @' s2 H! A% Q* |
  25. Set f1 = fso.OpenTextFile(fn,8,True)
    & t# X" I; Q6 O4 e
  26. f1.writeline vd25 c5 }% k* |2 B8 p& q! U4 k
  27. f1.close
    3 H" b4 P7 y' U  i( ], x4 Z& R
  28. 6 t! z3 b/ M1 f7 n) K
  29. %>. h. ~4 p3 z( a* J) e! D

  30. ! p, o: J- r) _- x+ w; V" L  C
  31. aa:time;
    2 w5 ?) F6 }  Z
  32. Show File Failed
    : _6 K  F% m4 c0 H$ |$ r: Y6 `
  33. ) M) u) E; G7 t, d" C

  34. 8 M( ]  D% Y3 d+ W
复制代码
0 y! _8 K( R6 O
回复 支持 反对

使用道具 举报

6#
 楼主| 发表于 2014-2-17 21:35:39 | 只看该作者
醉心 发表于 2014-2-17 11:36: V3 d# c# K# Q9 Q& P
用VB来写看看
9 _; {& d& E8 F  Y: W3 Q
对VB不太熟,先学习着
回复 支持 反对

使用道具 举报

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

使用道具 举报

8#
 楼主| 发表于 2014-3-2 21:41:15 | 只看该作者
醉心 发表于 2014-2-17 11:36
) X4 S; h# v. _* V% |: z' C# a用VB来写看看
6 k) H) e+ X5 s( N) X
哈哈,测试成功了!谢谢!+ D( y0 k8 b" y. _6 a% W2 c+ b9 Z
1 j' t1 ]" u" x" b1 [
公式里面的vb是不是调用的windows自带的vb scripts引擎,window有的,公式里都能用吧?
回复 支持 反对

使用道具 举报

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

本版积分规则

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

GMT+8, 2025-2-6 18:01 , Processed in 0.127663 second(s), 18 queries , Gzip On.

Powered by Discuz! X3.2

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

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