设为首页收藏本站

步步汇盈

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

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

[复制链接]
跳转到指定楼层
楼主
发表于 2014-2-15 14:08:20 | 只看该作者 回帖奖励 |正序浏览 |阅读模式
计算公式时希望导出一些结算结果,以便用excel统计。
9 [* k  v% y, Z- ~3 D' A( Z/ G9 A* _/ l% {
不知道现有公式函数里,有没有可以写文件的函数呢?9 y4 N" }$ a5 g
预先谢谢大牛们回答。
6 J! J/ V4 Z1 ]$ V$ n/ I- C9 T5 F4 ^$ {4 j
回复

使用道具 举报

8#
 楼主| 发表于 2014-3-2 21:41:15 | 只看该作者
醉心 发表于 2014-2-17 11:36# M# q$ o' s0 i; a& @' S  M
用VB来写看看

$ D8 P% y/ E, D: k* Z6 a  S哈哈,测试成功了!谢谢!' ?9 z( X/ Q$ F1 ^  v- ^
$ n/ w) {0 j5 n' X& F3 r1 j
公式里面的vb是不是调用的windows自带的vb scripts引擎,window有的,公式里都能用吧?
回复 支持 反对

使用道具 举报

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

使用道具 举报

6#
 楼主| 发表于 2014-2-17 21:35:39 | 只看该作者
醉心 发表于 2014-2-17 11:36+ k$ E6 C- B  z4 o# V! w) }  e
用VB来写看看

0 }5 I" ^* F/ v6 h/ l- u对VB不太熟,先学习着
回复 支持 反对

使用道具 举报

5#
发表于 2014-2-17 11:36:35 | 只看该作者
用VB来写看看; T' X8 [. u8 T! |
6 S6 H: P+ U% z$ l- `9 g
  1. . B( ~3 L* C' ^+ `2 G3 j) D) q+ y
  2. & n, I: Q* C! z' A
  3. if DATAPERIOD<>0 then
    . N! \5 e8 h0 f5 @: s0 H7 ?
  4. begin
    ; i8 O/ B! ], v. o
  5. DRAWTEXT(BARPOS=SYSPARAM(2)+10,1,'本指标只能用于分笔分析');9 s$ @+ d1 V0 {& I
  6. exit;
    $ m0 b# J6 H- l, G9 f5 z6 m7 q  r
  7. end;4 E3 ]& J+ |; c# P; j
  8. $ S$ m2 w7 x2 M- i: F
  9. dd:=date;5 J2 H/ e5 ~, [8 q
  10. ) o& R, q: P" R/ W+ W, W: I& o
  11. str:=NUMTOSTR(time,0)+';'+NUMTOSTR(v,0)+';'+NUMTOSTR(c,2);
    ) h* M+ e5 l! C2 S0 t+ k9 c  k# f: P
  12. for i=25 to 36 do8 c. E+ @) M4 T9 E( l- d3 B; [
  13. begin
    / i, o4 S) C/ {2 h
  14. str:=str+';'+NUMTOSTR(DYNAINFO(i),2);
    + N9 g( N( ?/ y1 ^0 U
  15. end;6 {- L& u1 m5 n" V; j( f$ Z0 j* A
  16. 3 g$ a2 ~+ O( @" I
  17. <%8 e1 u( g/ o2 k6 h, h
  18. vd1 = FFL.VarData("dd")' y3 p4 L. z7 V' ^3 s
  19. vd2 = FFL.VarData("str")
    3 M! @6 y2 M# E2 f& {! _( U2 w' u
  20. nFirst = FFL.VarStartIndex("dd") - y/ t7 O( _6 ]' p7 k
  21. . N: V# `4 ^; f2 s% Y, ]7 V
  22. Set fso=CreateObject("Scripting.FileSystemObject")
    0 _" k1 f  E2 H) K
  23. fn ="D:/fhdata/"+cstr(vd1(nFirst))+"data.txt"
    + F7 \2 d5 a% X/ F( y  X4 C

  24. 3 S  i/ ~, }2 g7 r2 C) e$ R. x) W# Z
  25. Set f1 = fso.OpenTextFile(fn,8,True)
    / {2 F' O( W' G; J
  26. f1.writeline vd24 ~4 E/ W9 [6 Q) i
  27. f1.close/ T9 ~5 p( j! n0 A2 D  ~! X
  28. 3 Z/ r$ g. n' V
  29. %>
    ; O7 K1 r0 }* J1 h* d
  30. ! i; x% Y" \; c) C& T' z- Y
  31. aa:time;
    9 C/ K0 j0 q; h$ I9 D3 b0 F
  32. Show File Failed
    2 W9 w/ i( z7 R

  33. 8 z- A1 f% h  J" E; o' p! U

  34. ) i- j( D. {. x  ^$ K$ Z
复制代码
7 H0 J. s! D' f" b
回复 支持 反对

使用道具 举报

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

使用道具 举报

板凳
 楼主| 发表于 2014-2-16 22:37:36 | 只看该作者
gc007 发表于 2014-2-16 11:00
% d' x1 u6 A; `: j, t是同时计算公式的时候,输出数据到EXCEL吗?
+ r# n4 K. Z1 t: c* P& c! B6 |
是的,就是这个意思。输出格式能灵活些更好。
回复 支持 反对

使用道具 举报

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

使用道具 举报

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

本版积分规则

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

GMT+8, 2025-10-29 03:18 , Processed in 0.156574 second(s), 19 queries , Gzip On.

Powered by Discuz! X3.2

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

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