设为首页收藏本站

步步汇盈

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

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

[复制链接]
跳转到指定楼层
楼主
发表于 2014-2-15 14:08:20 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
计算公式时希望导出一些结算结果,以便用excel统计。
# n# H! P6 P+ g& I; B7 T
0 F4 y8 x' r$ D不知道现有公式函数里,有没有可以写文件的函数呢?
8 }: Z" y' A7 t3 d! F# p; ^/ w预先谢谢大牛们回答。, Y! w- f# I; V+ F
( Y1 d. o, K  \* l8 w
回复

使用道具 举报

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

使用道具 举报

板凳
 楼主| 发表于 2014-2-16 22:37:36 | 只看该作者
gc007 发表于 2014-2-16 11:00+ o2 m; R9 v% i' D5 u' }
是同时计算公式的时候,输出数据到EXCEL吗?

2 X, }# S& A) ^! k是的,就是这个意思。输出格式能灵活些更好。
回复 支持 反对

使用道具 举报

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

使用道具 举报

5#
发表于 2014-2-17 11:36:35 | 只看该作者
用VB来写看看% t9 `3 P  \- f! x3 V2 \
* o* o  s2 X  y5 ], D
  1. 8 m: W, }0 w' m  s

  2. 0 j* m: {. S0 S1 l: m+ ?
  3. if DATAPERIOD<>0 then . ^* ?- ~  k$ c% Z' c
  4. begin4 a. T. o9 Z+ K" _9 F) `( W
  5. DRAWTEXT(BARPOS=SYSPARAM(2)+10,1,'本指标只能用于分笔分析');" |1 W$ d! X6 d( D* H
  6. exit;# V: W6 L- P5 J- W; g
  7. end;
    & c+ Y1 W& n( o- p2 e2 k! O+ X

  8. 9 y1 L1 ^/ k. S% B1 j5 _9 J: ~/ s  x. V
  9. dd:=date;
    ( s+ b& ~, U6 e+ A1 x. l' P

  10. 8 A; F" K% m9 ?+ \) h  e5 h
  11. str:=NUMTOSTR(time,0)+';'+NUMTOSTR(v,0)+';'+NUMTOSTR(c,2);
    . v% b; `) t/ d" d" @" y
  12. for i=25 to 36 do
    / M- b3 ]/ C( `$ y; i( {- Z
  13. begin
    4 O& P! {# A" A8 m& H% |& c& P
  14. str:=str+';'+NUMTOSTR(DYNAINFO(i),2);5 ~; h1 q) U' {9 ]# o
  15. end;! B+ I8 x# I5 p# Y0 ]1 H
  16. & v% a5 R5 \$ i
  17. <%
    2 A5 G7 R, M; z5 q3 T! M' ]+ N+ O
  18. vd1 = FFL.VarData("dd")+ J3 o0 J4 j! a( k( j& L& }1 \# n
  19. vd2 = FFL.VarData("str")3 s0 [, ~: r! J: E( s) ]- p
  20. nFirst = FFL.VarStartIndex("dd") 1 q6 ]/ j8 f- n7 [; R3 g

  21. 0 M) n5 {8 F7 ]) `
  22. Set fso=CreateObject("Scripting.FileSystemObject")7 I3 t2 Q* X* {/ e7 K$ }: h
  23. fn ="D:/fhdata/"+cstr(vd1(nFirst))+"data.txt"
    - z4 O+ m; o% p* |" J8 ^5 y3 x" ~
  24. % v3 J  M/ ~4 {6 {# O
  25. Set f1 = fso.OpenTextFile(fn,8,True)
    ' x$ `$ r  s$ W# H9 {
  26. f1.writeline vd27 Z4 ^" L: v: K2 p4 z4 |' r
  27. f1.close
    3 `. @9 r1 ]( E& T. O8 E# A
  28. ' T: x- R% a* K, ~
  29. %>5 l/ Y7 E2 ?1 I) i
  30. : \4 \+ D' @) Q: V, {) P
  31. aa:time;. F* l% j9 q' D7 t7 l
  32. Show File Failed) A& V- }4 N8 r' |3 V: {
  33. % \  n% e- ?6 u5 J# {
  34. 8 p4 d5 s6 j1 N# F: f9 L, D6 U
复制代码

2 T, H- O- U( i5 D
回复 支持 反对

使用道具 举报

6#
 楼主| 发表于 2014-2-17 21:35:39 | 只看该作者
醉心 发表于 2014-2-17 11:36
4 A* A' t5 o* m% r& \0 Q/ ~用VB来写看看

1 L: `; l- z- P& E: e1 t/ A- e对VB不太熟,先学习着
回复 支持 反对

使用道具 举报

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

使用道具 举报

8#
 楼主| 发表于 2014-3-2 21:41:15 | 只看该作者
醉心 发表于 2014-2-17 11:36  o- o- ?3 d2 L7 V
用VB来写看看
7 K7 e  f2 A: I) B, e" E3 H
哈哈,测试成功了!谢谢!6 B- K- d. i' _6 P! I* x

  Q2 O' N; W0 `3 K- B公式里面的vb是不是调用的windows自带的vb scripts引擎,window有的,公式里都能用吧?
回复 支持 反对

使用道具 举报

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

本版积分规则

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

GMT+8, 2025-11-27 19:34 , Processed in 0.514769 second(s), 17 queries , Gzip On.

Powered by Discuz! X3.2

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

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