【【如何从数据窗口导出excel】】
【【怎么从数据窗口导出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.****.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]
在一个窗口里的数据窗口显示出的数据，怎么导出保存到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.****.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]