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

边缘_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! _8 `6 i' Y/ x$ W2 \: K
是同时计算公式的时候，输出数据到EXCEL吗？

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

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

同问，请版主大人指教

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

用VB来写看看

2 M {# `1 o: U/ E% G( m
$ c# w! Z2 S: S& }
if DATAPERIOD<>0 then 7 \' ~: \1 y: E# r. _
begin
, T/ u+ K6 a/ F9 ?/ [) C4 F, P7 ?
DRAWTEXT(BARPOS=SYSPARAM(2)+10,1,'本指标只能用于分笔分析');2 Z4 D) s+ ?+ O6 j" c) Y$ J( c" {8 U
exit;6 p' P; M8 R6 h' J
end;
, E1 {+ r& m h- P; h$ M
U* H; d, P6 S+ i; Q
dd:=date;# q! I% T- P' F( ` b) ]& E- H$ e& _
% m: c6 L8 w; k4 m
str:=NUMTOSTR(time,0)+';'+NUMTOSTR(v,0)+';'+NUMTOSTR(c,2);
1 g6 P+ Z3 L* B% }6 p' W' B% i
for i=25 to 36 do8 q/ e6 T% _& `6 e Q4 ?
begin, z8 ~9 \% h1 d7 B
str:=str+';'+NUMTOSTR(DYNAINFO(i),2);9 s2 u. ?$ w" C) _. E6 U0 e
end;$ F: }* K8 `5 w1 k
! v/ t# M4 ~. x( i. q3 e/ D
<%
9 C6 @& w! T& r5 M* |
vd1 = FFL.VarData("dd")
& r7 I0 g2 j* E: p1 J
vd2 = FFL.VarData("str")
/ B, Y& k7 V4 |
nFirst = FFL.VarStartIndex("dd") / p0 K" U. }* O% E& z# D
; C$ E. H/ W0 Q% a3 r+ ]' ?
Set fso=CreateObject("Scripting.FileSystemObject")7 a |' _8 D2 I6 f8 f
fn ="D:/fhdata/"+cstr(vd1(nFirst))+"data.txt"
8 w4 A# o% ?6 R2 K/ O F
, r& A; ~7 v4 Q
Set f1 = fso.OpenTextFile(fn,8,True)' @9 n. X/ D$ `9 t' C; `0 c
f1.writeline vd2
, z- f& N. K! `2 A+ J
f1.close
9 {* b0 N/ a9 M" Q
' Q- B7 p2 b$ }/ z4 L. ~: x
%>
; r) p Y6 c: l# S4 |
" u, j" l2 Q( d7 }
aa:time;
7 k# m$ U$ _% E& a, {
Show File Failed$ p# D; R9 J) R' D
/ {" P9 L# Y3 [% o
E3 C/ r l% {) a+ f" M) n$ |

复制代码

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

醉心发表于 2014-2-17 11:364 z% V) n9 v/ o
用VB来写看看

对VB不太熟，先学习着

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

学习了，试试

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

醉心发表于 2014-2-17 11:360 o& k" h: {8 Q; g6 i. u
用VB来写看看

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

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

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

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