把DBF文件导出成EXCEL文件.doc

把DBF文件导出成EXCEL文件，导出后不用再调整格式，可直接打印。 使用方法：先打开DBF数据库，再运行此程序即可 PARAMETERS thefilename,theheader 导出后保存的文件名和EXECL表格表头 curprint ALIAS IF EMPTY theheader theheader curprint endif **PUBLIC dbfarray 30,15 ncount AFIELDS dbfarray ****以下代码检查每个字段的最长字符的长度,并将此长度数据保存到dbfarray i,3 中. LOCAL fld1,len1 FOR i 1 TO ncount fld1 ALLTRIM dbfarray i,1 len1 LEN fld1 DO case case dbfarray i,2 C OR dbfarray i,2 V SELECT MAX LEN ALLTRIM fld1 as maxlen FROM curprint INTO CURSOR thelen dbfarray i,3 IIF len1 thelen.maxlen,len1,thelen.maxlen-1 case dbfarray i,2 D dbfarray i,3 IIF len1 dbfarray i,3 +DBFarray i,4 +1,len1,DBFarray i,3 +dbfarray i,4 +1 CASE dbfarray i,2 T dbfarray i,3 IIF len1 15,len1,15 otherwise dbfarray i,3 IIF len1 dbfarray i,3 +DBFarray i,4 ,len1,DBFarray i,3 +dbfarray i,4 endcase dbfarray i,3 IIF dbfarray i,3 5,dbfarray i,3 +1,dbfarray i,3 ENDFOR GO top WAIT WINDOW 正在导出数据 AT MROW ,MCOL nowait **以下设置EXCEL表格头 oex1 CREATEOBJECT excel.application If Type oex1 O MESSAGEBOX 创建EXCEL文件出错,当前系统可能没有安装 Microsoft EXCEL 或者 EXCEL 运行出错.,0+16,提示 RETURN endif oex1.workbooks.add oex1.worksheets sheet1 .activate oex1.activesheet.pagesetup.printtitlerows $1:$2 oex1.activesheet.pagesetup.papersize 9 oex1.activesheet.pagesetup.orientation 1 oex1.activesheet.pagesetup.centerfooter 第P页 共N页 oex1.activesheet.pagesetup.headermargin 2/0.035 oex1.activesheet.pagesetup.footermargin 2/0.035 oex1.activesheet.pagesetup.zoom 100 oex1.cells 1,1 .value theheader oex1.cells 1,1 .font.name 黑体 oex1.cells 1,1 .font.size 14 oex1.cells 1,1 .horizontalalignment 2 oex1.range retuabc 1 +1:+retuabc ncount +1 .merge **oex1.visible .t. ****以下循环生成表格头 FOR i 1 TO ncount oex1.activesheet.columns i .font.size 10 IF dbfarray i,3 60 oex1.activesheet.columns i .columnwidth dbfarray i,3 ELSE oex1.activesheet.columns i .columnwidth 60 如果字段宽度超过60字符,则设置为最宽为60,单元格为自动换行. oex1.activesheet.columns i .WrapText .t. 设置此列单元格为自动换行. endif IF dbfarray i,2 C oex1.activesheet.columns i .numberformatlocal