设为首页收藏本站

步步汇盈

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

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

[复制链接]
跳转到指定楼层
楼主
发表于 2014-2-15 14:08:20 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
计算公式时希望导出一些结算结果,以便用excel统计。( D  Q6 w# l1 n: Y/ M! V' M1 J
1 M8 y7 J# v( Y
不知道现有公式函数里,有没有可以写文件的函数呢?
# B9 R9 j; O! ]预先谢谢大牛们回答。& f" D' Q% j! \. {; H$ n" P

% E) L- P6 W' L9 i; v6 v
回复

使用道具 举报

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

使用道具 举报

板凳
 楼主| 发表于 2014-2-16 22:37:36 | 只看该作者
gc007 发表于 2014-2-16 11:00
6 x  Z+ _, v3 n/ U是同时计算公式的时候,输出数据到EXCEL吗?

9 Q8 k8 x, ~; c: `1 F% Z是的,就是这个意思。输出格式能灵活些更好。
回复 支持 反对

使用道具 举报

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

使用道具 举报

5#
发表于 2014-2-17 11:36:35 | 只看该作者
用VB来写看看/ n0 m7 B+ C' D+ v7 v  h+ ]# B3 q

/ x% c3 c- F7 Y( a* {. t  v, x

  1. & |# S% Y' }" k" B
  2. ; v+ t! V/ A3 h7 A- |
  3. if DATAPERIOD<>0 then 5 J$ v7 k  R- O0 Z0 C
  4. begin
    0 `0 B, m9 d. g/ g5 U' c  F- R
  5. DRAWTEXT(BARPOS=SYSPARAM(2)+10,1,'本指标只能用于分笔分析');
    : O* [/ B) I# [) _& x% Y) n
  6. exit;2 O) i7 S4 V! \# ^* L3 P% d
  7. end;0 Z8 g4 m# w; n1 d: A8 [

  8. / [2 F. F! E0 I: l  j+ b
  9. dd:=date;
    + x9 m1 `7 W9 ^. R, `9 }. P

  10. 3 q8 P# z2 G) ~5 n) S: D
  11. str:=NUMTOSTR(time,0)+';'+NUMTOSTR(v,0)+';'+NUMTOSTR(c,2);7 B& a. ^5 G- V- P( R  ^* B9 G
  12. for i=25 to 36 do- {0 U5 k4 g+ g7 U% f" k" @) @
  13. begin$ Y4 p- G( y9 D% e+ W' c5 j$ V
  14. str:=str+';'+NUMTOSTR(DYNAINFO(i),2);8 J) B3 V  c* ?* u$ W& D% C# S
  15. end;8 Q" f- B# t* b5 N

  16. 4 f" {8 f* {# n0 t$ w4 |* L0 ?
  17. <%
    & N0 S+ A: _% b- t; @) h* O  G+ o5 o
  18. vd1 = FFL.VarData("dd")  w+ q& x: E1 Z$ ^# p' \
  19. vd2 = FFL.VarData("str")
      A+ y  v/ ?6 ?9 A& |  {
  20. nFirst = FFL.VarStartIndex("dd") ( G# F* c& ]. G% C+ h: B0 h

  21. # O; t& d; ^: D7 r
  22. Set fso=CreateObject("Scripting.FileSystemObject")0 }. h) x0 _# l3 c$ s, H8 M
  23. fn ="D:/fhdata/"+cstr(vd1(nFirst))+"data.txt". ~4 N5 K* d$ S) y- d( x* h# y
  24. / o+ B- }. H) w+ |# [  L/ p
  25. Set f1 = fso.OpenTextFile(fn,8,True)
    4 }' P. t5 p- A- D
  26. f1.writeline vd2) ~, b8 @+ G4 i3 T- [
  27. f1.close
    / J! t+ b- B& R8 g( H: X* H
  28. ' {8 E2 H' S; z; W( A
  29. %>% _/ L; S7 N, k$ z

  30. * E* P0 f3 `2 Q# \. |* E) s% j+ O
  31. aa:time;
    / m' v2 Y5 ?# L, g1 \
  32. Show File Failed
    ; w3 {( B$ j( Z$ G$ B' m1 f1 {
  33. 7 B% ^1 Z8 W* L' m; P$ _

  34. % j  p: K4 ^+ I0 q- S
复制代码
* G- G( J" T1 t) S! @% p# E
回复 支持 反对

使用道具 举报

6#
 楼主| 发表于 2014-2-17 21:35:39 | 只看该作者
醉心 发表于 2014-2-17 11:368 F" T+ E) h8 g7 R. ?" d+ q
用VB来写看看

% k, Z0 E- C( p5 k! x. n* P# D对VB不太熟,先学习着
回复 支持 反对

使用道具 举报

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

使用道具 举报

8#
 楼主| 发表于 2014-3-2 21:41:15 | 只看该作者
醉心 发表于 2014-2-17 11:36
% d5 `4 F8 f1 q* g: b" B+ b用VB来写看看
1 q% b0 Y; R0 @
哈哈,测试成功了!谢谢!
2 U' ?( z! A) b- O* U4 p4 [9 x! a
; s: @2 {4 \9 n0 q公式里面的vb是不是调用的windows自带的vb scripts引擎,window有的,公式里都能用吧?
回复 支持 反对

使用道具 举报

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

本版积分规则

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

GMT+8, 2025-10-28 20:40 , Processed in 0.326414 second(s), 17 queries , Gzip On.

Powered by Discuz! X3.2

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

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