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

边缘_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" {2 V& t0 S, I8 d0 @是同时计算公式的时候，输出数据到EXCEL吗？

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

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

同问，请版主大人指教

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

用VB来写看看

, h1 }1 P: D: n9 E
9 N& B a$ [6 c* y; j
if DATAPERIOD<>0 then / B# I( y) w6 _+ ^2 r$ m5 z
begin! [+ G$ T* t; t* C/ g) Q/ z
DRAWTEXT(BARPOS=SYSPARAM(2)+10,1,'本指标只能用于分笔分析');7 d* \% ]8 ~( ~9 M A
exit;
, ?0 W) ^ V# b4 K4 [
end;
8 K V* F! ]$ n% f- W
w) y+ E( ^( } Q0 p% ^( J& i
dd:=date;2 J3 v- {" z% |% z. G5 s7 k, _7 ^: P8 d
' A' J: H& [9 g0 F, j8 u; }% t# [
str:=NUMTOSTR(time,0)+';'+NUMTOSTR(v,0)+';'+NUMTOSTR(c,2);& K0 l( C) T/ x4 \* O, X4 @* \
for i=25 to 36 do; C# }) u1 B3 o+ D* s) i
begin
4 L' U$ g. n8 X1 _
str:=str+';'+NUMTOSTR(DYNAINFO(i),2);% M$ Z; d1 c1 J4 U V; }7 r4 M/ p
end;
1 n8 \. z( t! s# p5 X# M. H
, P& w6 e: P3 P( \6 w* X! N
<%. t" K; }5 B/ M
vd1 = FFL.VarData("dd")/ y9 r" x8 n& V' n4 v1 K
vd2 = FFL.VarData("str")2 C( j. ]" Z7 T
nFirst = FFL.VarStartIndex("dd")
+ W1 e% a5 r/ w" x) \
& D! v! N: Z5 g: B
Set fso=CreateObject("Scripting.FileSystemObject")0 A* W" w! G7 _* e* v/ i
fn ="D:/fhdata/"+cstr(vd1(nFirst))+"data.txt"+ }; g! i: C* o2 q
Set f1 = fso.OpenTextFile(fn,8,True)6 O4 u1 p) w: k* r4 F
f1.writeline vd2
4 o2 u* `5 v; E
f1.close. }0 I2 Z) | N2 N. Z/ y% I {
1 Y8 ? J7 b* j- ~; W
%>7 \+ [9 [3 I. x: \4 o" [% {# Z
" D3 b4 S' d6 N3 a) n
aa:time;
) t3 f4 p2 H9 x3 ?
Show File Failed' z. x$ b9 a! J- z
+ X) l0 f7 ?9 g9 l$ c
: m: j' @5 Y( u k0 G

复制代码

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

醉心发表于 2014-2-17 11:36' e5 h; v! B$ {6 w! J
用VB来写看看

对VB不太熟，先学习着

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

学习了，试试

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

醉心发表于 2014-2-17 11:36' o4 c- i: E: k# W2 U: R6 p2 l
用VB来写看看

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

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

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

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