我的代码如下：
Dim fso, txtf
FileName="F:\SIGTrader\experts\files\ STKNAME()" &".txt"
Set fso = CreateObject("Scripting.FileSystemObject")
set txtf=fso.createtextfile(filename,true)
这样生成的文件名总不是品种的相应代码，请高手指点
你又没有获取品种代码
可用grid对象获取品种代码或者名称
不明白如何使用grid，请老大帮我修改一下代码啊。多谢！
我的源码如下：
参数N为 600
ao:=o; ah:=h; al:=l; ac:c; av:=vol; amo:=amount;
y:=year; m:=month; d:=day; na:=STKLABEL; mc:=STKNAME();
<%
bo=ffl.vardata("ao")
bh=ffl.vardata("ah")
bl=ffl.vardata("al")
bc=ffl.vardata("ac")
bv=ffl.vardata("av")
bmo=ffl.vardata("amo")
by=ffl.vardata("y")
bm=ffl.vardata("m")
bd=ffl.vardata("d")
bna=ffl.vardata("na")
bmc=ffl.vardata("mc")
bn=ffl.vardata("n")
u=ubound(bo)
for i=0 to u-1
by(i)=0
bm(i)=0
bd(i)=0
next
by(u)=year(date):bm(u)=month(date):bd(u)=day(date)
yy=by(u)
mm=bm(u)
dd=bd(u)
for i=u-1 to 0 step -1
ss=cstr(bm(i+1)) &"/"& cstr(bd(i+1)) &"/" &cstr(by(i+1))
sh=dateadd("d",-1,ss)
if weekday(ss)=2 then sh=dateadd("d",-3,ss) end if
by(i)=year(sh)
bm(i)=month(sh)
bd(i)=day(sh)
nn=bn*100
nnn=u-nn
if (nnn<0 or nnn=u) then nnn=0 end if
next
Dim fso, txtf
FileName="F:\SIGTrader\experts\files\"&bmc & ".txt"
Set fso = CreateObject("Scripting.FileSystemObject")
set txtf=fso.createtextfile(filename,true)
for i=nnn to u
tr0=cstr(bm(i))
if bm(i)<10 then tr0="0"&cstr(bm(i)) end if
tr1=cstr(bd(i))
if bd(i)<10 then tr1="0"&cstr(bd(i)) end if
tr2= ""& cstr(by(i))&""& tr0 &""& tr1 &""
tr=tr2&","&cstr(round(bo(i)*10000)/10000)&","& cstr(round(bh(i)*10000)/10000)& ","&cstr(round(bl(i)*10000)/10000)& ","&cstr(round(bc(i)*10000)/10000)& ","&cstr(round(bv(i)*10000)/10000)& ","&cstr(round(bmo(i)*10000/10000))
txtf.WriteLine(tr)
next
txtf.Close
%>
使用VBA后台程序，不是在公式中使用vba，方式是
1、公式中使用EXTGBSTRINGSET('品种',stklabel)将品种代码写到全局字符串变量
2、在VBA模块中，使用aa=Document.GetExtString("品种")取出全局变量
3、后面的建立文件都可以在vba模块完成。
可以使用同样的方法将需要写入文件的数据先送到全局变量，然后在vba模块实现写文件，对于数值性数据，公式中使用EXTGBDATASET存入，
vba模块中使用document.getExtData("变量名")获取。