设为首页收藏本站

步步汇盈

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

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

[复制链接]
跳转到指定楼层
楼主
发表于 2014-2-15 14:08:20 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
计算公式时希望导出一些结算结果,以便用excel统计。7 d& B) `( l, Y8 _
& n: e  J. L) y" e& I+ [4 F7 T
不知道现有公式函数里,有没有可以写文件的函数呢?
( ^' U2 {' y9 ^. ^  ~预先谢谢大牛们回答。4 ]( d  a3 N" S2 j# P9 f4 V. v( j
* I* P2 d5 g! D  g9 E
回复

使用道具 举报

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

使用道具 举报

板凳
 楼主| 发表于 2014-2-16 22:37:36 | 只看该作者
gc007 发表于 2014-2-16 11:00
* i* {- c) [+ k& i) V+ b7 L是同时计算公式的时候,输出数据到EXCEL吗?
) V4 N1 S  e: l6 o8 A9 ?+ m' e
是的,就是这个意思。输出格式能灵活些更好。
回复 支持 反对

使用道具 举报

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

使用道具 举报

5#
发表于 2014-2-17 11:36:35 | 只看该作者
用VB来写看看% H5 _4 l: Q2 C  q  v
& b3 p4 P# h) N4 k5 Z5 Y. W
  1. 0 o7 L. M- t. j: i' K- U! T7 {+ k
  2. 2 d* _" m& I4 \0 O$ g8 I3 P
  3. if DATAPERIOD<>0 then
    4 x1 o/ Y( _0 \/ f9 U
  4. begin
    ' o. ]( P8 ]. ]8 a$ [" @
  5. DRAWTEXT(BARPOS=SYSPARAM(2)+10,1,'本指标只能用于分笔分析');
    8 X. p- _8 K/ Y. x/ J8 ]* Y5 b8 H' Q
  6. exit;  Y" O4 I9 Q' J6 i
  7. end;
    & i6 A5 u. ^- k+ e6 U

  8. - `- l( r5 E3 g& ]: ^7 t" c
  9. dd:=date;
    + Q2 v1 K+ M5 F. q  v0 v
  10. ; f* w9 t; P$ j+ z
  11. str:=NUMTOSTR(time,0)+';'+NUMTOSTR(v,0)+';'+NUMTOSTR(c,2);9 R% b5 |* Q4 h1 v( _
  12. for i=25 to 36 do1 t7 J, N! W$ ^. A- n
  13. begin
    ) T0 d0 b9 W! Q0 {0 Q" n; X5 U
  14. str:=str+';'+NUMTOSTR(DYNAINFO(i),2);
    7 z- a) X; j* Q$ M; N1 C7 F0 w. D
  15. end;* q  i& r4 r; k2 V+ @
  16. 1 n2 Z# L9 n# o' t5 q: ~
  17. <%
    ' Q1 R7 h7 z* n4 j, c! J
  18. vd1 = FFL.VarData("dd")' C" B' H& Z8 A3 n# r& y8 q# W
  19. vd2 = FFL.VarData("str")! L  w/ c' a, R1 v# [
  20. nFirst = FFL.VarStartIndex("dd") ! E. c. `; g( a% @
  21. % v! n& R, Z8 S( \
  22. Set fso=CreateObject("Scripting.FileSystemObject")9 {% I- z" I- @% O+ i( C
  23. fn ="D:/fhdata/"+cstr(vd1(nFirst))+"data.txt"
    ! Y$ i% \# f9 J* s
  24. * J% h* Z% T* Y$ B& B. i
  25. Set f1 = fso.OpenTextFile(fn,8,True)
    ( k* ~6 H3 d7 i& \0 `  F  e
  26. f1.writeline vd2& |, `# a2 g9 z  H+ e& n
  27. f1.close
    9 g  y, f0 l; G# q
  28. 2 l+ l! x! x8 c: i& a) c' \5 m& B
  29. %>
    0 Q) f9 ~0 x4 j# V7 g! E
  30. 0 x; E  h1 e8 D3 Z, `0 h
  31. aa:time;
    9 D3 v2 h1 k5 ^
  32. Show File Failed  x% i1 Y% j7 x/ x; f
  33. 0 {& m  T! k0 P4 {9 w# j) D9 u0 @

  34. * _( t1 f1 A" M1 R7 m( M
复制代码
. T% y( E. j% n$ }4 Q
回复 支持 反对

使用道具 举报

6#
 楼主| 发表于 2014-2-17 21:35:39 | 只看该作者
醉心 发表于 2014-2-17 11:36
' h- ~4 G3 n9 ?7 {/ g/ s2 s用VB来写看看

5 H7 E  F7 d3 b+ ]* a. X对VB不太熟,先学习着
回复 支持 反对

使用道具 举报

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

使用道具 举报

8#
 楼主| 发表于 2014-3-2 21:41:15 | 只看该作者
醉心 发表于 2014-2-17 11:36! e2 `. e/ V/ B7 Z# w" C. N
用VB来写看看

* i6 c3 ], T2 P  P1 ^3 b5 A* m哈哈,测试成功了!谢谢!
1 w1 D- ?" i# I+ M$ O8 p; r
' w' X1 N6 S* Z7 F公式里面的vb是不是调用的windows自带的vb scripts引擎,window有的,公式里都能用吧?
回复 支持 反对

使用道具 举报

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

本版积分规则

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

GMT+8, 2026-4-26 10:27 , Processed in 0.225782 second(s), 17 queries , Gzip On.

Powered by Discuz! X3.2

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

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