《VFP操作Excel命令大全.doc》由会员分享，可在线阅读，更多相关《VFP操作Excel命令大全.doc（21页珍藏版）》请在金锄头文库上搜索。
1、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.Wo
2、rkbooks.Open(c:templl.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厘
3、米)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*!* 12指定边框线宽度(Borders参数如下)ole.ActiveSheet.Range(b3:d3).BorderS(2).Weight=3*!* 13设置四个边框线条的类型oExcel.ActiveSheet.Range(b
4、3:d3).BorderS(2).LineStyle=1(其中Borders参数：1左、2右、3顶、4底、5斜、6斜/；LineStyle值：1与7细实、2细虚、4点虚、9双细实线)*!* 14设置页眉oExcel.ActiveSheet.PageSetup.CenterHeader=报表1*!* 15设置页眉(字体大小)oExcel.ActiveSheet.PageSetup.CenterHeader=&50报表1 &后面的50可以自定义，表示字体的大小*!* 16设置页脚oExcel.ActiveSheet.PageSetup.CenterFooter=第&P页*!* 17.设置页脚(字体
5、大小)oExcel.ActiveSheet.PageSetup.CenterFooter=&28第&P页 &后面的28可以自定义，表示字体的大小*!* 18设置页眉到顶端边距为2厘米oExcel.ActiveSheet.PageSetup.HeaderMargin=2/0.035*!* 19设置页脚到底边距为3厘米oExcel.ActiveSheet.PageSetup.FooterMargin=3/0.035*!* 20设置顶边距为2厘米oExcel.ActiveSheet.PageSetup.TopMargin=2/0.035*!* 21设置底边距为4厘米oExcel.ActiveShee
6、t.PageSetup.BottomMargin=4/0.035*!* 22设置左边距为2厘米oExcel.ActiveSheet.PageSetup.LeftMargin=2/0.035*!* 23设置右边距为2厘米oExcel.ActiveSheet.PageSetup.RightMargin=2/0.035*!* 24设置页面水平居中oExcel.ActiveSheet.PageSetup.CenterHorizontally=.T.*!* 25设置页面垂直居中oExcel.ActiveSheet.PageSetup.CenterVertically=.T.*!* 26设置页面纸张大小(
7、1窄行8511 39宽行1411 9:A4)oExcel.ActiveSheet.PageSetup.Papersize=1*!* 27打印单元格网线oExcel.ActiveSheet.PageSetup.PrintGridlines=.T.*!* 28拷贝整个工作表oExcel.ActiveSheet.UsedRange.Copy*!* 29拷贝指定区域oExcel.ActiveSheet.Range(A1:E2).Copy*!* 30粘贴oExcel.WorkSheet(Sheet2).Range(A1).PasteSpecial*!* 31在第2行之前插入一行oExcel.Active
8、Sheet.Rows(2).Insert*!* 32在第2列之前插入一列oExcel.ActiveSheet.Columns(2).Insert*!* 33设置字体oExcel.ActiveSheet.Cells(2,1).Font.Name=黑体*!* 34设置字体大小oExcel.ActiveSheet.Cells(1,1).Font.Size=25*!* 35设置字体为斜体oExcel.ActiveSheet.Cells(1,1).Font.Italic=.T.*!* 36设置整列字体为粗体oExcel.ActiveSheet.Columns(1).Font.Bold=.T.*!* 37
9、清除单元格公式oExcel.ActiveSheet.Cells(1,4).ClearContents*!* 38打印预览工作表oExcel.ActiveSheet.PrintPreview*!* 39打印输出工作表oExcel.ActiveSheet.PrintOut*!* 40 oExcel.CommandBars(1).Controls(1).accChild(18).Execute &打印（菜单序号18为Excel2003的打印项）&不同版本Excel的菜单序号可以通过以下程序取得*(需要在VFP7.0以上运行)oXls=Getobject(,excel.sheet)XlApp=oXLS
10、.ApplicationXlSheet=XlApp.ActiveSheetbars=xlapp.CommandBars.CountStr1=For i=1 To bars Str1=Str1+Chr(13)+Alltrim(Str(i)+、+xlapp.CommandBars(i).accName+(NAME:+xlapp.CommandBars(i).Name+ INDEX:+Alltrim(Str(xlapp.CommandBars(i).Index)+) bars2=mandbars(i).accChildCount For j=1 To bars2 Try obj=mandbars(i
11、).Controls(j) Str1=Str1+Chr(13)+ +Alltrim(Str(j)+、+mandbars(i).Controls(j).accname+(ID:+Alltrim(Str(xlapp.CommandBars(i).Controls(j).Id)+) For k=1 To obj.accChildCount Try If Not Empty(obj.Controls(k).accname ) Str1=Str1+Chr(13)+ +Alltrim(Str(k)+、+obj.Controls(k).accName+ (ID：+ Alltrim(Str(obj.Contr
12、ols(k).Id)+) Endif Catch Exit Endtry Endfor Catch Exit Endtry Endfor Wait Windows Alltrim(Str(i)+ / +Alltrim(Str(bars)+ +Str(i/bars*100,10,2)+% NowaitEndforSave To Xls.txt All Like Str1Modify Command Xls.txtReturn*!* 41工作表另存为oExcel.ActiveWorkbook.SaveAs(c:temp22.xls)*检测当前目录是否有同名的EXCEL表，如果有先删除，再另存If
13、!File(Sys(5) + Curdir() + result.xls) oExcel.ActiveWorkbook.SaveAs(Sys(5) + Curdir() + result.xls)Else lcFileName = loExcel.GetSaveAsFilename(result, Excel (*.xls), *.xls) If !Empty(lcFileName) If File(lcFileName) Delete File (lcFileName) Endif oExcel.ActiveWorkbook.SaveAs(lcFileName) EndifEndif*!*
14、42放弃存盘 & 避免出现保存对话框oExcel.ActiveWorkbook.saved=.T.*!* 43存盘oExcel.ActiveWorkbook.Save*!* 44关闭工作簿oExcel.Workbooks.Closeobjexcel.activeworkbook.Close(.F.)*!* 45退出ExceloExcel.QuitRelease oExcel &只有释放对象变量, EXCEL进程才会完全关闭*!* 46合并单元格oExcel.ActiveSheet.Range(A4:B5).MergeCells=.T.*!* 47下列设置大家自己理解With crfole.ActiveSheet.PageSetup .LeftHeader = Chr(13)+左页眉 .Ce
