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

边缘_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
) T. ~, K N2 q/ ?% D( S8 Y8 J是同时计算公式的时候，输出数据到EXCEL吗？

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

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

同问，请版主大人指教

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

用VB来写看看

9 X0 b( v' H; P! U( z
8 d9 n! Q+ U4 D. z Q$ c# [
if DATAPERIOD<>0 then
/ n! u6 O& h! S# v3 A: ?/ A- L
begin
6 b" P# e6 o6 m. J' R6 f
DRAWTEXT(BARPOS=SYSPARAM(2)+10,1,'本指标只能用于分笔分析');, M, c, r) @: F* h$ O
exit;' p4 U' U. q6 {9 f# w1 p
end;' V7 N% L3 Y5 r: ], H5 j
4 D/ e) \0 X; `) ^
dd:=date;6 J2 o) c/ `" ]" h7 r b# A
+ |: Y3 C: n4 X' }( \6 p
str:=NUMTOSTR(time,0)+';'+NUMTOSTR(v,0)+';'+NUMTOSTR(c,2);+ Z/ d6 j4 S7 c7 g6 v% R
for i=25 to 36 do% i1 e* u9 F! K0 e$ G
begin+ ~' G9 h# c+ t1 Z
str:=str+';'+NUMTOSTR(DYNAINFO(i),2);; F2 j" X6 `! G" G: v
end;
9 F" j$ |: @9 u: n/ C& S- w* x
e* e, I b6 q3 Z
<%1 }( Q1 {- k1 [ i: Z$ I
vd1 = FFL.VarData("dd")
" d6 A- X x2 G& C
vd2 = FFL.VarData("str")! z6 ~" z/ U4 h4 `
nFirst = FFL.VarStartIndex("dd") * `2 l$ p0 t8 e4 l$ |
- V3 e: k6 e7 `6 T5 S/ d2 I' F8 ^
Set fso=CreateObject("Scripting.FileSystemObject")
6 }+ K8 h8 `" P7 o" L
fn ="D:/fhdata/"+cstr(vd1(nFirst))+"data.txt"* M& m) [: n% i' E
Set f1 = fso.OpenTextFile(fn,8,True)
9 B$ U* B) {( @: K+ T
f1.writeline vd2 A2 j; r; D& ~1 I& |4 b8 g
f1.close( u7 h& r1 }0 j8 S; N6 o8 V
6 e- T$ n. p8 a7 @: h3 D4 i
%>. H$ I. @( A+ F7 J( `
6 @; u* F3 Z/ M6 J
aa:time;# d9 K1 i' E1 X. X6 \2 d+ H
Show File Failed
& k% ?4 ^ y/ w" x8 R
( r& x3 A: w0 D, z# q
( }4 e! c% p* \% t7 e9 Z, Y, n# e

复制代码

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

醉心发表于 2014-2-17 11:36 \# m2 o. N3 c" g- j4 v! j
用VB来写看看

对VB不太熟，先学习着

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

学习了，试试

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

醉心发表于 2014-2-17 11:36; ?, }2 T8 C: D" m. v X1 ^
用VB来写看看

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

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

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

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