请问公式中有可以写文件的函数吗？

边缘_Michael · 发表于 2014-2-15 14:08:20

计算公式时希望导出一些结算结果，以便用excel统计。

不知道现有公式函数里，有没有可以写文件的函数呢？
预先谢谢大牛们回答。

gc007 · 发表于 2014-2-16 11:00:07

是同时计算公式的时候，输出数据到EXCEL吗？

边缘_Michael · 发表于 2014-2-16 22:37:36

gc007 发表于 2014-2-16 11:00; [4 {9 W3 I i" s# q5 u& U
是同时计算公式的时候，输出数据到EXCEL吗？

是的，就是这个意思。输出格式能灵活些更好。

mccs · 发表于 2014-2-17 00:45:04

同问，请版主大人指教

醉心 · 发表于 2014-2-17 11:36:35

用VB来写看看

; X- Y) X* v. }
0 C5 p3 p6 [0 j3 P2 G- d$ U
if DATAPERIOD<>0 then
5 o* x |9 ]# e$ h9 x, U: n3 z
begin6 T5 q" }4 X" h1 X
DRAWTEXT(BARPOS=SYSPARAM(2)+10,1,'本指标只能用于分笔分析');9 \: r5 ?( ?' S, o; V
exit;& s+ W1 X+ j# n; p& j5 A% ^; ]
end;
% A. h- l' V2 P# K( G
( U7 D A5 d8 w+ S. c
dd:=date;
) d+ G. f( I# K
6 z9 P0 U9 B1 O3 X: C; I
str:=NUMTOSTR(time,0)+';'+NUMTOSTR(v,0)+';'+NUMTOSTR(c,2);
for i=25 to 36 do
' e# H& \7 t1 |+ |* I9 Y6 ~
begin2 a, f, `5 ?+ S7 Z. K
str:=str+';'+NUMTOSTR(DYNAINFO(i),2);' p" Z+ C) t7 s# o0 d+ g
end;: E( N7 d" Z* ]$ Y. I* U7 k/ U1 U
% N- \5 _1 Z3 ^
<%9 k. u; q5 a# b5 E
vd1 = FFL.VarData("dd")
/ t. L' e. \5 z* s; r
vd2 = FFL.VarData("str")
& H4 M! Z0 t+ r$ {8 S! O
nFirst = FFL.VarStartIndex("dd")
5 j( B4 g& K4 C/ a. N
( w0 T6 p% O G7 K/ L' S6 l
Set fso=CreateObject("Scripting.FileSystemObject")
3 B [6 O8 p3 n6 ?7 }+ K
fn ="D:/fhdata/"+cstr(vd1(nFirst))+"data.txt", g! T/ u- L2 ] G0 M: o, \& z" q' Z
{. {& w) T- ?# f' J2 G% N
Set f1 = fso.OpenTextFile(fn,8,True)
" ], u0 Y9 T) `" W
f1.writeline vd29 f( f# R& G" U9 G" _
f1.close; d- ?3 R" p* j3 a: m o
( k$ E/ o! q+ r
%>* U2 L2 {5 y8 G/ R' Y- B7 F
# v2 _' s% F" D( j7 G. T& q
aa:time;# e4 y% }' h# e0 _
Show File Failed2 [( S5 K. G& t' O
9 w4 @) V9 h% D) W! L# ^
) J9 b& _; [5 a9 p

复制代码

边缘_Michael · 发表于 2014-2-17 21:35:39

醉心发表于 2014-2-17 11:36
3 b# L T% D9 l4 ^' J5 ^, m8 b3 @用VB来写看看

对VB不太熟，先学习着

sxsongchen · 发表于 2014-2-18 17:20:14

学习了，试试

边缘_Michael · 发表于 2014-3-2 21:41:15

醉心发表于 2014-2-17 11:36
. u+ W( f3 X0 k9 s% a8 _" N用VB来写看看

哈哈，测试成功了！谢谢！

公式里面的vb是不是调用的windows自带的vb scripts引擎，window有的，公式里都能用吧？

		自动登录	找回密码
密码			手机注册

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