VFP全面控制EXCEL(完全版)

1、1.创建超过对象oExcel=创建对象(“电子表格应用程序”)2.添加新工作簿oExcel .工作簿。添加3.设置第3个工作表为激活工作表oExcel .工作表(”工作表3”).使活动4.打开指定工作簿oExcel .工作簿。打开( c:templl.xls )5.显示超过窗口oExcel .可见=。T6.更改超过标题栏oExcel .描述=VFP应用程序调用 Microsoft Excel 7.给单元格赋值细胞外基质细胞(1，4).值=XM(XM为数据库字段名)8.设置指定列的宽度（单位：字符个数)oExcel .活动工作表。列.列宽=59.设置指定行的高度（单位：磅)oExcel .活动工

2、作表。行.行高=1(设定行高为1磅，1磅=0.035厘米)oExcel .活动工作表。行(“50:100”).行高=1设置第50行至100行的高度10.在第18行之前插入分页符oExcel .工作表(”工作表1”).行(18).分页=111.在第4列之前删除分页符oExcel .活动工作表。列.分页=012.指定边框线宽度（边界参数如下)奥立。活动工作表。范围(“b3:d3”).BorderS(2).重量=313.设置四个边框线条的类型oExcel .活动工作表。范围(“b3:d3”).BorderS(2).线型=1（其中边界参数：1-左、2-右、3-顶、4-底、5-斜、6-斜/.线条样式值：

3、1与7-细实、2-细虚、4-点虚、9-双细实线)14.设置页眉oExcel .动态工作表。页面设置。中心标题=报表 1 15.设置页眉（字体大小)oExcel .活动工作表。页面设置。中心标题=50报表 1 后面的50可以自定义，表示字体的大小16.设置页脚oExcel .动态工作表。页面设置。中心页脚=第P页17.设置页脚（字体大小)oExcel .动态工作表。页面设置。中心页脚=28第P页 后面的28可以自定义，表示字体的大小18.设置页眉到顶端边距为2厘米oExcel .动态工作表。页面设置。头信息=2/0.03519.设置页脚到底边距为3厘米oExcel .活动页面。页面设置。脚注=3

4、/0.03520.设置顶边距为2厘米oExcel .活动工作表。页面设置。顶部边距=2/0.03521.设置底边距为4厘米oExcel .活动工作表。页面设置。底部边距=4/0.03522.设置左边距为2厘米oExcel .活动工作表。页面设置。左边距=2/0.03523.设置右边距为2厘米oExcel .活动工作表。页面设置。右边距=2/0.03524.设置页面水平居中oExcel .活动工作表。页面设置。中心水平=.25.设置页面垂直居中oExcel .活动页。页面设置。中心垂直=.26.设置页面纸张大小(1-窄行8 5 11 39-宽行14 11 9: A4)oExcel .活动工作表。

5、页面设置。纸张大小=127.打印单元格网线oExcel .活动工作表。页面设置。打印网格线=.28.拷贝整个工作表oExcel .活动工作表。使用范围。复制29.拷贝指定区域oExcel .活动工作表范围(“A1:E2”).复制30.粘贴oExcel .工作表(”工作表2”).范围(“A1”).PasteSpecial31.在第2行之前插入一行oExcel .活动工作表。行(2 ).插入32.在第2列之前插入一列oExcel .活动工作表。列(2 ).插入33.设置字体oExcel .活动工作表。单元格(2，1).字体。名称=黑体34.设置字体大小oExcel .活动工作表。单元格(1，1).

6、字体。大小=2535.设置字体为斜体oExcel .活动工作表。单元格(1，1).字体。斜体=.t36.设置整列字体为粗体oExcel .活动工作表。列.字体。粗体=.t37.清除单元格公式oExcel .活动工作表单元格(1，4).清除内容38.打印预览工作表oExcel .活动工作表。打印预览39.打印输出工作表oExcel .活动工作表。打印输出40.oExcel .命令栏.控件.儿童行动(18).执行打印（菜单序号18为Excel2003的打印项)不同版本超过的菜单序号可以通过以下程序取得*(需要在VFP7.0以上运行)oXls=Getobject(， excel.sheet )XlA

