复合数据窗口中的数据如何导出到excel。
请教复合数据窗口中的数据如何导出到excel？

[解决办法]
用dw2xls导
[解决办法]

OLEObject ole_object,ole_workbooks
ole_object = CREATE OLEObject
IF ole_object.ConnectToNewObject("Excel.Application")<>0 THEN
MessageBox('OLE错误','OLE无法连接')
return
END IF
ole_object.workbooks.add
ole_object.Visible=True
ole_workbooks=ole_object.Worksheets(1)
ole_workbooks.cells(1,1).value="ID"
ole_workbooks.cells(1,2).value="NAME"
ole_workbooks.cells(1,3).value="SEX"
ole_workbooks.cells(1,4).value="IQ"
ole_workbooks.cells(1,5).value="IP"
long l_row
for l_row = 1 to dw_1.rowcount()
ole_workbooks.cells(l_row,1).value=dw_1.getitemstring(l_row,1)
ole_workbooks.cells(l_row,2).value=dw_1.getitemstring(l_row,2)
ole_workbooks.cells(l_row,3).value=dw_1.getitemstring(l_row,3)
ole_workbooks.cells(l_row,4).value=dw_1.getitemstring(l_row,4)
ole_workbooks.cells(l_row,5).value=dw_1.getitemstring(l_row,5)
next
ole_workbooks.SaveAs("d:\pb_student.xls")
ole_object.quit()
Ole_Object.DisConnectObject()
Destroy Ole_Object
destroy ole_workbooks

不知能否帮到LZ

[解决办法]
依然顶贴！！！
[解决办法]
dw.saveasascii()
[解决办法]
string ls_docname,ls_named
integer li_value,li_r
li_value = getfilesavename("保存文件",ls_docname,ls_named,"xls","Excel Files(*.xls),*.xls,")
if fileexists(ls_docname) then
if messagebox("提示","文件已经存在要覆盖吗?",question!,yesno!,1) = 1 then
filedelete(ls_docname)
else
return
end if
end if
dw_saveasascii(ls_docname)