如何将cc这一组连续的数据导到excel文档中 - 高级功能研发区 - 金字塔客服中心 - 专业程序化交易软件提供商

金字塔客服中心 - 专业程序化交易软件提供商 → 金字塔软件 → 高级功能研发区 → 如何将cc这一组连续的数据导到excel文档中

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

共有6584人关注过本帖树形打印复制链接主题：如何将cc这一组连续的数据导到excel文档中

guotx2010

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：蜘蛛侠帖子：1366 积分：5210 威望：0 精华：7 注册：2010/12/11 18:00:33

Post By：2012/6/9 17:47:32 [显示全部帖子]

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

guotx2010

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：蜘蛛侠帖子：1366 积分：5210 威望：0 精华：7 注册：2010/12/11 18:00:33

Post By：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编辑过]