cc:=close;
IF NOT(ISLASTBAR) THEN EXIT;
<%
Set obj = CreateObject("Scripting.FileSystemObject")
Set OFile = obj.OpenTextFile("D:\Program Files\Weisoft Stock\wpdsingle.csv", 1)
xTxt = OFile.ReadAll
OFile.Close
Set obj = Nothing
vcc=ffl.VarData("cc")
fg = Split(xTxt, vbCrLf)
xEnd = UBound(fg)
For i = 1 To xEnd - 1
fgg = Split(fg(i), "=")
vcc(i-1) = Val(fgg(1))
Next
ffl.VarData("cc") = vcc
%>
vsp: cc;
例子用的csv格式文件,具体excel格式可以百度"vb excel"
这个例子是公式,新建一个公式就可以了。
可能上面的代码有错误的地方,只提供大约思路。