关于导出EXCEL问题？

[banlee]

请问有没有通用数据窗导出EXCEL的库文件呢？
有的话请发到我邮箱，谢谢，[e-mail]

[xiao_bai]

你搜索F&Q里面吧，有现成的例子的

[li_d_s]

http://www.desta.com.ua/dw2xls/index.html自己去下载

[braversmmu]

用SaveAsAscii()函数最简单了，不用什么库文件

[zengtang]

用saveas（）就可以了，具体 看pb的帮助，不过导出的表头是英文的，可自己通过编程设置成中文

[zengtang]

设置程序如下：
datawindow->Excel中文标题函数；参数datawindow adw_datawindow
string str_objects,str_object,str_column,str_add,ls_getobject,ls_getobjects
long lng_pos,i,ll_getvisible,ll_getpos

//str_add=adw_datawindow.Describe("DataWindow.Objects")+'~t'
str_objects=adw_datawindow.Describe("DataWindow.Objects")+'~t'
lng_pos=pos(str_objects,"~t")


i=1
do while lng_pos>0
str_object=left(str_objects,lng_pos - 1) //各个对象的名称
str_objects=mid(str_objects,lng_pos + 1)
lng_pos=pos(str_objects,"~t")
//细节区中的列对象及计算域
if adw_datawindow.describe(str_object+".band")='detail' and (adw_datawindow.describe(str_object+".type")='column' or adw_datawindow.describe(str_object+".type")='compute') and adw_datawindow.describe(str_object+".width")>'0' and adw_datawindow.describe(str_object+".visible")<>'false' then
str_column=adw_datawindow.describe(str_object+'_t.text') //列中文标题
adw_datawindow.Modify(str_object+".dbName='"+str_column+"'")
end if
loop

[tmxsl1214]

string str_full,str_file

IF GetFilesaveName("另存为......",str_full, str_file, "XLS","Excel Files (*.xls),*.xls") = 1 THEN
dw_1.saveas(str_full,excel!,false)
end if

[banlee]

请问Summary里面得合计内容怎么导出呢？

[banlee]

顶

[zhaozd]

邮件已发出，请查收一下

[banlee]

UP