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

边缘_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
" Z4 s/ @' f' T r3 e) ~% R是同时计算公式的时候，输出数据到EXCEL吗？

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

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

同问，请版主大人指教

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

用VB来写看看

- D/ z$ i7 M/ s3 _" q1 V. M
3 B* c% y/ ~% J
if DATAPERIOD<>0 then 9 A; y6 \" q- ?4 v- P' D
begin
1 Q8 Z8 |# v$ ?
DRAWTEXT(BARPOS=SYSPARAM(2)+10,1,'本指标只能用于分笔分析');
: @" s3 N- \; n& Q" h0 o9 W" B
exit;7 E0 O! J2 u) r4 z
end;
8 ?4 y2 j. p0 w3 @+ H1 C4 D
6 e# f6 v% v" k2 M' `, ^
dd:=date;
7 q9 H7 U( Y) n8 s7 M
& v4 }/ D X% ?& U
str:=NUMTOSTR(time,0)+';'+NUMTOSTR(v,0)+';'+NUMTOSTR(c,2);
0 F, Y6 U0 T$ G) [- \
for i=25 to 36 do0 G+ q( v% k5 m. P" [6 [/ t
begin( c0 k( H$ n8 g
str:=str+';'+NUMTOSTR(DYNAINFO(i),2);
5 w% R6 F8 s' ]" D
end;5 c2 P( B2 F3 y- q9 f
5 Z y5 y7 j' h1 s+ w
<%
/ U. t0 k. o7 M$ z8 _/ q+ ?3 R
vd1 = FFL.VarData("dd")" C$ o- p" m U& @
vd2 = FFL.VarData("str")) j( V% i5 |: m) H9 M
nFirst = FFL.VarStartIndex("dd") " b% B; z+ Q5 F% ]( _
7 B* u6 q! e! R6 Q/ E
Set fso=CreateObject("Scripting.FileSystemObject")- b/ @2 U) Z' S* c7 Z. M9 A
fn ="D:/fhdata/"+cstr(vd1(nFirst))+"data.txt"+ G0 ]0 ?- _5 N, Q2 A7 l( j5 I
! C& u! H" P' p+ N& \
Set f1 = fso.OpenTextFile(fn,8,True)% A" V# T% [6 i1 Z6 p, g6 h
f1.writeline vd2) d4 x9 n# b5 V7 K) c0 X
f1.close* i/ k, B1 I. k& h/ m7 h9 R0 a T) C
0 I# M, A/ `5 ^/ n! d5 ~
%>$ j1 Q6 Q; {& O. }9 T
& _* N: Y- t. j) _! U5 y) l. [
aa:time;
# U- u' G& Z% f' ^
Show File Failed
q$ v: A2 E4 {5 }
1 ?$ h- }2 n% a* U6 D
& g! {4 Y: C& A

复制代码

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

醉心发表于 2014-2-17 11:36, i% a, t" r) A9 `2 F1 V/ l" Z
用VB来写看看

对VB不太熟，先学习着

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

学习了，试试

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

醉心发表于 2014-2-17 11:36
% o" ]1 ?) \6 B1 L. Z3 H) h用VB来写看看

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

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

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

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