欢迎使用金字塔普通技术服务论坛,您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴,普通区问题处理速度慢,请耐心等待。谢谢您对我们的支持与理解。


金字塔客服中心 - 专业程序化交易软件提供商金字塔软件高级功能研发区 → 如将指定行情数据覆盖写入Excel的固定位置?

   

欢迎使用金字塔普通技术服务论坛,您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴,普通区问题处理速度慢,请耐心等待。谢谢您对我们的支持与理解。    


  共有4223人关注过本帖树形打印复制链接

主题:如将指定行情数据覆盖写入Excel的固定位置?

帅哥哟,离线,有人找我吗?
maxhuang
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:新手上路 帖子:24 积分:185 威望:0 精华:0 注册:2012/10/18 16:39:48
如将指定行情数据覆盖写入Excel的固定位置?  发帖心情 Post By:2012/11/6 22:38:18 [显示全部帖子]

我有这样的需求:

1、在1分钟K线上加载一个指标,指标每一分钟被执行一遍,代码的内容为将open ,close数值写入到一个EXCEL表中

2、EXCEL表名为:MYEXCEL 格式如下:

              第一列    第二列

   第一行  CLOSE   OPEN

   第二行   3000     2900

 

3、需要每次将读到的数据close,open分别覆盖写入到MYEXCEL的第一列第二行,和第二列第二行,

    

这样EXCEL表中的CLOSE 和OPEN下面的数据就每一分钟跳动一次,如何实现呢?请给指出一个完整的代码,谢谢啦!

 

之前精华贴中的下述代码如何修改呢?

 highs=ffl.vardata("highs")
 lows=ffl.vardata("lows")
 closes=ffl.vardata("closes")
 
 set oexcel=createobject("excel.application")
 oexcel.visible=true
 oexcel.workbooks.add
 
 for i=1 to ubound(dates)
  oexcel.cells(i,1).value=dates(i)
  oexcel.cells(i,2).value=opens(i)
  oexcel.cells(i,3).value=highs(i)
  oexcel.cells(i,4).value=lows(i)
  oexcel.cells(i,5).value=closes(i)
 next
%>


 

 

 


 回到顶部
帅哥哟,离线,有人找我吗?
maxhuang
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:新手上路 帖子:24 积分:185 威望:0 精华:0 注册:2012/10/18 16:39:48
  发帖心情 Post By:2012/11/7 12:44:03 [显示全部帖子]

我对VBS不是很熟,如何加几个语句,做到如下功能:

1、首先判断MYEXCEL这个文件有没有打开,如果没打开则打开

目前上面的代码是每次都创建一个新文件的。

    请赐教!谢谢啦!


 回到顶部
帅哥哟,离线,有人找我吗?
maxhuang
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:新手上路 帖子:24 积分:185 威望:0 精华:0 注册:2012/10/18 16:39:48
  发帖心情 Post By:2012/11/7 13:06:57 [显示全部帖子]

目前的代码每次调用ADD方法,每次打开一个新文件,很快就把机器弄崩溃了

 回到顶部
帅哥哟,离线,有人找我吗?
maxhuang
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:新手上路 帖子:24 积分:185 威望:0 精华:0 注册:2012/10/18 16:39:48
  发帖心情 Post By:2012/11/7 16:18:30 [显示全部帖子]

谢谢斑竹!


 回到顶部
帅哥哟,离线,有人找我吗?
maxhuang
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:新手上路 帖子:24 积分:185 威望:0 精华:0 注册:2012/10/18 16:39:48
  发帖心情 Post By:2012/11/7 20:44:01 [显示全部帖子]

什么是RTD,如何使用RTD实现我的功能需求?RTD有何好处啊,请赐教!谢谢啦!


 回到顶部
帅哥哟,离线,有人找我吗?
maxhuang
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:新手上路 帖子:24 积分:185 威望:0 精华:0 注册:2012/10/18 16:39:48
  发帖心情 Post By:2012/11/7 20:44:52 [显示全部帖子]

语句:Set objWorkbook = oexcel.Workbooks.Open("D:\sample.xls")  '打开指定文件

好像不行哦,打不开指定的EXCEL表,请大侠赐教啊!


 回到顶部