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

边缘_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
5 V( W0 b6 G& b2 T, A+ X是同时计算公式的时候，输出数据到EXCEL吗？

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

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

同问，请版主大人指教

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

用VB来写看看

# t4 d! z! K9 I. [8 b5 _4 O
5 g4 ]' \/ x% O' O# t9 d, i
if DATAPERIOD<>0 then
6 e0 c8 h5 t, l- X
begin
C8 [; h d+ O! X8 L! m
DRAWTEXT(BARPOS=SYSPARAM(2)+10,1,'本指标只能用于分笔分析');
. M5 g H9 u& |8 D2 j. U/ ^* D
exit;
. \5 y1 K+ k* G7 x. u; `; z
end;3 _: o: y5 Z' l w3 Y
' M' O g4 F: t! b; u& \2 {
dd:=date; G: W, G9 F! T U
; x% X; m! }( G9 Q. c
str:=NUMTOSTR(time,0)+';'+NUMTOSTR(v,0)+';'+NUMTOSTR(c,2);
7 e, T: U# U+ e( u3 u) m* F
for i=25 to 36 do* V5 X( m8 N' i: C
begin$ z1 ~6 k. K- I
str:=str+';'+NUMTOSTR(DYNAINFO(i),2);+ d' F3 ^+ H$ ~8 V, V2 T) l0 I% Q
end;
$ d- W+ Z- Y M, o) y
; D3 `! {# L* f; ^, T
<%, h2 f, V/ H7 S6 n) C. T \
vd1 = FFL.VarData("dd")0 p9 ~! C3 Q2 b B
vd2 = FFL.VarData("str")
* G, S8 H0 q+ u; k
nFirst = FFL.VarStartIndex("dd") 9 I4 k9 K0 k% I6 G8 d' }$ u
" u- R' A% V5 t
Set fso=CreateObject("Scripting.FileSystemObject"). p9 X6 r- v$ a. \+ g7 x
fn ="D:/fhdata/"+cstr(vd1(nFirst))+"data.txt"
% T% L# K" R) n- s; f. V
0 K0 u. ]' j7 h# I2 k; L" e* h* `% S8 Z
Set f1 = fso.OpenTextFile(fn,8,True), j* \4 s# d6 _1 Y4 n
f1.writeline vd2
) u0 E# J% E8 N, b5 \
f1.close
6 l; n# F+ q1 K; D! L
/ R: i3 P9 k7 h1 w. l% } s% I
%>
% b/ H1 f" E, ^. S/ |' s- g& P
$ R; N5 @$ K! Z7 v# D B
aa:time;
3 `) A) { C- ~
Show File Failed; W, m; K7 M: I
+ H( E+ ]1 l; ^7 b9 A ?
$ x( n' o- d+ f

复制代码

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

醉心发表于 2014-2-17 11:36
5 f. `' f8 I! i9 N) c$ `# `用VB来写看看

对VB不太熟，先学习着

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

学习了，试试

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

醉心发表于 2014-2-17 11:36) x: j$ |8 N* @" l
用VB来写看看

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

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

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

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