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

边缘_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' W7 h* p% Z$ F$ U4 u# |; a
是同时计算公式的时候，输出数据到EXCEL吗？

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

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

同问，请版主大人指教

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

用VB来写看看

( g: |3 R$ ~" P& `$ F
6 R) F8 Z6 `- g/ W) T4 t H
if DATAPERIOD<>0 then
$ }3 T5 s1 u* ^. i7 f
begin
$ {" K) W; X: v; u* U: y
DRAWTEXT(BARPOS=SYSPARAM(2)+10,1,'本指标只能用于分笔分析');6 e7 m* f9 Y- B2 ?" N( z. W
exit; `+ D: u- p4 V! ?$ o' A a& Z
end;4 |/ o) H. w; }2 Z% Q
% r( T# X! k1 b
dd:=date;- k$ I! k" R. _7 ~" k
- ` q8 ^3 A4 X' W# E
str:=NUMTOSTR(time,0)+';'+NUMTOSTR(v,0)+';'+NUMTOSTR(c,2);
. P& I% K s* e: G6 C* H
for i=25 to 36 do+ r$ y6 N' U, w+ h
begin
: ~+ g0 ?5 T( { p
str:=str+';'+NUMTOSTR(DYNAINFO(i),2);% @) n/ b0 w/ k
end;
, A) J0 y$ J9 D `3 i6 O
3 ^) Y3 f1 {6 H( M. n
<%9 p v- a4 ~; D2 X; _
vd1 = FFL.VarData("dd")+ s1 s- C7 m9 p3 _* v- o8 f
vd2 = FFL.VarData("str")
5 f$ @8 t! z& o
nFirst = FFL.VarStartIndex("dd") 4 K9 d8 I8 | D Z4 |2 A% J2 l* o
j$ _, {( w8 O$ z* Z" N5 V
Set fso=CreateObject("Scripting.FileSystemObject")
' v/ m: { R) T) o
fn ="D:/fhdata/"+cstr(vd1(nFirst))+"data.txt"
C0 ~; G7 {+ D0 u6 H3 c+ _8 c
) \) ^8 \$ s5 u
Set f1 = fso.OpenTextFile(fn,8,True) W* p5 Y" |' ^- f
f1.writeline vd2" Z& |$ k# t: a3 c$ W# k. D
f1.close
; q4 r P# T9 N" K
. x% K3 q. D$ [5 q, S3 i5 v. @# S
%>7 o5 ^9 ~5 ~- T2 O
# S4 \& P( L) q1 p& C. d
aa:time;. W; ]$ R, q7 N6 M1 F
Show File Failed
5 Z* h! y& C; P1 V: A) X
' D5 a2 ^- i" r+ u
1 n3 F; j& K Q1 J

复制代码

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

醉心发表于 2014-2-17 11:36: a: M% f/ E, Y+ b! q
用VB来写看看

对VB不太熟，先学习着

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

学习了，试试

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

醉心发表于 2014-2-17 11:36
+ L( Y6 D& S6 P" m用VB来写看看

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

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

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

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