资源描述：
《在VFP中直接来控制Excel.doc》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、在VFP中直接来控制Excel（转载）*!*VFP和Excel都可以用来进行处理数据库表格，如果巧妙地将二者的优点结合起来，将会大大方便我们的工作。比如我们可以利用VFP进行处理数据，而利用Excel的预览打印功能进行报表打印。这就需要我们在VFP中直接来控制Excel。下面就在开发VFP应用项目时对Excel的控制作一下介绍： oExcel=Createobject("Excel.application")&&创建Excel对象 **对象属性oExcel.Visible=.T.&&显示Excel窗口oExcel.Cap
2、tion="VFP应用程序调用MicrosoftExcel"&&更改Excel标题栏oExcel.DisplayAlerts=.F.&&关闭提示和警告消息，运行结束后，应将本属性设置回True值oExcel.cells(1,4).Value=XM(XM为数据库字段名)&&给单元格赋值 **Workbooks属性oExcel.Workbooks.Add&&添加新工作簿oExcel.Workbooks.Open("c:templl.xls")&&打开指定工作簿oExcel.Workbooks.Close&&关闭工作簿oE
3、xcel.Quit&&退出ExcelReleaseoExcel&&只有释放对象变量,EXCEL进程才会完全关闭 **Worksheets属性oExcel.Worksheets("sheet3").Activate&&设置第3个工作表为激活工作表oExcel.Worksheets("Sheet1").Rows(18).PageBreak=1&&在第18行之前插入分页符oExcel.WorkSheet("Sheet2").Range("A1").PasteSpecial&&粘贴**ActiveWorkbook属性oExcel
4、.ActiveWorkbook.SaveAs("c:temp22.xls")&&工作表另存为oExcel.ActiveWorkbook.saved=.T.&&放弃存盘,避免出现保存对话框oExcel.ActiveWorkbook.Save&&存盘oExcel.ActiveWorkbook.Close(.F.)&&关闭工作簿oExcel.ActiveWorkbook.Protect('密码',.T.,.T.)&&保护工作薄(第一个.T.：保护工作簿结构,第二个.T.：保护工作簿窗口) **ActiveSheet属性oE
5、xcel.ActiveSheet.UsedRange.Copy&&拷贝整个工作表oExcel.ActiveSheet.PrintPreview&&打印预览工作表oExcel.ActiveSheet.PrintOut&&打印输出工作表oExcel.ActiveSheet.Protect('密码',.T.,.T.,.T.,.T.,.T.,.T.,.T.,.T.,.T.,.T.,.T.,.T.,.T.,.T.,.T.)&&保护工作表oExcel.ActiveSheet.Protection.AllowEditRanges.Ad
6、d("区域3",oExcel.ActiveSheet.Range("A2:D5"))&&设置允许用户编辑区域 **表格列属性oExcel.ActiveSheet.Columns(2).Insert&&在第2列之前插入一列oExcel.ActiveSheet.Columns(1).ColumnWidth=5&&设置指定列的宽度(单位：字符个数)oExcel.ActiveSheet.Columns(4).PageBreak=0&&在第4列之前删除分页符oExcel.ActiveSheet.Columns(1).Font.Bo
7、ld=.T.&&设置整列字体为粗体 **表格行属性oExcel.ActiveSheet.Rows(2).Insert&&在第2行之前插入一行oExcel.ActiveSheet.Rows(1).RowHeight=1&&设置指定行的高度(单位：磅)(设定行高为1磅，1磅=0.035厘米)oExcel.ActiveSheet.Rows("50:100").RowHeight=1&&设置第50行至100行的高度 **表格范围属性oExcel.Range("A4:c4").HorizontalAlignment=1&&水平(1
8、-默认、2-靠左、3-居中、4-靠右、5-填充、6=两端对齐、7=跨列居中、8=分散对齐)oExcel.Range("A4:c4").VerticalAlignment=2&&垂直(1=靠上、2=居中、3=靠下、4=两端对齐、5=分散对齐)oExcel.Range("A4:C4").WrapText=.F.&&文本自
