主题：[求助]如何用VBA读取xls文件引用到附图指标？

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"

这个例子是公式，新建一个公式就可以了。

可能上面的代码有错误的地方，只提供大约思路。