|
将DW数据窗口导出为EXCEL文件的方法（整理）(8) END IF //标题的设置
xlsub.cells[1,1] = as_title
xlsub.cells[1,1].HorizontalAlignment = 3
xlsub.cells[1,1].VerticalAlignment = 3
xlsub.cells[1,1].Font.Size = 18
//去处格子
xlsub.range("A1:" + s_colnum + "1").Merge()
FOR l_i = 1 TO l_cols
//设置标题列的名字
xlsub.cells[2,l_i] = is_columntitle[l_i]
NEXT ----------------------------------------------------
//画表格线
//数据行从第二行开始
s_range = "A2:" + s_colnum + Trim(String(l_rows + 2))
xlsub.range(s_range).borders(1).linestyle = 1
xlsub.range(s_range).borders(2).linestyle = 1
xlsub.range(s_range).borders(3).linestyle = 1
xlsub.range(s_range).borders(4).linestyle = 1
//将数据写到EXECL
FOR l_i = 1 TO l_cols
FOR l_cnt = 1 TO l_rows
IF is_columntype[l_i] = 'column' THEN
String s_evaluate
s_evaluate = "Evaluate('LookUpDisplay(" + is_columnname[l_i]
s_evaluate += ")'," + String(l_cnt) + ')'
xlsub.cells[l_cnt + 2,l_i].FormulaR1C1 = ids_data.Describe(s_evaluate)
ELSE
xlsub.cells[l_cnt + 2,l_i].FormulaR1C1 = &
ids_data.uf_getitemvalue(l_cnt,is_columnname[l_i])
END IF
xlsub.cells[l_cnt + 2,l_i].NumberFormatLocal = is_columnformat[l_i]
NEXT
NEXT xlapp.Application.ActiveWorkbook.saved = FALSE xlApp.DisConnectObject() IF IsValid(xlApp) THEN
DESTROY xlapp
END IF IF IsValid(xlsub) THEN
DESTROY xlsub
END IF RETURN 1
end function public function string uf_about (); /**********************************************************/
//Function : 用户对象功能介绍
//parm : None
| 
