设为首页收藏本站

步步汇盈

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

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

[复制链接]
跳转到指定楼层
楼主
发表于 2014-2-15 14:08:20 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
计算公式时希望导出一些结算结果,以便用excel统计。/ ^: T$ s- B) I
) x  E5 {$ I0 r# b
不知道现有公式函数里,有没有可以写文件的函数呢?
' o- K  A. n& l预先谢谢大牛们回答。
2 {- f5 d& t3 Q0 W$ a' z! k) W9 R3 p6 c- V* \
回复

使用道具 举报

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

使用道具 举报

板凳
 楼主| 发表于 2014-2-16 22:37:36 | 只看该作者
gc007 发表于 2014-2-16 11:00: c( |+ B7 p' ?+ Q9 x3 }
是同时计算公式的时候,输出数据到EXCEL吗?
3 \+ b' y; D' @  s+ c
是的,就是这个意思。输出格式能灵活些更好。
回复 支持 反对

使用道具 举报

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

使用道具 举报

5#
发表于 2014-2-17 11:36:35 | 只看该作者
用VB来写看看
. Z9 S" i+ [& q: L: w; h
( A' @; b5 R& O3 ~/ p
  1. 9 B2 k: n- t# M& z

  2. / R: \- S7 X+ o
  3. if DATAPERIOD<>0 then # `: m/ J3 K9 w' B& j+ s
  4. begin, [- g3 f, D# L7 ?) W% `
  5. DRAWTEXT(BARPOS=SYSPARAM(2)+10,1,'本指标只能用于分笔分析');
    * [/ Z  D* H+ N
  6. exit;4 K  ]$ ~  n+ l
  7. end;5 \6 N4 E/ C9 [6 h
  8. 4 _. C. I! j1 o) v# u9 v& o
  9. dd:=date;; Z1 `% L0 I! i3 i
  10. , f' z" ^4 D- V/ O5 w* h0 X' i
  11. str:=NUMTOSTR(time,0)+';'+NUMTOSTR(v,0)+';'+NUMTOSTR(c,2);
    0 g, U$ V% u* g5 C
  12. for i=25 to 36 do9 A7 A, r. A3 ?+ x3 D# R
  13. begin
    : e( j& {4 i! s0 M6 t
  14. str:=str+';'+NUMTOSTR(DYNAINFO(i),2);
    ( n( p+ K; X, X8 a1 r
  15. end;
    . u& X5 A2 Q4 H9 u1 ^

  16. $ E* P: d5 u1 E" @  o
  17. <%
    : H. {! t( |$ y) u) F# r" T1 V
  18. vd1 = FFL.VarData("dd")
    ' d& a' f* g2 I- r7 w) i9 z+ d8 |
  19. vd2 = FFL.VarData("str")% ]+ g. ]0 _/ y$ N8 c) `) [- O7 ~$ l1 y
  20. nFirst = FFL.VarStartIndex("dd") 9 G# O* l3 H2 s
  21. 5 G) l: H% u- s1 `& X! R6 `
  22. Set fso=CreateObject("Scripting.FileSystemObject")
    0 X2 T* `- L1 Z3 n* x+ n0 i0 ?# t
  23. fn ="D:/fhdata/"+cstr(vd1(nFirst))+"data.txt"
    ' c0 L! l( R7 N; W
  24. 5 O8 B5 r& d% k$ n8 ^; e' b
  25. Set f1 = fso.OpenTextFile(fn,8,True). T# M6 Y5 m0 `) ~6 q: {. q
  26. f1.writeline vd2
    ! V: D! R7 a* {
  27. f1.close
    * Z6 [2 ?2 e0 Q5 V! S
  28. $ V& P4 a& Y- f* a1 A0 e5 a! S# j
  29. %>
    2 L/ ^" p' I& R) i

  30. + [, H( B& h" C$ n; U
  31. aa:time;4 l$ @- B4 J8 S! z9 G/ ~$ y" U
  32. Show File Failed
    9 h$ U' b3 O  j% A
  33. 9 ~5 O& x6 }1 [4 V/ H+ o( y5 E9 J
  34. 0 `2 S& k5 {! p4 M% x0 J/ r. m
复制代码

* N9 W! i0 W+ g
回复 支持 反对

使用道具 举报

6#
 楼主| 发表于 2014-2-17 21:35:39 | 只看该作者
醉心 发表于 2014-2-17 11:36& ]  J8 P1 A, P8 ~+ `/ K) w
用VB来写看看

# M0 G0 N# W; Y) M1 ?% J  U8 p对VB不太熟,先学习着
回复 支持 反对

使用道具 举报

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

使用道具 举报

8#
 楼主| 发表于 2014-3-2 21:41:15 | 只看该作者
醉心 发表于 2014-2-17 11:36
8 j* f( L. z/ c/ E9 j; M7 Z用VB来写看看

  u7 l+ u* K# G5 ~4 X) s) s# A哈哈,测试成功了!谢谢!
( V7 I+ {3 s( S3 m6 d8 ~# c0 Q7 I1 y/ s! o
( F/ F/ d, m2 K, Q) i6 l. q1 `公式里面的vb是不是调用的windows自带的vb scripts引擎,window有的,公式里都能用吧?
回复 支持 反对

使用道具 举报

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

本版积分规则

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

GMT+8, 2026-4-6 07:55 , Processed in 0.845500 second(s), 17 queries , Gzip On.

Powered by Discuz! X3.2

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

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