主题：怎么保存交易记录和成交记录到Access或者Excel

以下内容为程序代码:

1 Sub Stat()
2
3     dim date
4     dim code
5     dim market
6     dim ordertype
7     dim action
8     dim price
9     dim volume
10     dim kaiping
11     
12     set oexcel=createobject("excel.application")
13     oexcel.visible=true
14     oexcel.workbooks.add
15     
16     oexcel.cells(1,1).value="日期"
17     oexcel.cells(1,2).value="合约"
18     oexcel.cells(1,3).value="时间"
19     oexcel.cells(1,4).value="方向"
20     oexcel.cells(1,5).value="价格"
21     oexcel.cells(1,6).value="手数"
22     oexcel.cells(1,7).value="类型"    
23     
24     for i=1 to order.tradecount2        
25         call order.tradedetalied2(i-1,date,code,market,ordertype,action,price,volume,kaiping,"666666")
26         
27         oexcel.cells(i+1,1).value=left(date,9)
28         oexcel.cells(i+1,2).value=code
29         oexcel.cells(i+1,3).value=right(date,8)
30                 
31         if action=0 then
32             oexcel.cells(i+1,4).value="买"
33         elseif action=1 then
34             oexcel.cells(i+1,4).value="卖"
35         end if
36         
37         oexcel.cells(i+1,5).value=price    
38         oexcel.cells(i+1,6).value=volume
39         
40         if kaiping=0 then
41             oexcel.cells(i+1,7).value="开"
42         elseif kaiping=1 then
43             oexcel.cells(i+1,7).value="平"
44         end if
45     next
46 End Sub