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

边缘_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
; i- J( H. J" q8 b( {/ B是同时计算公式的时候，输出数据到EXCEL吗？

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

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

同问，请版主大人指教

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

用VB来写看看

. l! m7 i x- T# H2 H4 G7 b+ c
* A. Z4 E4 r7 U3 H
if DATAPERIOD<>0 then 8 G1 l" E- D) N1 ~3 N, a: K
begin
% ~9 [* ` ?) h" d: K* l8 u
DRAWTEXT(BARPOS=SYSPARAM(2)+10,1,'本指标只能用于分笔分析');
% v2 u' } i9 o: h. o7 o$ g/ Z
exit;
3 {3 D8 U% x1 L, `5 p( H* U
end;1 [- H( _7 B2 I% \6 j! G3 J. x% ]4 a
- j8 a0 p* O+ p' Q* x, I
dd:=date;+ P N, @4 ^; w% [
3 N; s# A1 T8 p5 E. J V
str:=NUMTOSTR(time,0)+';'+NUMTOSTR(v,0)+';'+NUMTOSTR(c,2);) x) J, @) w3 \- }) S2 x9 Z% ~; s
for i=25 to 36 do% s! U+ m+ D! a! Z# k
begin7 Z. Z3 b5 c+ B+ T. A* `
str:=str+';'+NUMTOSTR(DYNAINFO(i),2);
, J/ p3 t* @) W( p7 Y, h4 t# q8 Y
end;
% j4 a, c3 L- l
# w3 u, h0 {8 ?7 f; D+ y
<%$ p9 D8 g" R* ^! j) C7 ]; d. }
vd1 = FFL.VarData("dd")
, U0 u, [8 C$ ]& {
vd2 = FFL.VarData("str"): O7 A: d) A' b* `; Y
nFirst = FFL.VarStartIndex("dd") 6 Y9 g/ \8 l9 ^" c5 r0 e& |
) q. R. X+ M7 h' d4 l4 x) u3 ]" O
Set fso=CreateObject("Scripting.FileSystemObject")7 q; l/ n$ ~2 R: F; G; ^
fn ="D:/fhdata/"+cstr(vd1(nFirst))+"data.txt"" a' G" j# J# [, }
% q, D0 |4 N7 K) ]" }& `" ~$ k4 z
Set f1 = fso.OpenTextFile(fn,8,True)6 |0 L& Q' n% D* _8 K! ^+ X
f1.writeline vd2
& \' y2 I1 Y" m/ l! o
f1.close4 g# y1 `0 O6 r' c2 |6 d% \. I
* ?3 Z+ p- u4 K3 _$ U5 ?
%>
8 G: N0 j: Q4 C1 H+ z
# R2 B1 x! C& C( Q2 D( ^. o# l' @
aa:time;' _/ u* e7 x$ ] O. V$ W' K
Show File Failed( ~2 Q$ b _( U2 p F6 b. k
! E7 ?3 S Y/ F$ R/ A2 y6 \) z
5 q0 \2 u6 ^7 |$ m$ q. G

复制代码

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

醉心发表于 2014-2-17 11:36# Z1 S( U+ z# G- r A% G2 a
用VB来写看看

对VB不太熟，先学习着

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

学习了，试试

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

醉心发表于 2014-2-17 11:36
$ H& c0 D8 Z! S. p' w$ C3 J; L& {用VB来写看看

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

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

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

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