数据窗口挑出几个字段导出到EXCEL如何来做？
问题一 数据窗口挑出几个字段导出到EXCEL如何来做？
问题二 我的报表打印为什么每页后面都跟一个空白页，什么内容都没有？有什么办法给去掉？

[解决办法]
问题二：可能是因为你定制的dw比较宽，超过了你在print spec...中的设定宽度，所以，你要到dw的定制界面中找原因。
问题一：留下你的邮箱号码，给你发一个选择主dw中选择列显示的窗口，这是一个通用的功能窗口。
[解决办法]
string docname,named,ls_filter,ls_yhkh,ls_yhh
long ll_filenum,ll_flength,ll_lengthleft,i
integer value
if messagebox("提示","导出数据后,欠费数据请不要改变,确定将该数据导出到XLS文件吗?",question!,yesno!,1)=2 then return
if dw_1.rowcount() < 1 then
messagebox("提示","请先查询用户信息")
return
end if
value = GetFileSaveName ("请选择输出到文件名:",docname,named, "XLS", "XLS Files (*.XLS), *.XLS" )
if value = 0 then return
if value = 1 then ll_filenum = fileopen (docname,LineMode!, Write!, LockWrite!, Append!)

if ll_filenum = -1 then
messagebox("提示","文件打开错误！")
return
end if
FileWrite(ll_filenum,"编号"+char(9)+"用户名" + char(9) + "银行帐号" + char(9)+"欠费" + char(9) +"收费标志" + char(9))

for i = 1 to dw_1.rowcount()
FileWrite(ll_filenum,char(30)+string(dw_1.object.yhbh[i])+char(9)+ string(dw_1.object.hm[i])+ char(9) + string(dw_1.object.yhkh[i])+ char(9) + string(dw_1.object.qf[i]) +char(9) + string(dw_1.object.sfbz[i]))
next

messagebox('提示','数据保存成功 ! ')
fileclose(ll_filenum)
[解决办法]
问题一：如果不需要格式的xls格式，可sharedata一个dw，在dw中去掉不需要的列，然后saveas导出xls，简单快捷。如果需要格式的xls，那就用ole导出，网上例子一大堆。

问题二：我就不说了。
[解决办法]
二楼的朋友，也发个给我看看吧，谢谢了
suyun911@163.com