【【怎么从数据窗口导出excel】】
在一个窗口里的数据窗口显示出的数据，怎么导出保存到excel里啊？这个好实现吗？如果不难的话哪位大虾能帮忙写下关键代码啊。。。谢谢了
[解决办法]
晚上没有大虾解决问题么？？
[解决办法]
数据窗口有另存为excel的函数，具体名字记不清楚了，自己查一下帮助。
[解决办法]
要求不高的话可以自己写，不过建议还是用dw2xls吧，简单省事。
[解决办法]
saveasascii()
[解决办法]
dw_1.saveas(ls_assize,excel!,false)
然后建立Excel对象
OLEObject Ole_1
Ole_1 = Create OLEObject
li_rc = Ole_1.ConnectToObject(ls_assize)
if li_rc <> 0 then
destroy ole_1
return
end if
修改表头等；网上有相关的例子
[解决办法]
黄国酬dw2xls源程序(F1版本) dw2xls 开源 数据窗口导出excel
http://download.csdn.net/source/1294876
如果是普通grid类型表格（不包含计算域）格式没有特殊要求的话，直接使用saveas函数即可
[解决办法]
恩，同意使用黄国酬dw2xls源程序(F1版本) dw2xls 开源 数据窗口导出excel ！
[解决办法]
红色部分为关键代码，你可以参照一下
//产生oleobject的实例
xlapp = Create OLEObject
//连接ole对象
ret = xlapp.ConnectToNewObject( 'Excel.Application' )
IF ret < 0 THEN
MessageBox('连接失败!','连接到EXCEL失败,请确认您的系统是否已经安装EXCEL!~r~n'&
+'错误代码:'+String(ret))
Close(w_jkloading)
RETURN 1
END IF
// 打开EXCEL文件
xlapp.Application.Workbooks.Open(ls_mpath)
//将数据窗口的值导入到EXCEL文件numrows = dw_1.RowCount()
xlapp.Application.Workbooks[1].Worksheets[1].cells[2,1] = "业务员：" + ddlb_ywyjl.Text
xlapp.Application.Workbooks[1].Worksheets[1].cells[3,1] = "月 份：" + ls_yf
xlapp.Application.Workbooks[1].Worksheets[1].cells[3,4] = "日期范围：" + em_begin.Text + "-" + em_end.Text
xlapp.Application.Workbooks[1].Worksheets[1].cells[2,11] = "期初金额：" + st_qcye.Text
xlapp.Application.Workbooks[1].Worksheets[1].cells[3,11] = "期末金额：" + st_qmye.Text
xlapp.Application.Workbooks[1].Worksheets[1].cells[2,14] = "期初铺底：" + st_qcpd.Text
xlapp.Application.Workbooks[1].Worksheets[1].cells[3,14] = "期末铺底：" + st_qmpd.Text
FOR ii = 1 To numrows
xlapp.Application.Workbooks[1].Worksheets[1].cells[4+ii,1] = dw_1.describe("Evaluate('lookupdisplay(spno)'," + string(ii) + ")")+"("+dw_1.Object.spno[ii]+")"
xlapp.Application.Workbooks[1].Worksheets[1].cells[4+ii,2] = dw_1.Object.gg[ii]
xlapp.Application.Workbooks[1].Worksheets[1].cells[4+ii,3] = dw_1.Object.js[ii]
xlapp.Application.Workbooks[1].Worksheets[1].cells[4+ii,4] = dw_1.Object.sl[ii]
xlapp.Application.Workbooks[1].Worksheets[1].cells[4+ii,5] = dw_1.Object.dj[ii]
xlapp.Application.Workbooks[1].Worksheets[1].cells[4+ii,6] = dw_1.Object.cjje[ii]
xlapp.Application.Workbooks[1].Worksheets[1].cells[4+ii,7] = dw_1.Object.fl[ii]
xlapp.Application.Workbooks[1].Worksheets[1].cells[4+ii,8] = dw_1.Object.gz[ii]
xlapp.Application.Workbooks[1].Worksheets[1].cells[4+ii,9] = dw_1.Object.hk[ii]
xlapp.Application.Workbooks[1].Worksheets[1].cells[4+ii,10] = dw_1.Object.cjbfsj[ii]
xlapp.Application.Workbooks[1].Worksheets[1].cells[4+ii,11] = dw_1.Object.bzf[ii]
xlapp.Application.Workbooks[1].Worksheets[1].cells[4+ii,12] = dw_1.Object.xj[ii]
xlapp.Application.Workbooks[1].Worksheets[1].cells[4+ii,13] = dw_1.Object.hspdje[ii]
xlapp.Application.Workbooks[1].Worksheets[1].cells[4+ii,14] = dw_1.Object.hkhlrq[ii]
xlapp.Application.Workbooks[1].Worksheets[1].cells[4+ii,15] = dw_1.Object.hkhlje[ii]
xlapp.Application.Workbooks[1].Worksheets[1].cells[4+ii,16] = dw_1.Object.hkdw[ii]
Yield()
NEXT
xlapp.Application.Workbooks[1].Worksheets[1].cells[4+ii,3] = "=sum(C5:C"+string(4 + ii - 1)+")"
xlapp.Application.Workbooks[1].Worksheets[1].cells[4+ii,6] = "=sum(F5:F"+string(4 + ii - 1)+")"
xlapp.Application.Workbooks[1].Worksheets[1].cells[4+ii,7] = "=sum(G5:G"+string(4 + ii - 1)+")"
xlapp.Application.Workbooks[1].Worksheets[1].cells[4+ii,15] = "=sum(O5:O"+string(4 + ii - 1)+")"
xlapp.Application.Workbooks[1].Worksheets[1].cells[4+ii,2] = "合计："
ls_qy = "A5:P"+String(4+ii)
FOR i = 1 To 4
xlapp.ActiveSheet.Range(ls_qy).Borders(i).LineStyle = 1
NEXT
xlapp.Range(ls_qy).SELECT
xlapp.Selection.Font.Size = 12
xlapp.Selection.Font.Name = "宋体"
xlapp.Application.workbooks(1).Save()
xlapp.Application.DisplayAlerts = False
xlapp.Application.Quit()
xlapp.DisconnectObject()
Destroy xlapp
if MessageBox('导出成功!',"导出成功!保存文件路径为~r~n“"+ls_mpath+"”~r~n是否打开文件所在的文件夹？",Question!,YesNo! ) = 1 then
ShellExecute(0,"open",ls_path,"","",1)
end if
[解决办法]
如果对格式没有特殊要求的话，只需要使用datawindow的saveas方法就可以完成。
[解决办法]
xue xi le
