共3 条记录, 每页显示 10 条, 页签: [1]

标题：[原创]将开高低收写入excel的vbs

1楼

z7c9 发表于：2010/11/30 22:29:46

阅读版：

以下内容为程序代码:

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
%>

2楼

tzttyxy 发表于：2010/12/4 18:39:51

不错.最好能写入到一个EXCEL文件中,而不打开文件.对新增的K线能自动加入.

3楼

多头世家 发表于：2014/4/11 20:15:50

asdf

共3 条记录, 每页显示 10 条, 页签: [1]