主题：如何将cc这一组连续的数据导到excel文档中

cc:ma(c,5); 如何将cc这一组连续的数据导到excel文档中，请教一下高手

这个好办呀，使用vbs公式就可以的。

if currenttime<090000 or Currenttime>151500 then
 exit;
 

cc:ma(c,5);
<%
 vbnewPrice1=FFL.VarData("cc")

 dim objExcel,objWorkbook
 
 on error resume next
 Set objExcel = getObject(,"Excel.Application")
 if err.number<>0 then
  Set objExcel = CreateObject("Excel.Application")
  Set objWorkbook = objExcel.Workbooks.Open("c:\aaa.xls")  '打开指定文件
 end if 
 
  objExcel.Visible = True
  vbRow=objExcel.sheets(1).UsedRange.Rows.Count+1
  'msgbox vbRow
   objExcel.sheets(1).Cells(vbRow,3).Value = Cdate(time)
   objExcel.sheets(1).Cells(vbRow,4).Value = vbnewPrice1
%>

 

注意：你需要建立一个excel文件aaa.xls放在c:\下。

 

请教一下，这些代码在放在哪一个软件里，是金字塔软件建一个新公式吗

是交易系统公式吗？

建立一个主图公式就行了。

cc:ma(c,5);
提示未定义的变量，无法判断该表达式的意图

 

已经ok

版主，它老是显示一行啊，vbrow也一直是2啊

这个如何加一个”存盘“、”退出“excel指令？因为不懂VBA，还盼指导

存盘退出，最好不要用在vbs公式中，因为保存需要耗费较长时间，而vbs公式刷新会很快，可能导致程序死机

我改成自定义的VBA函数，然后在即将收盘的最后3秒，调用一次，保存当天最后的结果，应该不会死机。