VFP全面控制EXCEL(转自CSDN).doc

VFP全面控制EXCEL 收藏
VFP和Excel都可以用来进行处理数据库表格,如果巧妙地将二者的优点结合起来,将会大大方便我们的工作。比如我们可以利用VFP进行处理数据,而利用Excel的预览打印功能进行报表打印。这就需要我们在VFP中直接来控制Excel。下面就在开发VFP应用项目时对Excel的控制作一下介绍:
*!*
oExcel=Createobject("")
*!*

 *!*
("sheet3").Activate
 *!*
("c:\temp\")
 *!*
=.T.
 *!*
="VFP应用程序调用Microsoft Excel"
 *!*
(1,4).Value=XM(XM为数据库字段名)
 *!* (单位:字符个数)
(1).ColumnWidth=5
 *!* (单位:磅)
(1).RowHeight=1
(设定行高为1磅,1磅=)
("50:100").RowHeight=1 &&设置第50行至100行的高度
 *!*
("Sheet1").Rows(18).PageBreak=1
 *!*
(4).PageBreak=0
 *!* (Borders参数如下)
("b3:d3").BorderS(2).Weight=3
*!*
("b3:d3").BorderS(2).LineStyle=1
(其中Borders参数:1-左、2-右、3-顶、4-底、5-斜、6-斜/;LineStyle值:1与7-细实、2-细虚、4-点虚、9-双细实线)
 *!*
="报表1"
 *!* (字体大小)
="&50报表1" &&'&'后面的50可以自定义,表示字体的大小
 *!*
="第&P页"
 *!* (字体大小)
="&28第&P页" &&'&'后面的28可以自定义,表示字体的大小
 *!*
=2/
 *!*
=3/
 *!*
=2/
 *!*
=4/
 *!*
=2/
 *!*
=2/
 *!*
=.T.
 *!*
=.T.