数据窗口导出到excel时的一个问题
从数据窗口导出到excel文档,导出的代码如下,但是导出来的文档中的数据比数据窗口中显示的数据少了第一行 其中,数据窗口对应一个表中全部数据,改表字段为 : 商品编号,商品名称,产地,供应商全称,进价,数量,金额
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
出现这个问题,实在是迷茫,请哪位高手知道一下啊,在此谢过!
蓝色快车PB俱乐部论坛
浏览：数据窗口导出到excel时的一个问题
顶端 
保密
