在VFP中全面控制Excel

VFP和Excel都可以用来处理数据库表格。如果我们巧妙地把它们的优点结合起来，将会大大方便我们的工作。例如，我们可以使用VFP处理数据和Excel的预览打印功能打印报告。这就要求我们在VFP直接控制Excel。下面介绍开发VFP应用项目时对Excel的控制:

1.创建一个Excel对象

eole = CREATEOBJECT(′excel . application′)

2.添加新工作簿

eole。Workbooks.add

3.将第三张工作表设置为活动工作表。

eole。工作表(工作表3)。使活动

4.打开指定的工作簿。

eole。workbooks . Open(″c:\ temp \ ll . xls ″)

5.显示Excel窗口

eole.visible=.t。

6.更改Excel的标题栏

Eole。Caption=″VFP应用程序调用Microsoft Excel″

7.为单元格赋值

Eole.cells(1，4)。value=XM(XM是数据库字段名称)

8.设置指定列的宽度(单位:字符数)

eole。ActiveSheet .列(1)。列宽=5

9.设置指定线条的高度(单位:磅)

eole。ActiveSheet.Rows(1)。RowHeight=1/0.035

(行高设为1厘米，1磅= 0.035厘米)

10.在第18行之前插入分页符。

eole。工作表(工作表1)。行(18)。PageBreak=1

11.删除第四列前的分页符。

eole。活动表。列(4)。PageBreak=0

12.指定边框线条宽度(边框参数如下)

ole。ActiveSheet.Range(″b3:d3″)。边框(2)。重量=3

13.设置四条边界线的类型。

eole。ActiveSheet.Range(″b3:d3″)。边框(2)。线型=1

(其中边框参数:1-左，2-右，3-上，4-下，5-斜，6-斜/；线条值:1和7-细实线，2-细虚线，4-点虚线，9-双细实线)

14.设置标题。

EO . active sheet . page setup . center header = " Report 1 "

15.设置页脚

Eole。active sheet . page setup . center footer = " page & p "

16.将页眉到上边距设置为2厘米。

eole。active sheet . page setup . header margin = 2/0.035

17.将页脚的下边距设置为3厘米。

eole。active sheet . page setup . footer margin = 3/0.035

18.将上边距设置为2厘米。

eole。active sheet . page setup . top margin = 2/0.035

19.将底边距离设置为4厘米。

eole。active sheet . page setup . bottom margin = 4/0.035

20.将左边距设置为2厘米。

维奥利。active sheet . page setup . left margin = 2/0.035