文档介绍：VFP全面控制EXCEL(完全版)
VFP全面控制EXCEL(完全版)
1 / 30
VFP全面控制EXCEL(完全版)
1．创建 Excel 对象
oExcel=Createobject("")
2．添加新工作簿
3．设置第 3 个工作表为激活工作表
("sheet3").Activate
4．打开指定工作簿
"c:\temp\")
5．显示 Excel 窗口
=.T.
6．更改 Excel 标题栏
="VFP 应用程序调用 Microsoft Excel"
7．给单元格赋值
(1,4).Value=XM(XM 为数据库字段名 )
8．设置指定列的宽度 (单位：字符个数 )
9．设置指定行的高度 (单位：磅 )
&&( 设定行高为 1 磅， 1 磅=厘米 )
"50:100").RowHeight=1 && 设置第 50 行至 100 行的高度
10．在第 18 行之前插入分页符
("Sheet1").Rows(18).PageBreak=1
11．在第 4 列之前删除分页符
指定边框线宽度 (Borders 参数如下 )
"b3:d3").BorderS(2).Weight=3
13．设置四个边框线条的类型
"b3:d3").BorderS(2).LineStyle=1
(其中 Borders 参数： 1－左、 2－右、 3－顶、 4－底、 5－斜、 6－斜 / ；LineStyle 值： 1 与 7－细实、 2－
细虚、 4－点虚、 9－双细实线 )
VFP全面控制EXCEL(完全版)
VFP全面控制EXCEL(完全版)
30 / 30
VFP全面控制EXCEL(完全版)
14．设置页眉
报表 1"
15．设置页眉 (字体大小 )
"&50 报表 1" &&'&' 后面的 50 可以自定义，表示字体的大小
16．设置页脚
"第&P 页"
( 字体大小 )
"&28 第 &P 页" &&'&' 后面的 28 可以自定义，表示字体的大小
18．设置页眉到顶端边距为 2 厘米
设置页脚到底边距为 3 厘米
设置顶边距为 2 厘米
设置底边距为 4 厘米
设置左边距为 2 厘米
设置右边距为 2 厘米
设置页面水平居中
设置页面垂直居中
设置页面纸张大小 (1－窄行 8 5 11 39－宽行 14 11 9:A4)
打印单元格网线
拷贝整个工作表
拷贝指定区域
"A1:E2").Copy
30．粘贴
("Sheet2").Range("A1").PasteSpecial
31．在第 2 行之前插入一行
在第 2 列之前插入一列
设置字体
VFP全面控制EXCEL(完全版)
VFP全面控制EXCEL(完全版)
3 / 30
VFP全面控制EXCEL(完全版)
"黑体"
VFP全面控制EXCEL(完全版)
VFP全面控制EXCEL(完全版)
30 / 30
VFP全面控制EXCEL(完全版)
34．设置字体大小
设置字体为斜体
设置整列字体为粗体
清除单元格公式
打印预览工作表
打印输出工作表
(1).Controls(1).accChild(18).Execute && 打印（菜单序号 18 为 Excel2003 的‘打印 ’项）
不同版本 Excel 的菜单序号可以通过以下程序取得
*( 需要在以上运行 )
oXls=Getobject("","")
XlApp=
XlSheet=
bars=
Str1=''
For i=1 To bars
Str1=Str1+Chr(13)+Alltrim(Str(i))+' 、'+(i).accName+'(NAME:'+(i).Name+' INDEX:'+Alltrim(Str(i).Index))+')'
bars2=(i).accChildCount
For j=1 To bars2