7、pp=oXLS .应用XlSheet=XlApp .活动工作表bars=xlapp .命令栏，计数Str1=对于i=1至条Str1=Str1 Chr(13) Alltrim(Str(i)、xlapp .命令栏.accName (NAME: xlapp .命令栏.名称索引： Alltrim(字符串(xlapp .命令栏.索引)bars2=mandbars(i).accChildCount对于j=1至bars2尝试obj=mandbars(i).控制(j)Str1=Str1 Chr(13) Alltrim(Str(j)、mandbars(i).

8、控制(j ).附件名称(ID: Alltrim(字符串)(XL应用程序.命令栏.控制(j ).Id)对于k=1到对象accChildCount尝试如果不为空。控制(k ).accname)Str1=Str1 Chr(13) Alltrim(Str(k)，控制(k ).accName(标识：Alltrim(字符串（对象。控制(k ).Id)Endif捕捉出口结束尝试结束捕捉出口结束尝试结束等待窗口全部调整（字符串(一)/全部调整（字符串（条形图)字符串（字符串/条形图*100，10，2) %不等待结束保存到Xls.txt全部像Str1修改命令Xls.txt返回41.工作表另存为oExcel .活

9、动工作簿。另存为(c : temp 22 . xls)*检测当前目录是否有同名的超过表，如果有先删除，再另存如果！文件(Sys(5)Credir()结果。xls)oExcel .活动工作簿。另存为(Sys(5)Credir()结果。xls)其他lcFileName=loExcel .GetSaveAsFilename(结果， Excel (* .xls)，* .xls)如果！空（文件名)如果文件（文件名)删除文件（文件名)EndifoExcel .活动工作簿。另存为(lcFileName)EndifEndif42.放弃存盘避免出现保存对话框oExcel .活动工作簿。已保存=。T43.存盘oE

10、xcel .活动工作簿。保存44.关闭工作簿oExcel .工作簿。关闭活动工作簿。关闭（.)45.退出超过oExcel .放弃发布oExcel只有释放对象变量，EXCEL进程才会完全关闭46.合并单元格oExcel .活动页范围(“A4:B5”).合并单元格=。T47.下列设置大家自己理解用crfole .动态工作表。页面设置。 LeftHeader=Chr(13)左页眉。中心标题=中页眉。RightHeader=右页眉。 LeftFooter=左页脚。页脚=中页脚。右页脚=右页脚。方向=1 1竖排，2横排结束于用crfole .范围(“A4:C4”)。合并单元格=。T。包装文本=。F。方向

11、=0。附件=。F。收缩率=0.5结束于48.文本对齐oExcel .范围(“A4:c4”).水平对齐=1水平(1-默认、2-靠左、3-居中、4-靠右、5-填充、6=两端对齐、7=跨列居中、8=分散对齐)oExcel .范围(“A4:c4”).垂直对齐=2垂直(1=靠上、2=居中、3=靠下、4=两端对齐、5=分散对齐)49.拷贝整个工作表（含格式)复制拷贝oExcel.sheets(1).挑选选择第一工作表oExcel .活动工作表。粘贴粘贴oExcel .活性片。细胞(3，4).价值活动单为当前的表工作薄名字，单元格(3，4).价值为第3行第4列的值*以上控制调用语句在中文VFP5.0企业版下

12、运行通过，运行环境为Excel 97及中文Windows 9850.显示某个单元格的批注内容oExcel=创建对象(“电子表格应用程序”)oExcel .工作簿。打开( d:TESTtesta.xls )oExcel .可见=。T？oExcel .范围(“B5”).注释。文本显示B5单元格的批注内容oExcel .工作簿。关闭oExcel .放弃发布oExcel51 .OExcel。动态页面。页面设置。打印标题行= 1: $ 1 每页都打印行标头（每页顶部出现的单元格的行)52.保护工作表：oExcel .活动工作表。保护（密码嘿。t.t.t.t.t.t.t.t.t.t.t.t.t.t.t.t.t.t.t .)53.保护工作薄oExcel .活动工作簿。保护（密码嘿。t.t .)第一个。t:保护工作簿结构第二个。t:保护工作簿窗口54.设置允许用户编辑区域oExcel .活动工作表。保护。允许更改。添加(”区域3 ，oExcel .活动工作表范围(“A2:D5”)55.如果不想在宏运行时被无穷无尽的提示和警告消