高级功能研发区-[原创]将开高低收写入excel的vbs金字塔客服中心 - 专业程序化交易软件提供商

以下内容为程序代码:

1 dates:=date;
2 opens:=open;
3 highs:=high;
4 lows:=low;
5 closes:=close;
6
7 ＜%
8     dates=ffl.vardata("dates")
9     opens=ffl.vardata("opens")
10     highs=ffl.vardata("highs")
11     lows=ffl.vardata("lows")
12     closes=ffl.vardata("closes")
13
14     set oexcel=createobject("excel.application")
15     oexcel.visible=true
16     oexcel.workbooks.add
17
18     for i=1 to ubound(dates)
19         oexcel.cells(i,1).value=dates(i)
20         oexcel.cells(i,2).value=opens(i)
21         oexcel.cells(i,3).value=highs(i)
22         oexcel.cells(i,4).value=lows(i)
23         oexcel.cells(i,5).value=closes(i)
24     next
25 %＞

dates:=date;
opens:=open;
highs:=high;
lows:=low;
closes:=close;

<%
dates=ffl.vardata("dates")
opens=ffl.vardata("opens")
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
%>

<%
dates=ffl.vardata("dates")
opens=ffl.vardata("opens")
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
%>