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

边缘_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
% V: j' r5 Z' @6 m' k是同时计算公式的时候，输出数据到EXCEL吗？

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

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

同问，请版主大人指教

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

用VB来写看看

5 Q; s/ S& [- U' r
% \1 ~7 f2 {% S' R }
if DATAPERIOD<>0 then 7 ^ F" i5 @" I* W% l& W
begin
# G' l$ U/ w6 x' X4 l4 ^
DRAWTEXT(BARPOS=SYSPARAM(2)+10,1,'本指标只能用于分笔分析');
" I: a. x4 j0 F
exit;1 S" R, F3 S% ^" w
end; @' T" ~# F8 m% q0 D; X, }
( m3 d" w# S. E( x1 ]
dd:=date;
- ^7 r: y, W, D6 N* p) d
$ o; m6 b7 ]1 p& t3 E* L
str:=NUMTOSTR(time,0)+';'+NUMTOSTR(v,0)+';'+NUMTOSTR(c,2);
* _" ^2 F) A# o
for i=25 to 36 do
6 P: @ ` D3 Y8 C- j. t! }, l
begin' b8 t& I6 E( G7 ]& W
str:=str+';'+NUMTOSTR(DYNAINFO(i),2);
* i1 }( U8 a! _/ }3 l
end;) e% d5 |2 m0 b, g/ `: |$ ]6 n
Z3 V: V! B- `2 ~4 K( e2 o
<%
* ]! G5 L4 M3 g
vd1 = FFL.VarData("dd")
* `. }1 c; x- T n" }" |
vd2 = FFL.VarData("str")% D V# `- ?0 c% V% `
nFirst = FFL.VarStartIndex("dd") 8 C0 D0 }9 k# Q3 t& E3 U
& L4 x* v. C7 o6 N
Set fso=CreateObject("Scripting.FileSystemObject")( c' b2 j5 w+ J) ]. f9 i7 E5 C
fn ="D:/fhdata/"+cstr(vd1(nFirst))+"data.txt"
% J. J. \+ l; s5 A6 b1 `8 l' u
6 n M) A; Z9 n5 R$ Y. W
Set f1 = fso.OpenTextFile(fn,8,True)/ `0 A" b7 ]5 R. t
f1.writeline vd21 X8 J: C k9 Q' z
f1.close
8 G, x' e) M4 ?- v5 g
( ?2 t0 D% B# h6 P# M
%># G6 m3 m! T! S, j3 D0 P" h( Y! |" M
0 g- m7 b0 y. d9 Q
aa:time;
S8 q+ g7 X( L9 F
Show File Failed
8 L: h$ B/ C' Y5 o
# u& \7 k; U9 Z
+ B6 e* F# T' W

复制代码

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

醉心发表于 2014-2-17 11:36
. F- ~' b& X1 r/ z5 l) w用VB来写看看

对VB不太熟，先学习着

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

学习了，试试

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

醉心发表于 2014-2-17 11:363 D5 m/ V2 n+ D$ d% g, b8 E
用VB来写看看

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

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

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

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