以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  高级功能研发区  (http://weistock.com/bbs/list.asp?boardid=5)
----  如何将cc这一组连续的数据导到excel文档中  (http://weistock.com/bbs/dispbbs.asp?boardid=5&id=12331)
--  作者：jalo527
--  发布时间：2012/6/9 13:51:18
--  如何将cc这一组连续的数据导到excel文档中

cc:ma(c,5); 如何将cc这一组连续的数据导到excel文档中，请教一下高手
--  作者：guotx2010
--  发布时间：2012/6/9 17:47:32
--  

这个好办呀，使用vbs公式就可以的。
--  作者：guotx2010
--  发布时间：2012/6/9 18:01:13
--  

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:\\下。

 

[此贴子已经被作者于2012-6-9 18:02:28编辑过]
--  作者：jalo527
--  发布时间：2012/6/9 19:00:10
--  管理员 ，帮我看下代码 逻辑上哪里出问题了

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

是交易系统公式吗？
--  作者：guotx2010
--  发布时间：2012/6/9 20:57:11
--  

建立一个主图公式就行了。
--  作者：zjfuwen
--  发布时间：2012/8/23 21:13:12
--  

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

 

已经ok

[此贴子已经被作者于2012-8-23 21:17:33编辑过]
--  作者：zjfuwen
--  发布时间：2012/8/23 21:26:56
--  
版主，它老是显示一行啊，vbrow也一直是2啊
--  作者：deni977
--  发布时间：2014/3/24 12:23:20
--  
这个如何加一个”存盘“、”退出“excel指令？因为不懂VBA，还盼指导
--  作者：guotx2010
--  发布时间：2014/3/24 15:25:59
--  
VBRow是已经使用的行数+1，应该会自动递增的。
存盘退出，最好不要用在vbs公式中，因为保存需要耗费较长时间，而vbs公式刷新会很快，可能导致程序死机
--  作者：deni977
--  发布时间：2014/3/24 18:41:52
--  
我改成自定义的VBA函数，然后在即将收盘的最后3秒，调用一次，保存当天最后的结果，应该不会死机。

在上述代码加了这两句：
objExcel.application.save
objExcel.application.quit

但是还是不存盘退出，不知道为什么？（数据已经能够输送到Excel表格了）