VFP全面控制EXCEL(完全版)

1 

VFP

全面控制

EXCEL 

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 &&

设置第

50

行至

100

行的

高度

*!* 10

．在第

18

行之前插入分页符

oExcel.Worksheets("Sheet1").Rows(18).PageBreak=1 

*!* 11

．在第

4

列之前删除分页符

oExcel.ActiveSheet.Columns(4).PageBreak=0