以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://www.weistock.com/bbs/index.asp)
--  高级功能研发区  (http://www.weistock.com/bbs/list.asp?boardid=5)
----  [求助]如何用VBA读取xls文件引用到附图指标？  (http://www.weistock.com/bbs/dispbbs.asp?boardid=5&id=97090)
--  作者：ch3coohqb
--  发布时间：2016/5/5 16:49:29
--  [求助]如何用VBA读取xls文件引用到附图指标？
我需要使用一些基本面的数据~
这些数据都是导出到xls文件~需要手动变成mdb文件
再用金字塔调用
由于量太大操作困难

是否有办法用金字塔直接调用xls？？
也就是说把基本面数据变成一个附图指标使用~

有人说可以用vba读取xls~我就问一下是否有范例~
vba读取xls变成金字塔的一个附图指标
--  作者：王锋
--  发布时间：2016/5/5 17:02:45
--  
你在高级区用Excel做关键字能搜出来一堆
--  作者：pel46585
--  发布时间：2016/5/9 10:11:59
--  

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"

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

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

[此贴子已经被作者于2016/5/9 10:12:33编辑过]