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

边缘_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:004 g; C' O: ^+ m( ]* @
是同时计算公式的时候，输出数据到EXCEL吗？

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

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

同问，请版主大人指教

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

用VB来写看看

) s, c% |9 L6 m) t, W/ `
4 {6 `1 D# C0 @0 T
if DATAPERIOD<>0 then ' t+ w- h; m* N9 A8 n3 W
begin
$ r: g3 ?* M- P3 { z+ @
DRAWTEXT(BARPOS=SYSPARAM(2)+10,1,'本指标只能用于分笔分析');
* P s0 k0 T$ l: ?( [, `
exit;
end;% ^" \3 K$ l3 a4 h
: O) h: B" _- t& m5 W
dd:=date;
5 ]. ~+ E' n6 a# A0 D7 }! D5 b2 Y+ Z
. g" U1 M$ p1 j
str:=NUMTOSTR(time,0)+';'+NUMTOSTR(v,0)+';'+NUMTOSTR(c,2);& ~. _/ C+ U+ j# o6 l! N ~
for i=25 to 36 do
! p/ y d6 f' R! R: m
begin
7 b4 m2 z; C$ `% ?5 i( q& r1 K
str:=str+';'+NUMTOSTR(DYNAINFO(i),2);3 ?. b0 i2 |+ d5 f# O
end;
3 C( B( W7 C/ ^2 e
$ I" M2 ^ n! F
<%2 P& t/ P1 `; v, e6 F! z% V3 Z
vd1 = FFL.VarData("dd")
; D( Q' ^2 ?# E
vd2 = FFL.VarData("str")
5 {- e" F& Z4 K" G* z* s
nFirst = FFL.VarStartIndex("dd") 2 n) W& ~. K2 |: ~
. U2 S) f: P2 I/ r
Set fso=CreateObject("Scripting.FileSystemObject")
& j( A. Z4 J# b9 R" T& H
fn ="D:/fhdata/"+cstr(vd1(nFirst))+"data.txt": X# Y" k. v, K, u! Q
7 A4 \4 ]( G" k+ h
Set f1 = fso.OpenTextFile(fn,8,True)
- C% P0 q" \7 A _) r7 x
f1.writeline vd25 S* a0 H! W5 F# O
f1.close# ^) C" k6 [3 u4 _
% I5 G m' Y4 c
%>
( g6 H' w+ o% X" o; L
3 U) [# c2 c' v" D3 Z( q) r
aa:time;
5 C( ^( x" M* n6 {3 I* w! _
Show File Failed
% o7 W& {+ s0 g( T/ a7 o. Z
/ o" V% j( e0 l, k6 V
5 T* s' t% I# E* A

复制代码

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

醉心发表于 2014-2-17 11:36
; ]; v4 d) s% y4 A) H3 _用VB来写看看

对VB不太熟，先学习着

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

学习了，试试

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

醉心发表于 2014-2-17 11:36
$ v, `/ B2 b5 z4 R' c用VB来写看看

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

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

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

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