设为首页收藏本站

步步汇盈服务平台

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

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

[复制链接]
跳转到指定楼层
楼主
发表于 2014-2-15 14:08:20 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
计算公式时希望导出一些结算结果,以便用excel统计。
( `' W& h+ }1 T0 |* }/ [/ N
' S$ v$ Q! d+ Y, Z不知道现有公式函数里,有没有可以写文件的函数呢?
  K0 Y* Z3 [6 d* G( U. d( h预先谢谢大牛们回答。) E- _2 m5 J4 W) a1 I1 W
, m6 K2 R# N: a( \' a
回复

使用道具 举报

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

使用道具 举报

板凳
 楼主| 发表于 2014-2-16 22:37:36 | 只看该作者
gc007 发表于 2014-2-16 11:009 A0 h9 @5 A1 {0 i  P
是同时计算公式的时候,输出数据到EXCEL吗?
/ f; e7 l/ O* [6 I3 D6 R
是的,就是这个意思。输出格式能灵活些更好。
回复 支持 反对

使用道具 举报

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

使用道具 举报

5#
发表于 2014-2-17 11:36:35 | 只看该作者
用VB来写看看! d' G$ _! I: u2 x$ I) T7 |$ f
1 V7 o6 J+ D; k/ c4 n- N& O

  1. # q/ C% d6 X) p& l

  2. 5 [* J3 @4 o  |6 R8 o% A0 M
  3. if DATAPERIOD<>0 then 8 I4 ]- z- A# Z; R
  4. begin
    * H2 B% k4 ]6 ?) l/ d' D
  5. DRAWTEXT(BARPOS=SYSPARAM(2)+10,1,'本指标只能用于分笔分析');/ \* G1 z5 R3 A( _
  6. exit;% H0 m' D# d0 b( Q/ _2 M. t
  7. end;% e) G1 F8 i6 M5 f5 _' F

  8. & v7 I+ @( T- b6 B" T6 `
  9. dd:=date;# @& V" r# B/ U) c6 ?$ F+ M
  10. 6 W5 h: B1 X7 ~8 {
  11. str:=NUMTOSTR(time,0)+';'+NUMTOSTR(v,0)+';'+NUMTOSTR(c,2);. ^0 ]! G# h" L+ E$ C$ `
  12. for i=25 to 36 do
    0 c$ z: f( U7 V! H9 l5 S5 T
  13. begin8 S! @9 U& y) }4 K
  14. str:=str+';'+NUMTOSTR(DYNAINFO(i),2);
    ) f; \! {$ }1 s/ _
  15. end;
    * l* E" E7 W: v. ?& P, h& @8 ?  {

  16. ! P- A# p) T0 p/ L
  17. <%8 ?% W" V1 h1 o3 n+ m# S
  18. vd1 = FFL.VarData("dd")1 K5 `9 p3 J7 K% m' [- v
  19. vd2 = FFL.VarData("str")& ~- s9 Q  X8 v& ~0 h( [
  20. nFirst = FFL.VarStartIndex("dd") 1 ~8 C0 y* t" C+ K) F7 m6 z/ z
  21. % T4 w5 \; t- r' A$ h6 R2 k- M
  22. Set fso=CreateObject("Scripting.FileSystemObject")/ ^' a. T9 {5 y! U! E
  23. fn ="D:/fhdata/"+cstr(vd1(nFirst))+"data.txt"
      |- M! M$ `1 o+ k# ]7 ]4 m) H

  24. - ?/ A% Q9 V! U6 e4 I% K8 s
  25. Set f1 = fso.OpenTextFile(fn,8,True)1 m  }" L0 Y9 m+ e$ Q6 F
  26. f1.writeline vd2
    6 u7 x' j; \, `; P6 `6 d
  27. f1.close, V# X2 F) \7 x# N7 ]+ G
  28. 9 H- T% I+ G1 r& K+ [* r, u# @
  29. %>
    & ], W* @5 k, N1 X+ w

  30. " S4 n: B# P4 l; D& z) y4 \
  31. aa:time;( A: E& r  W: u
  32. Show File Failed, s8 D% v) E0 q8 G

  33. / U3 ]. t0 Y/ D) V( M
  34. 8 K7 r& @9 u1 z  ~- H
复制代码
5 L% p6 f/ w2 ^' L8 h( t1 ^0 u: w5 {
回复 支持 反对

使用道具 举报

6#
 楼主| 发表于 2014-2-17 21:35:39 | 只看该作者
醉心 发表于 2014-2-17 11:36$ |. {: Z7 t& P$ m
用VB来写看看
* f/ `4 T# e2 y
对VB不太熟,先学习着
回复 支持 反对

使用道具 举报

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

使用道具 举报

8#
 楼主| 发表于 2014-3-2 21:41:15 | 只看该作者
醉心 发表于 2014-2-17 11:36$ V8 h& s* L# a
用VB来写看看

' I1 H6 m. g- {+ K  G哈哈,测试成功了!谢谢!
8 x3 P. W7 d& `% _
0 G- y' H) S/ C( C2 e: a公式里面的vb是不是调用的windows自带的vb scripts引擎,window有的,公式里都能用吧?
回复 支持 反对

使用道具 举报

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

本版积分规则

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

GMT+8, 2025-2-19 05:55 , Processed in 0.131663 second(s), 16 queries , Gzip On.

Powered by Discuz! X3.2

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

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