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

边缘_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
1 s' B& k+ v0 V是同时计算公式的时候，输出数据到EXCEL吗？

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

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

同问，请版主大人指教

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

用VB来写看看

/ k7 M" ?2 {8 M/ V; M# F* ?- o
8 U P8 j/ G" m U7 m: i, d
if DATAPERIOD<>0 then
7 ]: a! k0 ~' l- ]! s; M5 A$ J
begin6 C, X2 b2 B# M1 }) T. u+ b# {$ l3 C
DRAWTEXT(BARPOS=SYSPARAM(2)+10,1,'本指标只能用于分笔分析');
( G8 V7 [1 D% J& I, {0 x& w2 f0 U
exit;- r2 y8 [0 c. a' [
end;7 L# h0 j9 Z8 t" ~$ F
1 J) m q0 C6 D" A- U
dd:=date;2 E9 T) e- t( u
% {, e8 p, N n) S/ A
str:=NUMTOSTR(time,0)+';'+NUMTOSTR(v,0)+';'+NUMTOSTR(c,2);- w# k6 j6 N3 Q" {. @. ^* P
for i=25 to 36 do) {5 X( n5 W7 |8 m" z
begin$ c3 p! n7 P7 e
str:=str+';'+NUMTOSTR(DYNAINFO(i),2);
3 M5 Y7 H7 {4 `
end;7 v$ e& b( g% D9 S" ?) z
5 ~7 p4 x; Z& q. T9 S/ w* K
<% t+ b u# d4 e. {* C$ `) E
vd1 = FFL.VarData("dd")( _9 Y, i1 B0 U2 ]( b
vd2 = FFL.VarData("str")
* o. D+ J$ d% f# W* l* L
nFirst = FFL.VarStartIndex("dd")
! m# {6 O6 G% ]3 o; z+ d9 n
7 n' @( M, W6 G/ n& l
Set fso=CreateObject("Scripting.FileSystemObject")/ Z1 ~' S% c# Y, z+ L3 D# H
fn ="D:/fhdata/"+cstr(vd1(nFirst))+"data.txt"8 b/ t" C. y+ x4 A3 K
( s, h) W" y$ {& `8 F* g9 F
Set f1 = fso.OpenTextFile(fn,8,True)
, r& x% M) C5 C* T3 N
f1.writeline vd2
V+ M0 |5 z" L$ O
f1.close, k+ P& E" [9 @, [7 Z. E
6 Q2 D8 p' @- S3 L9 z
%>! B9 ^! e' X, x8 I$ w, J1 H, v8 P
aa:time;1 @0 t- N/ b. r& X
Show File Failed
+ x5 E0 h2 H- l: o# b, S
& T8 `" s0 `+ m! x% Q
: t6 Q: E& R# p- q3 S

复制代码

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

醉心发表于 2014-2-17 11:36
v, F. v o1 l4 g# c7 J用VB来写看看

对VB不太熟，先学习着

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

学习了，试试

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

醉心发表于 2014-2-17 11:36
- G' S, S8 j- _$ u8 c7 k% v用VB来写看看

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

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

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

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