《VF中控制EXCEL的常用操作》由会员分享，可在线阅读，更多相关《VF中控制EXCEL的常用操作（40页珍藏版）》请在金锄头文库上搜索。
1、VF 中控制 EXCEL 的常用操作myexcel=createobject(excel.application) &创建一个对象myexcel.visible二.t.&可见 &bookexcel=myexcel.workbooks.add bookexcel=myexcel.workbooks.open(C:Documents and Setti ngsAdminis trator 桌面学习 dd.xls)&打开指定文件nrows二bookexcel.workshee ts(shee tl)& 打开工作表UsedRange二nrows.UsedRange&返回工作表中可使用的区域，UsedR
2、ange表的属 性usedrange.columns.cou nt&计算共几列r二usedrange.rows.cou nt& 汇总行 c二usedrange.columns.cou nt&汇总歹 U with myexcel.application .sheets(sheet3).select.shee ts.add&添加一个工作表.Ac tiveShee t.Name = ddddd &重命名表endwithmyexcel.Workshee ts(shee tl).Ac tiva te&选择表为当前工作表 myexcel.cells(1,1).value=sss&1,1 处的值为myexc
3、el.activesheet.columns(2).columnwidth=15&第 2 列的列宽设 myexcel.activesheet.rows(2).rowheight=50&设第 2 行的行高 myexcel.ac ti veshee t.rows(2).inser t& 第 2 行前插入一行 myexcel.ac ti veshee t.columns(2).inser t&第 2 列前插入一列 myexcel.ac tiveshee t.Cells(l,l).Fon t.size=25&设置 1, 1 的字体大小 myexcel.activesheet.Cells(1,1).Fo
4、nt.name= 黑体&设置字体 myexcel.ac ti veshee t.Cells(l,l).clear & 清除内容myexcel.ac ti veshee t.range(Al:C2).selec t&选择区域 myexcel.selection.merge&选择区域合并单元格myexcel.Range(al).Formula二二sum(b2,b3,b4,b5) &在 A1 中键入一个公式myexcel.range(a1).ClearContents myexcel.ac ti veshee t.Columns(A:B).Selec t&整列选中 myexcel.Selection
5、.NumberFormatLocal= &设置选中的区域为字符型数 据myexcel.activesheet.rows(1).select myexcel.Selec ti on.En tireRow.Dele te& 删除选中的行 myexcel.Selec tion.columns(1).Dele te&删除第几的列 myexcel.workbooks.close&关闭工作区*myexcel.workbooks.close(.f.) &关闭工作区不提示保存 myexcel.quit&excel *生成一个表并显示可用的sheets&oExcel = CREATE(Excel.Applica
6、tion)&oExcel.Workbooks.ADD&FOR EACH oMyVar IN oExcel.sheets&? oMyVar.name&NEXT oMyVar在VFP中控制Excel的小小经验集获取工作表名称在以下示例中，创建了一个 microsoft excel 实例，添加了一个新的工作簿。 使用 foreach 语句显示工作簿中每个工作表的名称。此示例要求在运行示例的 机器上正确安装 microsoft excel。oExcel = CREATE(Excel.Application)oExcel.Workbooks.ADDFOR EACH oMyVar IN oExcel.sh
7、eets? oMyVar.nameNEXT oMyVarExcel报表巧生成巧让FoxPro数据生成Excel报表Visual FoxPro是应用广泛的前台数据库开发平台之一，因此在我们日常工作中 时常会遇到DBF数据文件。然而随着办公自动化的普及，越来越多的时候需要将 DBF文件转化为Excel电子文档。常用转化方法是在FoxPro中用Copy命令进行 格式转化或直接用Excel打开DBF文件。这两种方式虽然都能达到目的，却不能 得到格式规范、可以直接打印输出的报表，且输出的Excel文件中，无法对数据 类型进行有效转换，极易出现数据统计错误。有没有更好的方法呢？这里有一个 更加通用的方法，
8、在VFP中调用Excel，可以由DBF文件直接生成格式如下图所 示一样复杂的Excel报表(如图1)。Excel报表具体过程如下： 编辑推荐文章 新鲜接触Excel 2000 XP Excel 2000公式应用的几条经验 Excel 2000函数应用之信息函数假设我们要将表Agcallop.dbf文件输出为Excel格式文档，报表形如图1 所示。为使通用性更强，页面采用A4纸横向输出，默认字体为宋体10号，页脚 处添加页号。部分程序代码如下：m.outf ilename二putf ile(输出结果， agcallop,xls) &取导出文件名称ef=CREATEOBJECT(Excel.app
9、lication)&调用Excel程序ef.Workbooks.add&添加工作簿ef.Worksheets(sheet1).Activate &激活第一个工作表ef.visible=.t.&显示 Excel 界面ef.Cells.Select&选择整张表ef.Selection.Font.Size = 10&设置整表默认字体大小为 10select 0use agcallop&选择被导出的表num=reccount()&求导出总记录数go topi=5ef.range(F1:K1).Select &选择标题栏所在单元格 ef.Selection.Merge&合并单元格with ef.rang
10、e(F1 )&设置标题及字体属性.value二客户服务部业务代表工作量情况统计表.Fon t.Name二黑体.Font.size=18endwithef.Rows(2).RowHeight=1/0.035 &设置第二行高度为 1cmef.range(H2:O2).Select&选定统计条件栏所在单元格ef.Selection.Merge&合并单元格ef.range(H2).Font.size=10ef.range(H2).HorizontalAlignment=4&设置内容对齐方式为右对齐,3 为居中，2 为右对齐ef.range(H2).value二统计时间:，+dtoc(date()+打印
11、日期: +dtoc(date()ef.Rows(3:4).Selectwith ef.Selection.HorizontalAlignment = 3&设置3、4 行为水平对齐.VerticalAlignment = 2 &垂直居中.NumberFormatLocal = &设置3、4 行为字符型内容 endwithef.Range(A3:A4).Select ef.Selection.Merge &纵向合并第一列 3、4 行 ef.Range(A3).value二工号 &设置第一列标题内容 ef.Columns(A).Select&整列选择 ef.Selection.HorizontalA
12、lignment = 3 &水平居中ef.Columns(A:B).Select ef.Selection.NumberFormatLocal = &设置A、B列为字符型内容 ef.Range(B3:B4).Select ef.Selection.Merge&纵向合并第二列 3、 4 行 ef.Range(B3).value= 姓名 &设置第二列标题内容 ef.Columns(B).Select&整列选择 ef.Selection.HorizontalAlignment = 3&水平居中 ef.Range(C3:E3).Select &横向合并第三行 C-E 列 ef.Selection.Me
13、rge ef.Range(C3).value= 话务总量 &第三行大标题为“话务总量”的列 ef.Range(C4).value= 电话呼入量&“话务总量”下第 1 个小标题“电话呼入量” ef.Range(D4).value= 电话呼出量&“话务总量”下第 2 个小标题“电话呼出量” ef.Range(E4).value= 合 计&“话务总量”下第3 个小标题“合计” ef.Range(F3:H3).Select ef.Selection.Merge ef.Range(F3).value= 话务总时间 ef.Range(F4).value= 呼入时间 ef.Range(G4).value=
14、呼出时间 ef.Range(H4).value= 合 计 ef.Range(I3:K3).Selectef.Selection.Mergeef.Range(I3).value二单个话务平均时间ef.Range(I4).value= 呼入时间ef.Range(J4).value= 呼出时间ef.Range(K4).value= 合 计 ef.Range(L3:L4).Select ef.Selection.Mergeef.Range(L3).value= 累计工作时间ef.Range(M3:M4).Select ef.Selection.Mergeef.Range(M3).value= 无效时间ef.Range(N3:N4).Selectef.Selection.Mergeef.Range(N3).value= 录入量ef.Range(O3:O4).Select ef.Selection.Mergeef.Range(O3).value= 有效时间比接下来通过 scan 语句，依次为每一行每一列单元格赋值。为了获得更好的打印 效果，还需进行页面设置，如标题行、页面居中、横向排版等，还可以加边框线。 以上程序在VFP 6+Excel 2000+Windows 2000下调试通过。实际应用中可根据需 要对各项参数设置进行相应调整。FOX控制EXCL文件另存为
