以下内容为程序代码:

1 EXTGBSTRINGSET(\'字符串\',Stkname+numtostr(close,0)); //这里的‘字符串’是你自己取的变量名
2
3 ＜%
4 Sub create(fso,path)
5 If fso.FolderExists(path) Then
6 Exit Sub
7 End If
8 If Not fso.FolderExists(fso.GetParentFolderName(path)) Then
9 create fso,fso.GetParentFolderName(path)
10 End If
11 fso.CreateFolder(path)
12 End Sub
13 Set fso = CreateObject("scripting.filesystemobject")
14 outputf = "E:\\" \'修改成你所要输出的绝对路径
15 \' 注意:1.不能缺少最后的"\\"号
16 \' 2.注意输出目录的关系必须保证在此目录的上一级目录存在GET.EXE,确保调用无误
17 \' 3.请自行设置AGET的输入目录为此目录
18 create fso,outputf
19 set fso = Nothing
20 Dim Marketlabels,Stknames,Datatypes,Opens,Highs,Lows,Closes,Vols,Amounts,Years,Months,Days
21 Barposes = ffl.vardata("_Barpos")
22 Years = ffl.vardata("_Year")
23 Months = ffl.vardata("_Month")
24 Days = ffl.vardata("_Day")
25 Datatypes = ffl.vardata("_Datatype")
26 Marketlabels = ffl.vardata("_Marketlabel")
27
28 \'Stknames = ffl.vardata("_StkName")
29 Stknames = document.getextData("字符串") \'获取公式中设置的变量值