设为首页收藏本站

步步汇盈

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

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

[复制链接]
跳转到指定楼层
楼主
发表于 2014-2-15 14:08:20 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
计算公式时希望导出一些结算结果,以便用excel统计。$ Y! r/ Y/ T# X+ ?2 R: v4 @
; c9 x  w# [3 ~- @+ r) T& T
不知道现有公式函数里,有没有可以写文件的函数呢?0 o8 s& O4 ^" k+ y
预先谢谢大牛们回答。# g# D) H5 T, ~7 j
) w7 D" k. G2 e* ]( E) V
回复

使用道具 举报

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

使用道具 举报

板凳
 楼主| 发表于 2014-2-16 22:37:36 | 只看该作者
gc007 发表于 2014-2-16 11:00: A! X+ {9 f' a
是同时计算公式的时候,输出数据到EXCEL吗?
/ t2 ]1 S* I5 Q/ ]
是的,就是这个意思。输出格式能灵活些更好。
回复 支持 反对

使用道具 举报

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

使用道具 举报

5#
发表于 2014-2-17 11:36:35 | 只看该作者
用VB来写看看
" e' _: P9 w7 T) V- x' F
6 _  H! w! l; @! D

  1. 4 s8 l& ?* u5 O. \
  2. ( f* i- R) ^$ U. S' q: G
  3. if DATAPERIOD<>0 then
      m' q/ ^" v% D9 g- I# S' g# a. ]
  4. begin
    * G7 o$ l/ j! K4 b. {+ ]5 Y
  5. DRAWTEXT(BARPOS=SYSPARAM(2)+10,1,'本指标只能用于分笔分析');
    ) `2 u; H. {: l  j
  6. exit;
    , L" {" S0 X6 ?! }) G' V
  7. end;+ T) L# F; u: k# Z
  8. + t3 E4 O+ N4 m- e6 x2 C
  9. dd:=date;/ T# n/ E: Q/ T$ S+ Q& K% p1 ^& n+ R0 X

  10. $ m% I$ E! W, l& E* b! k! _. `
  11. str:=NUMTOSTR(time,0)+';'+NUMTOSTR(v,0)+';'+NUMTOSTR(c,2);
    $ m; F' Q6 H! c  t" `! a6 ~
  12. for i=25 to 36 do, j3 W: Y  _  [1 s7 x) s4 j7 v3 g
  13. begin
      P+ K7 ~/ _! t, K- |
  14. str:=str+';'+NUMTOSTR(DYNAINFO(i),2);3 \) I6 j% k9 X( T0 P! n9 W
  15. end;- R2 o* v$ t5 X3 y! N) F& s% o

  16. ! P& L! U" T" Z, T5 M
  17. <%
    " {5 Z5 p8 Y6 d7 b$ `6 ^3 H
  18. vd1 = FFL.VarData("dd")1 l. H' @2 `! `' |; R) U# T
  19. vd2 = FFL.VarData("str")
    ; @7 M; x) X- d2 t+ w0 u# ~6 l
  20. nFirst = FFL.VarStartIndex("dd") ; n* b- I1 J( h' E/ U" X/ @
  21. ; h; B! m+ ^7 H  h: e; X. a
  22. Set fso=CreateObject("Scripting.FileSystemObject")
    ! q9 h1 P4 p8 I. r8 x3 f1 e
  23. fn ="D:/fhdata/"+cstr(vd1(nFirst))+"data.txt"! a( m1 n' n) @- C

  24. 5 G# h' I. G1 M5 a' B$ B$ l
  25. Set f1 = fso.OpenTextFile(fn,8,True). N: W) `  z" b1 L% U- }9 E
  26. f1.writeline vd22 ?; a  m4 K& a6 f% h; ]* x
  27. f1.close
    7 b$ y- C6 V& h( x

  28. 3 Z6 `9 G2 y/ X# d' [
  29. %>$ Y' ~9 O- |5 D+ M, p( S$ ]" ~

  30. 7 d) l9 `7 a4 {0 x3 ]6 A
  31. aa:time;3 w, J: p; r* e; a/ q  X, |7 g( `0 g
  32. Show File Failed0 I' \0 I4 [- s6 v
  33. $ X; ^" |) a1 k% h) s

  34. 1 j$ v3 j  C8 H) B+ Q" v- B
复制代码
; v8 j4 ^) L  i6 U/ W! E  z
回复 支持 反对

使用道具 举报

6#
 楼主| 发表于 2014-2-17 21:35:39 | 只看该作者
醉心 发表于 2014-2-17 11:36
) O; x5 z% \, \9 ?: f用VB来写看看
% p) X2 W6 {% u1 _( r/ c. }- W6 i
对VB不太熟,先学习着
回复 支持 反对

使用道具 举报

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

使用道具 举报

8#
 楼主| 发表于 2014-3-2 21:41:15 | 只看该作者
醉心 发表于 2014-2-17 11:36+ Y  A$ {# b* F
用VB来写看看

# C3 K" n: c4 _8 R- s( S哈哈,测试成功了!谢谢!
/ v0 ]3 y- Z4 C" u
3 e; }3 \$ ?9 m0 w* q  T- b: y公式里面的vb是不是调用的windows自带的vb scripts引擎,window有的,公式里都能用吧?
回复 支持 反对

使用道具 举报

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

本版积分规则

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

GMT+8, 2025-10-28 23:52 , Processed in 0.177198 second(s), 17 queries , Gzip On.

Powered by Discuz! X3.2

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

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