|
将DW数据窗口导出为EXCEL文件的方法（整理）(7) //Author : hzh
//date : 2003.12.08
//Modifier :
// 1. 2003.12.10 by hzh
//Reason :
// 1. 增加对计算列的处理
/**********************************************************/ long l_cnt,l_i,l_cols,l_rows string s_colnum ,s_colname,s_range OLEObject xlapp , xlsub //l_cols = long(ids_data.Object.DataWindow.Column.Count)
l_cols = UpperBound(is_columntitle)
l_rows = ids_data.RowCount()
IF NOT IsValid(xlApp) THEN
xlApp = CREATE OLEObject
END IF IF xlApp.ConnectToNewObject( "Excel.Application" ) < 0 THEN
MessageBox('ga_app.dwmessagetitle',"不能连接 EXCEL 服务器,请检查你的计算机中是 ~r~n " +&
"否安装了MS EXCEL ? 假如安装，请与程序供应商联系 !",QuesTion!)
RETURN -1
END IF //增加空文档 (EXCEL table)
xlApp.Application.Workbooks.add()
xlApp.Application.Visible = TRUE IF NOT IsValid(xlsub) THEN
xlsub = CREATE OLEObject
END IF //定位到第一格
xlsub = xlapp.Application.ActiveWorkbook.Worksheets[1] //取得最后列的字母表达式
IF Long(l_cols) > 26 then
//AA、AB...还是BA、BB、BC...
int i_colstart,i_colend
i_colstart = Mod(l_cols,26)
i_colend = l_cols / 26
s_colnum = "'" + Char(i_colstart + 96 ) + Char(i_colend + 96) + "'"
ELSE
//是 A,B,C...格式
s_colnum = char(l_cols + 96)
| 
