以下是我在处理 VFP 输出 EXCEL 报表是用的一段程序片段，以供参考。
如有更好的建议，亦请拿出来讨论讨论。
tmpsheet = GETOBJECT('','excel.sheet')if .not. ( type('tmpsheet')='O' ) && U 未能产生EXCEL对象 =messagebox( '创建报表失败！' + CHR(13) + CHR(13) + ; '请检查你的系统是否正确安装 EXCEL 软件！' + CHR(13) + CHR(13) + ; '请联络系统管理员' + CHR(13) + ; '', 48, '') returnendifxlapp = tmpsheet.APPLICATIONxlapp.VISIBLE = .f. =messagebox( '准备生成月帐单' + CHR(13) + CHR(13) + ; '日期：' + dtoc(tt_this_day) + CHR(13) + CHR(13) + ; '如有在使用 EXCEL ,请暂时不要使用打印预览功能！！！' + CHR(13) + CHR(13) + ; '报表生成的过程中，请暂时不要使用计算机！！！', 48, '')* wait wind '正在生成'+ form_title +'报表，请稍侯......' nowait ***! 创建excel打印对象 ***** xlapp.workbooks.ADD() xlapp.ActiveWindow.WindowState = 2 && 最大化 打开的工作本 xlsheet = xlapp.activesheet lc_name = allt(file_name_check( &temp_dls2_a..kh_mc )) xlsheet.name = lc_name ***! 创建excel打印对象 ***** xlsheet.Columns("A:G").Font.Size = 9 && 选择 列 xlsheet.Columns("A:A").ColumnWidth = 10 && 设置列 宽度 xlsheet.Columns("B:B").ColumnWidth = 15 && 设置列 宽度 xlsheet.Columns("C:C").ColumnWidth = 16 && 设置列 宽度 xlsheet.Columns("D:D").ColumnWidth = 16 && 设置列 宽度 xlsheet.Columns("E:E").ColumnWidth = 8 && 设置列 宽度 xlsheet.Columns("F:F").ColumnWidth = 10 && 设置列 宽度 xlsheet.Columns("G:G").ColumnWidth = 8 && 设置列 宽度 xlsheet.Columns("A:A").NumberFormatLocal = "@ " xlsheet.Columns("B:B").NumberFormatLocal = "@ " xlsheet.Columns("C:C").NumberFormatLocal = "@ " xlsheet.Columns("D:D").NumberFormatLocal = "@ " xlsheet.Columns("E:E").NumberFormatLocal = "0 " xlsheet.Columns("F:F").NumberFormatLocal = "0.00_ " xlsheet.Columns("G:G").NumberFormatLocal = "@ " xlsheet.Rows("5:5").ShrinkToFit = .t. && 自动收缩为适当尺寸以适应有效列宽 xlsheet.Rows("5:5").HorizontalAlignment = 3 && 水平 1左对齐,3居中,4右对齐 xlsheet.Rows("1:2").HorizontalAlignment = 3 && 水平 1左对齐,3居中,4右对齐* xlsheet.Columns("G:G").ShrinkToFit = .t. && 自动收缩为适当尺寸以适应有效列宽 ***! 设置页面信息 ***** In_Po = 0.0393700787401575 && 将度量单位从英寸转换为磅 基础单位： 0.0393700787401575英寸 -> 0.1磅 xlsheet.PageSetup.LeftMargin = xlapp.Application.InchesToPoints( In_Po * 10 ) xlsheet.PageSetup.RightMargin = xlapp.Application.InchesToPoints( In_Po * 10 ) xlsheet.PageSetup.TopMargin = xlapp.Application.InchesToPoints( In_Po * 10 ) xlsheet.PageSetup.BottomMargin = xlapp.Application.InchesToPoints( In_Po * 20 ) xlsheet.PageSetup.HeaderMargin = xlapp.Application.InchesToPoints( In_Po * 10 ) xlsheet.PageSetup.FooterMargin = xlapp.Application.InchesToPoints( In_Po * 10 ) xlsheet.PageSetup.Orientation = 1 && 设置打印方向： 1 纵向 2横向 xlsheet.PageSetup.PrintTitleRows = "$1:$7" && 设置 每页 的页头 xlsheet.PageSetup.RightFooter = "第 &P 页，共 &N 页" xlsheet.PageSetup.CenterHorizontally = .t. && 页面水平居中 ***! 设置页面信息 ***** ***! 生成打印内容 ***** xlsheet.Cells( 2,1).VALUE = "帐单时间:" + t_this_yy + '年 '+t_this_mm + '月' xlsheet.Cells( 3,1).VALUE = "客户名称："+ allt(&temp_dls2_a..khmc) xlsheet.Cells( 4,1).VALUE = "客户帐号："+ allt(&temp_dls2_a..zh) prn_line = 5 xlsheet.Cells( prn_line, 1).VALUE = "主叫号码" xlsheet.Cells( prn_line, 2).VALUE = "被叫号码" xlsheet.Cells( prn_line, 3).VALUE = "开始时间" xlsheet.Cells( prn_line, 4).VALUE = "结束时间" xlsheet.Cells( prn_line, 5).VALUE = "时长" xlsheet.Cells( prn_line, 6).VALUE = "话费（元）" xlsheet.Cells( prn_line, 7).VALUE = "计费标识" lc_min_col = 1 lc_max_col = 7 for lo_Col = lc_min_col to lc_max_col xlsheet.Cells( prn_line,lo_Col).Borders(4).Weight = 2 &&框线 宽度： 2细线 3粗线 endfor prn_line = prn_line + 1 lc_sum_brhj = 0 lc_sum_bybrlj = 0 sele &dbf_j_yjd_a count to max_sl sum &dbf_j_yjd_a..dj to sum_dj go top scan wait wind '处理'+ lc_name + ' 第'+ str(recno()) + ' 总数：'+str(max_sl) nowait xlsheet.Cells( prn_line, 1).VALUE = allt(&dbf_j_yjd_a..zjhm) xlsheet.Cells( prn_line, 2).VALUE = allt(&dbf_j_yjd_a..bdhm) xlsheet.Cells( prn_line, 3).VALUE = allt(&dbf_j_yjd_a..riqi) xlsheet.Cells( prn_line, 4).VALUE = allt(&dbf_j_yjd_a..riqi2) xlsheet.Cells( prn_line, 5).VALUE = &dbf_j_yjd_a..fz xlsheet.Cells( prn_line, 6).VALUE = &dbf_j_yjd_a..dj xlsheet.Cells( prn_line, 7).VALUE = allt(&dbf_j_yjd_a..jfbs) prn_line = prn_line + 1 endscan for lo_Col = lc_min_col to lc_max_col xlsheet.Cells( prn_line,lo_Col).Borders(3).Weight = 2 &&框线 宽度： 2细线 3粗线 endfor xlsheet.Range("A1:G1").MergeCells = .t. && 合并单元格 xlsheet.Range("A2:G2").MergeCells = .t. && 合并单元格 xlsheet.Range("A3:G3").MergeCells = .t. && 合并单元格 xlsheet.Range("A4:G4").MergeCells = .t. && 合并单元格 xlsheet.Range("A5:G5").MergeCells = .t. && 合并单元格 xlsheet.Rows("1:1").Font.Size = 11 && 选择 行 xlsheet.Rows("1:1").Font.Bold = .t. xlsheet.Rows("1:2").RowHeight = 18.00 && 设置行 宽度 xlsheet.Rows("4:4").HorizontalAlignment = 4 && 水平 1左对齐,3居中,4右对齐 xlsheet.Rows("5:5").HorizontalAlignment = 1 && 水平 1左对齐,3居中,4右对齐 *! 完成删除 提示按扭 ***** file_name = all_path + lc_name + '.xls' if file( file_name) = .t. ??chr(7) result=messagebox( file_name +'已存在，要替换该文件吗？ ', 4+48+256, '' ) if result=6 ERASE &file_name xlapp.activeWorkbook.SaveAs( file_name ) endif else xlapp.activeWorkbook.SaveAs( file_name ) endif xlapp.activeWorkbook.close(.f.)endifendscanxlapp = tmpsheet.APPLICATIONxlapp.activeWorkbook.close(.f.)xlapp.quit=messagebox( '已完成报表输出！', 48, '')return
猫猫的心里话
加菲猫的VFP|狐友会社群接收投稿啦
加菲猫的VFP，用VFP不局限VFP，用VFP混合一切。无论是VFP，还是JS，还是C，只要能混合起来，都可以发表。
商业模式，销售技巧、需求规划、产品设计的知识通通可以发表。
暂定千字50元红包，，优秀的文章红包更大，一经发表，红包到手。
如何帮助使用VFP的人？
用VFP的人，有专业的，有非专业了，很多人其实是小白，问出的问题是小白，如果问题不对，我们引导他们问正确的问题。无论如何请不要嘲笑他们说帮助都不看，这么简单的问题都不会，嘲笑别人不行，而无法提出建设性答案，是很low的。
我们无论工作需要，还是有自己的软件，都是是需要真正的知识，如何让更多人学习真正的VFP知识呢，只需要点赞，在看，能转发朋友圈就更好了。
加菲猫的vfp倡导用"VFP极简混合开发，少写代码、快速出活，用VFP，但不局限于VFP，各种语言混合开发"。
我已经带领一百多名会员成功掌到VFP的黑科技，进入了移动互联网时代，接下来我们要进入物联网领域。
2025年狐友会社群会员继续招募中
社群会员获取的权益有：
祺佑三层开发框架商业版（猫框），终身免费升级，终身技术支持。
开放的录播课程有：
微信小程序，微信公众号开发，H5 APP开发，Extjs BS开发，VFP面向对象进阶，VFP中间层开发。
源码类资源有：
支付组件源码，短信源码，权限组件源码，一些完整系统的源码。这个可以单独出售的，需要的可以联系我。
会员也可以实现群内资源对接，可以接分包，合作等各项商业或技术业务
