DW导出到excel文件（标题、数据）

String ls_kjname = '' //控件名

String ls_colname = ''  //字段名

String ls_kjnametemp = '' //临时存放string型日期值

String ls_docname = '' //文件完整路径

String ls_named = '' //文件名

String ls_sname_e = '' //标题英文名

String ls_sname_c = '' //标题中文名

String ls_value = '' //显示数据

String ls_visible = '' //可见属性

String ls_zcxx = '' //转存时信息

String ls_arname_c[] //数组中文名标题

Integer li_value = 0 //GetFilesaveName()返回值

Long ll_j = 0 //循环变量ll_j

Long ll_step = 0 //循环变量ll_step

Long ll_rowCount = 0 //显示数据的总行数

Long li_rowcount = 0 //记录总行数

Integer li_no = 0 //退出标记

Integer li_colcount = 0 //显示数据的总列数

Integer li_colNum = 0 //列数

Integer i = 0 //循环变量i

datastore lds_excel //临时DS

li_rowcount = dw_data.RowCount( )

If li_rowcount <= 0 Then

f_fmwshowmsg("M004I")

RETURN

Else

Do Until li_no = 1

//数据转存临时

DS lds_excel = Create datastore

lds_excel.DataObject = 'dw_sbnl_no'

lds_excel.SetTransObject(sqlca)

lds_excel.Reset()

//样品编号

DataWindow li_colcount = Integer(dw_data.object.datawindow.column.count)

ll_rowCount = dw_data.rowcount()

for ll_step = 1 to (ll_rowCount+1)

//临时DS增加要导出记录行数+1

lds_excel.insertrow(0)

next

for ll_step = 1 to li_colcount

ls_sname_e=Trim(dw_data.Describe("#"+string(ll_step)+'.name'))

//获得第i个字段的名称

ls_sname_c=Trim(dw_data.Describe(ls_sname_e+'_t.text'))

ls_visible=Trim(dw_data.Describe("#"+string(ll_step)+'.visible'))

if ls_sname_c = '!' or Trim(ls_sname_c) = '' or ls_visible = '0' then continue

li_colNum ++

lds_excel.setitem(1,"col"+string(li_colNum),ls_sname_c)

//加标题

for ll_j = 1 to ll_rowCount

//给临时DS第ll_j行第ll_step列赋值

if dw_data.describe(ls_sname_e + '.Type') = 'column' then

ls_value = dw_data.describe("Evaluate('LookupDisplay(" + ls_sname_e + ")',"+string(ll_j)+")")

end if

lds_excel.setitem(ll_j+1,"col"+string(li_colNum),ls_value)

next

next

li_value = GetFilesaveName("Save File",ls_docname, ls_named, "CSV", & + "CSV Files (*.XLS),*.XLS")

If li_value = 1 Then

If FileExists(ls_docname) Then

li_no = MessageBox("提示",ls_docname + "已经存在！是否覆盖？",Question!,YesNo!)

If li_no = 1 Then

lds_excel.SaveAs(ls_docname,EXCEL!,FALSE)

destroy lds_excel

Else

li_no = 1

End If

Else

lds_excel.SaveAs(ls_docname,EXCEL!,FALSE)

destroy lds_excel

li_no = 1

End If

Else

li_no = 1

End If

Loop

If li_value = -1 Then

f_fmwshowmsg("M022I")

RETURN

End If

End If