将数据窗口数据导入到excel带标题

《将数据窗口数据导入到excel带标题》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、/*========================================================================*///函数名:gf_dw2excel//作用范围:public/*------------------------------------------------------------------------*///描述:将数据窗口的数据传递至EXCEL表格中,列数有26列限制(一般情况已经够用了)/*---------------------------------------------------------------------

2、---*///参数://[value]datawindowadw_data需要保存的数据窗口//[value]stringas_reptitle表格标题/*------------------------------------------------------------------------*///返回值:LONG/*------------------------------------------------------------------------*///作者:xiaolihua日期:2003-05-20//修改:DoItNow日期:2003.06.06/*=====

3、===================================================================*/CONSTANTIntegerppLayoutBlank=12PointeroldpointerOLEObjectole_objectole_object=CREATEOLEObjectStrings_english="ABCDEFGHIJKMNLOPQRSTUVWXYZ"Integerli_ret////////////////////////////////////////////////////////////////////////======

4、==============================================================//Script-gf_dw2excel(datawindowadw_data,stringas_reptitle)//[Reason]:由于再已经打开EXCEL的情况下,使用连接OLE时有时出错,所以改为//直接连接新的OLE应用。//--------------------------------------------------------------------//[MODIFIEDBy]:DoItNowDate:2003.06.06//=========

5、===========================================================//li_ret=ole_object.ConnectToObject("","Excel.Application")//IFli_ret<>0THEN////如果Excel还没有打开，则新建。li_ret=ole_object.ConnectToNewObject("Excel.Application")IFli_ret<>0THENMessageBox('打开错误','无法连接EXCEL!是否已经安装了EXCEL?错误号：'+String(li_ret))RETURN

6、0ENDIFole_object.Visible=FALSE//ole应用服务是否显示//ENDIF//-------MODIFIEDEND-------------------------------------------------//////////////////////////////////////////////////////////////////////oldpointer=SetPointer(HourGlass!)ole_object.Workbooks.AddLongll_colnum,ll_rownumStringls_valueStringls_objec

7、ts,ls_obj,ls_objs[],ls_objtag[],ls_width[]Longll_pos,ll_len,ll_num=0//Excel表格中的行数为数据窗口行数+2ll_rownum=adw_data.RowCount()+2Stringls_colnameIntegeri,jDecld_widthll_colnum=Long(adw_data.Object.DataWindow.Column.Count)//取得字