设为首页收藏本站

步步汇盈

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

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

[复制链接]
跳转到指定楼层
楼主
发表于 2014-2-15 14:08:20 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
计算公式时希望导出一些结算结果,以便用excel统计。
2 }7 e/ S1 K2 v1 |7 l! Y5 y/ W3 I6 @
不知道现有公式函数里,有没有可以写文件的函数呢?# Y! f5 m6 f# H8 H3 s
预先谢谢大牛们回答。
! r3 p5 m7 j+ b- W- Z# j
! W+ o  g( [% Y/ l6 t$ Z, ?
回复

使用道具 举报

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

使用道具 举报

板凳
 楼主| 发表于 2014-2-16 22:37:36 | 只看该作者
gc007 发表于 2014-2-16 11:00
" y! d4 Y/ E5 w# j4 G是同时计算公式的时候,输出数据到EXCEL吗?

0 \: w8 _4 ^. L1 F是的,就是这个意思。输出格式能灵活些更好。
回复 支持 反对

使用道具 举报

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

使用道具 举报

5#
发表于 2014-2-17 11:36:35 | 只看该作者
用VB来写看看3 b+ D$ P7 Z8 U5 b3 ?

  V. {5 ?) b: w8 k- G

  1. : c4 w7 }; E% v$ L. i  R
  2. ' \( L! u. E; {( C( I2 F
  3. if DATAPERIOD<>0 then
    . y1 e+ n% l! p
  4. begin" e) q% X# b1 Y% x; L( w
  5. DRAWTEXT(BARPOS=SYSPARAM(2)+10,1,'本指标只能用于分笔分析');
    3 B2 M6 O3 }% V1 m) ^) S
  6. exit;
    ' G! ~: o  {1 m% s$ }! q
  7. end;) C, |1 d( \1 Z* E

  8. . r+ s* S4 S# C' {8 d
  9. dd:=date;
    " C2 O  F4 r  a* H& a

  10. 6 R0 C, q5 p! @4 o6 w& F
  11. str:=NUMTOSTR(time,0)+';'+NUMTOSTR(v,0)+';'+NUMTOSTR(c,2);0 L) u2 [+ b/ C1 t/ |
  12. for i=25 to 36 do
    6 Z- E+ n% i8 Y/ Z# Q: M/ k; O8 @
  13. begin
    . F! \3 F  ~. B
  14. str:=str+';'+NUMTOSTR(DYNAINFO(i),2);/ @  Z6 Q, |8 p5 v) _
  15. end;% \( s/ u7 q; Y) t) i
  16. 7 f! c! v5 E" x" P% c# Y
  17. <%
    ( e" j8 D! K0 g- O
  18. vd1 = FFL.VarData("dd")1 o5 V+ S) j6 j; R. |
  19. vd2 = FFL.VarData("str")- R0 v8 y1 Z& i6 C( b: J; h
  20. nFirst = FFL.VarStartIndex("dd")
    5 H) @" d- S2 w

  21. 4 K+ Q9 w- ^6 Q* D. b3 n$ h# _
  22. Set fso=CreateObject("Scripting.FileSystemObject")6 ]/ p' b/ _2 r( L* V/ ?$ U
  23. fn ="D:/fhdata/"+cstr(vd1(nFirst))+"data.txt"
    3 t8 U9 T$ [  Z6 b
  24. + V' I* b9 p+ f- m' k
  25. Set f1 = fso.OpenTextFile(fn,8,True)
    " [) S8 ]; r6 M
  26. f1.writeline vd2) ^4 s! Z6 d  F$ M8 {  Z' d
  27. f1.close
    3 ?# R  ~: ~. E- v# \6 U

  28. . B( M. W0 r! t1 E! @3 F
  29. %>; j2 c: U/ h5 U1 n

  30. ; E+ X5 B3 L% J2 X4 z. G
  31. aa:time;! n' b" t  P; ^; b: s
  32. Show File Failed' ]4 G& d. h# H1 A1 G  F+ v

  33. : X+ ]: f9 S  i6 ?

  34. ) \7 @+ d+ _* D6 O+ X2 Q% J
复制代码

( R# j7 W2 @# d# W# Y6 H5 f2 J
回复 支持 反对

使用道具 举报

6#
 楼主| 发表于 2014-2-17 21:35:39 | 只看该作者
醉心 发表于 2014-2-17 11:36
2 _, L" I( t! h2 @8 V/ b# v用VB来写看看

/ w9 r8 U. `/ g; l5 r' o对VB不太熟,先学习着
回复 支持 反对

使用道具 举报

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

使用道具 举报

8#
 楼主| 发表于 2014-3-2 21:41:15 | 只看该作者
醉心 发表于 2014-2-17 11:36
" X# M, ?; Y/ ~6 ], A用VB来写看看
7 a! [, F1 V1 n" ?, ?# H
哈哈,测试成功了!谢谢!& `' C) ~, ]  ~" A, r* ~
! B1 \) @' T- T0 x  [
公式里面的vb是不是调用的windows自带的vb scripts引擎,window有的,公式里都能用吧?
回复 支持 反对

使用道具 举报

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

本版积分规则

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

GMT+8, 2026-4-26 11:53 , Processed in 0.236894 second(s), 17 queries , Gzip On.

Powered by Discuz! X3.2

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

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