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

边缘_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- W4 B/ B- Z1 e7 _6 ~, l
是同时计算公式的时候，输出数据到EXCEL吗？

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

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

同问，请版主大人指教

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

用VB来写看看

?/ P/ U3 D& e) z5 h% X; d
2 M! b& m: p; Y' s0 H
if DATAPERIOD<>0 then ' y' ?, X4 V# D0 ^
begin: L9 ]1 ?1 O3 s8 `/ {
DRAWTEXT(BARPOS=SYSPARAM(2)+10,1,'本指标只能用于分笔分析');
6 p6 C! F8 f; m* u! m% E6 y# S E9 N
exit;
4 J; x' o8 [3 x+ ]
end;
- R/ k3 I" j. V6 V" ^
) O' g/ ^! _6 h. ~) X
dd:=date;
0 L) g* M9 @# g
! X Z' [0 }7 H% J$ a
str:=NUMTOSTR(time,0)+';'+NUMTOSTR(v,0)+';'+NUMTOSTR(c,2);
( f0 F! |$ }$ a8 T
for i=25 to 36 do! s9 \5 _7 ?2 J& w
begin
* @+ w6 q1 ?$ J8 S/ C7 F; ?- g
str:=str+';'+NUMTOSTR(DYNAINFO(i),2);/ b; e2 {! r7 l# V, F: D8 @* U
end; a' j" Y2 D; R d U9 k1 A
- E Y8 P5 W r! A( \* f
<%7 o# z% J% A+ Q* a+ o/ {
vd1 = FFL.VarData("dd")+ X+ ]- r9 ^- ?3 `+ |
vd2 = FFL.VarData("str"), m8 W# h& ~0 n( Y' P% [% {9 N
nFirst = FFL.VarStartIndex("dd") 0 ^9 b0 v! p- Z/ S. C6 b
* i; \4 _6 |9 q4 F# T0 @
Set fso=CreateObject("Scripting.FileSystemObject")
9 ]$ I' r! @$ o" o% P" L# |
fn ="D:/fhdata/"+cstr(vd1(nFirst))+"data.txt"9 s; Z. K! I e) D! A
6 `3 L9 L( j$ C8 K% u/ f) H
Set f1 = fso.OpenTextFile(fn,8,True)
# D5 c# V/ H+ ?: W/ C0 |' v
f1.writeline vd2
% C, c* b* N# w( X) L) w; E' l8 y
f1.close- H" c" R1 I4 O( r+ S
7 ~' e3 \, b. ^+ l; r9 M, Z
%>9 w# t& J9 g# ?* ^, z
0 z h8 m4 p, e$ K. d
aa:time;: R4 U+ O1 u" l
Show File Failed# r8 ^) t/ F. |' B8 {: s( Y! |
& B9 }8 {, T5 ?, O% x
+ r7 c/ i- Z$ S0 g+ K3 q

复制代码

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

醉心发表于 2014-2-17 11:36
& t1 j; W+ _& H* d3 a用VB来写看看

对VB不太熟，先学习着

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

学习了，试试

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

醉心发表于 2014-2-17 11:36( A6 p+ k7 O. ?8 J/ c% E# r6 H
用VB来写看看

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

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

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

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