Sub Test2()

dim date1(20)
dim code1(20)
dim market1(20)
dim ordertype1(20)
dim Action1(20)
dim Price1(20)
dim Volume1(20)
dim Kaiping1(20)

set oexcel=createobject("excel.application")
oexcel.visible=true
oexcel.workbooks.add


for i=0 to 20

order.TradeDetalied2 i,date1(i),code1(i),market1(i),ordertype1(i),action1(i),price1(i),volume1(i),kaiping1(i),"00081"

oexcel.cells(i,1).value=date1(i)
oexcel.cells(i,2).value=code1(i)
oexcel.cells(i,3).value=market1(i)
oexcel.cells(i,4).value=ordertype1(i)
oexcel.cells(i,5).value=action1(i)
oexcel.cells(i,6).value=price1(i)
oexcel.cells(i,7).value=volume1(i)
oexcel.cells(i,8).value=kaiping1(i)
next

End Sub