VFP全面控制EXCEL.doc

Forpersonaluseonlyinstudyandresearch;mercialuseVFP全面控制EXCEL新一篇: 关于身份证号码VFP和Excel都可以用来进行处理数据库表格,如果巧妙地将二者的优点结合起来,将会大大方便我们的工作。比如我们可以利用VFP进行处理数据,而利用Excel的预览打印功能进行报表打印。这就需要我们在VFP中直接来控制Excel。下面就在开发VFP应用项目时对Excel的控制作一下介绍:*!*=Createobject("")*!* *!*("sheet3").Activate *!*"c:\temp\") *!*=.T. *!*="VFP应用程序调用MicrosoftExcel" *!*(1,4).Value=XM(XM为数据库字段名) *!*(单位:字符个数) *!*(单位:磅)(设定行高为1磅,1磅=)"50:100").RowHeight=1&&设置第50行至100行的高度 *!*("Sheet1").Rows(18).PageBreak=1 *!* *!*(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可以自定义,表示字体的大小 *!* *!* *!* *!* *!* *!* *!* *!* *!*(1-窄行851139-宽行14119:A4) *!* *!* *!*"A1:E2").Copy *!*("Sheet2").Range("A1").PasteSpecial *!* *!* *!*,1).="黑体" *!*,1).=25 *!*,1).=.T. *!* *!*,4).ClearContents *!* *!* *!*(1).Controls(1).hild(18).Execute&&打印(菜单序号18为Excel2003的‘打印’项)&&不同版本Excel的菜单序号可以通过以下程序取得*()oXls=Getobject("","")XlApp===Str1=''Fori=1Tobars   Str1=Str1+Chr(13)+Alltrim(Str(i))+'、'+mandBars(i).ame+'(NAME:'+mandBars(i).Name+'INDEX:'+Alltrim(Str(mandBars(i).Index))+')'   bars2=mandbars(i).hildCount   Forj=1Tobars2       Try           obj=mandbars(i).Controls(j)           Str1=Str1+Chr(13)+''+Alltrim(Str(j))+'、'+mandbars(i).Controls(j).