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

边缘_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" a# [& {, @ w1 m- U* I
是同时计算公式的时候，输出数据到EXCEL吗？

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

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

同问，请版主大人指教

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

用VB来写看看

; Z4 U1 `$ V2 {, m8 p! z. a( ]) f+ C
6 K @% l: p/ q/ Z
if DATAPERIOD<>0 then 2 v+ \1 m: X: \% H% N. g5 G* Z& @, R
begin; W3 I) z$ o# S9 h" X7 ?
DRAWTEXT(BARPOS=SYSPARAM(2)+10,1,'本指标只能用于分笔分析');: s7 t7 V: B9 E1 N4 c( u9 D8 W
exit;
8 ?+ f+ j% M# m
end;
) H7 Y- f: v# v
% x) b$ n7 t" x1 S% ?. A5 o
dd:=date;
5 ?) V* w' |# ^. d
5 C. E( J/ c r Z9 g/ E1 l. m
str:=NUMTOSTR(time,0)+';'+NUMTOSTR(v,0)+';'+NUMTOSTR(c,2);
' \- K" e0 H, w W5 O; O' y
for i=25 to 36 do8 m- W- Q. B2 x/ Q
begin
. F% k/ p/ x8 ^) M# [: C8 X
str:=str+';'+NUMTOSTR(DYNAINFO(i),2);
( Z& F5 I# f! O
end;
- z3 Q7 F- B* C7 g7 \
9 W4 C0 s! Q9 w Y2 `
<%* w0 Y: O: C8 p) ~4 H5 c
vd1 = FFL.VarData("dd")7 d: ^2 H6 b4 ]% c2 u0 `
vd2 = FFL.VarData("str")
# _) a9 @- ?) g2 X3 n9 t* T
nFirst = FFL.VarStartIndex("dd") ( e0 V0 N: ?0 k0 }/ S* e. G1 J/ B' s
6 t/ O8 Y! h7 x6 q3 ?" D3 j8 \3 F4 [
Set fso=CreateObject("Scripting.FileSystemObject"). x; h) P x$ H
fn ="D:/fhdata/"+cstr(vd1(nFirst))+"data.txt"* d& W8 f( L1 t
0 [; Q' _5 ^) S: G$ z/ \$ r! c5 b/ |
Set f1 = fso.OpenTextFile(fn,8,True)
+ {) r, o7 t" e1 _$ V1 ?, r, p, s
f1.writeline vd2
% g) L0 ]4 X" u1 Q
f1.close
" z, [5 g5 Y) J0 m$ F
4 ^$ m) y+ R; j
%>
# A& b6 Z" G5 W3 I
& S& e3 C1 @5 [# N" X9 w( h
aa:time;3 B" _% i. K' T+ p5 E8 z: `* a
Show File Failed6 |+ o: G) o. w4 L9 g- O
+ k9 ]: t4 N2 A( l$ {" N! F3 U l
- |6 w9 X. }! R8 u- r t. n

复制代码

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

醉心发表于 2014-2-17 11:36, J0 H# W& r: d1 X& I5 x0 S5 ~1 t
用VB来写看看

对VB不太熟，先学习着

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

学习了，试试

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

醉心发表于 2014-2-17 11:365 R% ~5 L# o1 l4 u
用VB来写看看

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

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

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

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