VFP全面控制ECEL分析和总结.pdfVIP

VFP 全面控制 EXCEL VFP 全面控制 EXCEL 分类： VFP - OFFICE2006-04-22 12:36 32139 人阅读 评 论(39) 收藏 举报 VFP 和 Excel 都可以用来进行处理数据库表格， 如果巧妙地 将二者的优点结合起来，将会大大方便我们的工作。比如我 们可以利用 VFP 进行处理数据， 而利用 Excel 的预览打印功 能进行报表打印。 这就需要我们在 VFP 中直接来控制 Excel 。 下面就在开发 VFP 应用项目时对 Excel 的控制作一下介绍： *!* 1 ．创建 Excel 对象 oExcel=Createobject(Excel.application) *!* 2 ．添加新工作簿 oExcel.Workbooks.Add *!* 3 ．设置第 3 个工作表为激活工作表 oExcel.Worksheets(sheet3).Activate *!* 4 ．打开指定工作簿 oExcel.Workbooks.Open(c:/temp/ll.xls) *!* 5 ．显示 Excel 窗口 oExcel.Visible=.T. *!* 6 ．更改 Excel 标题栏 oExcel.Caption=VFP 应用程序调用 Microsoft Excel *!* 7 ．给单元格赋值 oExcel.cells(1,4).Value=XM(XM 为数据库字段名 ) *!* 8 ．设置指定列的宽度 (单位：字符个数 ) oExcel.ActiveSheet.Columns(1).ColumnWidth=5 *!* 9 ．设置指定行的高度 (单位：磅 ) oExcel.ActiveSheet.Rows(1).RowHeight=1 (设定行高为 1 磅， 1 磅 =0.035 厘米 ) oExcel.ActiveSheet.Rows(50:100).RowHeight=1 amp;amp; 设置第 50 行至 100 行的高度 *!* 10 ．在第 18 行之前插入分页符 oExcel.Worksheets(Sheet1).Rows(18).PageBreak=1 *!* 11 ．在第 4 列之前删除分页符 oExcel.ActiveSheet.Columns(4).PageBreak=0 *!* 12 ．指定边框线宽度 (Borders 参数如下 ) ole.ActiveSheet.Range(b3:d3).BorderS(2).Weight=3 *!* 13 ．设置四个边框线条的类型 oExcel.ActiveSheet.Range(b3:d3).BorderS(2).LineStyle= 1 (其中 Borders 参数： 1－左、2 －右、3 －顶、4 －底、5 －斜、 6 －斜 / ；LineStyle 值： 1 与 7 －细实、 2 －细虚、 4 －点虚、 9 －双细实线 ) *!* 14 ．设置页眉 oExcel.ActiveSheet.PageSetup.CenterHeader= 报表 1 *!* 15 ．设置页眉 (字体大小 ) oExcel.ActiveSheet.PageSetup.CenterHeader=amp;50 报表 1 amp;amp;amp; 后面的 50 可以自定义， 表示字 体的大小 *!* 16 ．设置页脚 oExcel.ActiveSheet.PageSetup.CenterFooter=