其中,数据窗口对应一个表中全部数据,改表字段为 : 商品编号,商品名称,产地,供应商全称,进价,数量,金额

OLEObject ole_object,ole_workbooks
ole_object = create OLEObject

if ole_object.connecttonewobject("excel.application")<>0 then
    messagebox("提示","OLE连接失败!")
    return
end if
ole_object.workbooks.add
ole_object.visible = true

ole_workbooks = ole_object.worksheets(1)
ole_workbooks.cells(1,1).value = "商品编号"
ole_workbooks.cells(1,2).value = "商品名称"
ole_workbooks.cells(1,3).value = "产地"
ole_workbooks.cells(1,4).value = "供应商全称"
ole_workbooks.cells(1,5).value = "进价"
ole_workbooks.cells(1,6).value = "数量"
ole_workbooks.cells(1,7).value = "金额"
long row_num
for row_num = 2 to dw_1.rowcount() 
    ole_workbooks.cells(row_num,1).value = dw_1.getitemstring(row_num,1)
    ole_workbooks.cells(row_num,2).value = dw_1.getitemstring(row_num,2)
    ole_workbooks.cells(row_num,3).value = dw_1.getitemstring(row_num,3)
    ole_workbooks.cells(row_num,4).value = dw_1.getitemstring(row_num,4)
    ole_workbooks.cells(row_num,5).value = dw_1.getitemnumber(row_num,5)
    ole_workbooks.cells(row_num,6).value = dw_1.getitemnumber(row_num,6)
    ole_workbooks.cells(row_num,7).value = dw_1.getitemnumber(row_num,7)
next
ole_workbooks.saveas("d:\data.xls")
ole_object.quit()
ole_object.disconnectobject()
destroy ole_object
destroy ole_workbooks

出现这个问题,实在是迷茫,请哪位高手知道一下啊,在此谢过!