将DW数据窗口导出为EXCEL文件的方法（整理）

将DW数据窗口导出为EXCEL文件的方法（整理）(15) //                      1. 增加对计算列的处理
/**********************************************************/

long l_cnt,l_i,l_cols,l_rows

string s_colnum ,s_colname,s_range

OLEObject xlapp , xlsub

FOR l_i = 1 TO UpperBound(is_columntitle)
 IF IsNull(is_columntitle[l_i]) THEN EXIT
 l_cols++
NEXT

2.
函数 : uf_initcolumn  处理 datetime 格式不是很好

CASE 'date'//,'datetime'
   s_datatype = Lower(ds_excel.GetItemString(i_cnt,'coltype'))
   IF s_datatype = 'datetime' THEN
    is_columnformat[i_cnt] = 'yyyy-m-d h:mm'
   ELSE
    is_columnformat[i_cnt] = 'yyyy""年""m""月""d""日""'
   END IF

3. 这个不是错误，可以加强一下功能
//特别指定日期专用格式为 char(10)
   s_datatype = Lower(ds_excel.GetItemString(i_cnt,'coltype'))
   IF s_datatype = 'char(10)' THEN
    is_columnformat[i_cnt] = 'yyyy""年""m""月""d""日""'
   END IF
   
   //特别指定时间专用格式为 char(8)
   s_datatype = Lower(ds_excel.GetItemString(i_cnt,'coltype'))
   IF s_datatype = 'char(8)' THEN
    is_columnformat[i_cnt] = 'h""时""mm""分""ss""秒""'
   END IF

   //特别指定日期时间专用格式为 char(19)
   s_datatype = Lower(ds_excel.GetItemString(i_cnt,'coltype'))
   IF s_datatype = 'char(19)' THEN
    is_columnformat[i_cnt] = 'yyyy-m-d h:mm'
   END IF

根据代码，只有 char(8),10,19 才有啊，这是我设计日期，时间等的专用格式

-----------------------------------------------------------

我再把另外一个帖子当中中国龙的方法也贴过来，那个帖子可能由于CSDN历史帖子管理原因无法成功添加为FAQ，也很可惜，大家如果有其他好的方法也请一并贴上来：

llitcwl(中国龙):

//====================================================================