以文本方式查看主题 - 金字塔客服中心 - 专业程序化交易软件提供商 (http://weistock.com/bbs/index.asp) -- 高级功能研发区 (http://weistock.com/bbs/list.asp?boardid=5) ---- 如将指定行情数据覆盖写入Excel的固定位置? (http://weistock.com/bbs/dispbbs.asp?boardid=5&id=30445) |
-- 作者:maxhuang -- 发布时间:2012/11/6 22:38:18 -- 如将指定行情数据覆盖写入Excel的固定位置? 我有这样的需求: 1、在1分钟K线上加载一个指标,指标每一分钟被执行一遍,代码的内容为将open ,close数值写入到一个EXCEL表中 2、EXCEL表名为:MYEXCEL 格式如下: 第一列 第二列 第一行 CLOSE OPEN 第二行 3000 2900
3、需要每次将读到的数据close,open分别覆盖写入到MYEXCEL的第一列第二行,和第二列第二行,
这样EXCEL表中的CLOSE 和OPEN下面的数据就每一分钟跳动一次,如何实现呢?请给指出一个完整的代码,谢谢啦!
之前精华贴中的下述代码如何修改呢? highs=ffl.vardata("highs")
|
-- 作者:guotx2010 -- 发布时间:2012/11/7 12:20:55 -- 把循环去掉,改为固定行,就可以了 如:要固定写入第三行: i=ubound(dates) oexcel.cells(3,1).value=date(i) oexcel.cells(3,2).value=opens(i) ...
|
-- 作者:maxhuang -- 发布时间:2012/11/7 12:44:03 -- 我对VBS不是很熟,如何加几个语句,做到如下功能: 1、首先判断MYEXCEL这个文件有没有打开,如果没打开则打开 目前上面的代码是每次都创建一个新文件的。 请赐教!谢谢啦! |
-- 作者:maxhuang -- 发布时间:2012/11/7 13:06:57 -- 目前的代码每次调用ADD方法,每次打开一个新文件,很快就把机器弄崩溃了 |
-- 作者:guotx2010 -- 发布时间:2012/11/7 15:26:17 -- on error resume next Set oexcel= getObject(,"Excel.Application") if err.number<>0 then Set oexcel= CreateObject("Excel.Application") Set objWorkbook = oexcel.Workbooks.Open("D:\\sample.xls") \'打开指定文件 end if oexcel.Visible = True |
-- 作者:maxhuang -- 发布时间:2012/11/7 16:18:30 -- 谢谢斑竹! |
-- 作者:rogerangel -- 发布时间:2012/11/7 17:01:30 -- 其实自己做个RTD用起来获取更加方便一些吧 |
-- 作者:maxhuang -- 发布时间:2012/11/7 20:44:01 -- 什么是RTD,如何使用RTD实现我的功能需求?RTD有何好处啊,请赐教!谢谢啦! |
-- 作者:maxhuang -- 发布时间:2012/11/7 20:44:52 -- 语句:Set objWorkbook = oexcel.Workbooks.Open("D:\\sample.xls") \'打开指定文件 好像不行哦,打不开指定的EXCEL表,请大侠赐教啊! |