主题：如将指定行情数据覆盖写入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")
 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
%>

 

 

 

把循环去掉，改为固定行，就可以了

如：要固定写入第三行：

i=ubound(dates)

oexcel.cells(3,1).value=date(i)

oexcel.cells(3,2).value=opens(i)

...

 

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

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

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

    请赐教！谢谢啦！

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

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

谢谢斑竹！

其实自己做个RTD用起来获取更加方便一些吧

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

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

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