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

边缘_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:009 A0 h9 @5 A1 {0 i P
是同时计算公式的时候，输出数据到EXCEL吗？

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

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

同问，请版主大人指教

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

用VB来写看看

# q/ C% d6 X) p& l
5 [* J3 @4 o |6 R8 o% A0 M
if DATAPERIOD<>0 then 8 I4 ]- z- A# Z; R
begin
* H2 B% k4 ]6 ?) l/ d' D
DRAWTEXT(BARPOS=SYSPARAM(2)+10,1,'本指标只能用于分笔分析');/ \* G1 z5 R3 A( _
exit;% H0 m' D# d0 b( Q/ _2 M. t
end;% e) G1 F8 i6 M5 f5 _' F
& v7 I+ @( T- b6 B" T6 `
dd:=date;# @& V" r# B/ U) c6 ?$ F+ M
6 W5 h: B1 X7 ~8 {
str:=NUMTOSTR(time,0)+';'+NUMTOSTR(v,0)+';'+NUMTOSTR(c,2);. ^0 ]! G# h" L+ E$ C$ `
for i=25 to 36 do
0 c$ z: f( U7 V! H9 l5 S5 T
begin8 S! @9 U& y) }4 K
str:=str+';'+NUMTOSTR(DYNAINFO(i),2);
) f; \! {$ }1 s/ _
end;
* l* E" E7 W: v. ?& P, h& @8 ? {
! P- A# p) T0 p/ L
<%8 ?% W" V1 h1 o3 n+ m# S
vd1 = FFL.VarData("dd")1 K5 `9 p3 J7 K% m' [- v
vd2 = FFL.VarData("str")& ~- s9 Q X8 v& ~0 h( [
nFirst = FFL.VarStartIndex("dd") 1 ~8 C0 y* t" C+ K) F7 m6 z/ z
% T4 w5 \; t- r' A$ h6 R2 k- M
Set fso=CreateObject("Scripting.FileSystemObject")/ ^' a. T9 {5 y! U! E
fn ="D:/fhdata/"+cstr(vd1(nFirst))+"data.txt"
|- M! M$ `1 o+ k# ]7 ]4 m) H
- ?/ A% Q9 V! U6 e4 I% K8 s
Set f1 = fso.OpenTextFile(fn,8,True)1 m }" L0 Y9 m+ e$ Q6 F
f1.writeline vd2
6 u7 x' j; \, `; P6 `6 d
f1.close, V# X2 F) \7 x# N7 ]+ G
9 H- T% I+ G1 r& K+ [* r, u# @
%>
& ], W* @5 k, N1 X+ w
" S4 n: B# P4 l; D& z) y4 \
aa:time;( A: E& r W: u
Show File Failed, s8 D% v) E0 q8 G
/ U3 ]. t0 Y/ D) V( M
8 K7 r& @9 u1 z ~- H

复制代码

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

醉心发表于 2014-2-17 11:36$ |. {: Z7 t& P$ m
用VB来写看看

对VB不太熟，先学习着

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

学习了，试试

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

醉心发表于 2014-2-17 11:36$ V8 h& s* L# a
用VB来写看看

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

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

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

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