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

边缘_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
, _( O8 E3 G0 s* a2 j是同时计算公式的时候，输出数据到EXCEL吗？

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

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

同问，请版主大人指教

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

用VB来写看看

) n! J% p+ S3 H$ R! q6 L
8 _& J: f1 ]4 `8 C7 _
if DATAPERIOD<>0 then * Q$ t8 G% [3 A& [
begin+ }8 ^8 \! H# j5 G
DRAWTEXT(BARPOS=SYSPARAM(2)+10,1,'本指标只能用于分笔分析');
$ ^6 m; ?4 f2 Z2 }3 a
exit;
- Y9 n6 o4 X6 d1 q
end;
, O. J4 |, ^* w# f
0 y! g7 H" s7 t( k3 O
dd:=date;
+ E. ~( n0 U) h/ n3 _8 c
2 _+ z' b/ e: z% T
str:=NUMTOSTR(time,0)+';'+NUMTOSTR(v,0)+';'+NUMTOSTR(c,2);
$ S& o$ N) n+ D; @$ s
for i=25 to 36 do
; X V: \' p' a% _+ ~* X. b$ u
begin
! J+ {# R6 |; ^5 Q8 u
str:=str+';'+NUMTOSTR(DYNAINFO(i),2);; G7 {7 ^3 f+ h2 S- L
end;
" P7 k; g. w% \, w6 Y. x5 L
& ~! g" i( Z6 O0 z0 d$ y0 c/ `
<%. ^( _, Q; J+ B& y( B
vd1 = FFL.VarData("dd"), @* G h! Y! H+ t% e
vd2 = FFL.VarData("str")& |$ E& i d% i: C6 G
nFirst = FFL.VarStartIndex("dd") 3 |% C, x! \5 x' z8 M! |
5 M( N# p% I4 e: O, Y
Set fso=CreateObject("Scripting.FileSystemObject")
. u" }( [3 z- ?$ L3 E) n F: D" }
fn ="D:/fhdata/"+cstr(vd1(nFirst))+"data.txt"' h4 G8 P x# V- k' z
) u$ Z0 ] @% w% N5 g. g
Set f1 = fso.OpenTextFile(fn,8,True)
: v1 x8 W1 b! r) j4 D( J) g
f1.writeline vd2% B9 s: x+ r/ N5 m& P- i& l6 i
f1.close( k3 K3 C. r, l, I$ F! B$ f2 Z! ]
' C/ w# `5 U6 y, c- ^
%>
; {# F8 u4 h% ~8 G' s/ a
8 D" f3 d, w8 ^5 Y9 O
aa:time;0 }1 X8 _+ s1 y
Show File Failed# z1 n- {3 A# c
( N1 v q, e3 M1 }+ y: p0 K7 d
9 E) E3 W1 d4 n6 k4 T7 V

复制代码

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

醉心发表于 2014-2-17 11:36
. ]0 d* ^& ]5 E( [8 c* v用VB来写看看

对VB不太熟，先学习着

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

学习了，试试

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

醉心发表于 2014-2-17 11:36- u) O/ E% O* x8 A1 `$ b# l2 G
用VB来写看看

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

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

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

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