VF中控制EXCEL的常用操作

VF中控制EXCEL的常用操作

myexcel=createobject('excel.application')

&&创建一个对象

myexcel.visible=.t.&&可见

&&bookexcel=myexcel.workbooks.add

bookexcel=myexcel.workbooks.open("C:\Documents and

Settings\Administrator\桌面\学习\dd.xls")

&&打开指定文件

nrows=bookexcel.worksheets('sheet1')&&打开工作表

UsedRange =edRange&&返回工作表中可使用的区域，UsedRange表的属性

usedrange.columns.count&&计算共几列

r=usedrange.rows.count&&汇总行

c=usedrange.columns.count&&汇总列

with myexcel.application

.sheets('sheet3').select

.sheets.add&&添加一个工作表

= 'ddddd'&&重命名表

endwith

myexcel.Worksheets('sheet1').Activate&&选择表为当前工作表

myexcel.cells(1,1).value='sss'&&1,1处的值为

myexcel.activesheet.columns(2).columnwidth=15&&第2列的列宽设myexcel.activesheet.rows(2).rowheight=50&&设第2行的行高

myexcel.activesheet.rows(2).insert&&第2行前插入一行

myexcel.activesheet.columns(2).insert&&第2列前插入一列

myexcel.activesheet.Cells(1,1).Font.size=25&&设置1，1的字体大小myexcel.activesheet.Cells(1,1)='黑体'&&设置字体

myexcel.activesheet.Cells(1,1).clear&&清除内容

myexcel.activesheet.range('A1:C2').select&&选择区域

myexcel.selection.merge &&选择区域合并单元格

myexcel.Range('a1').Formula='=sum(b2,b3,b4,b5)'&&在A1中键入一个公式

myexcel.range('a1').ClearContents

myexcel.activesheet.Columns('A:B').Select&&整列选中

myexcel.Selection.NumberFormatLocal="@" &&设置选中的区域为字符型数据

myexcel.activesheet.rows(1).select

myexcel.Selection.EntireRow.Delete&&删除选中的行

myexcel.Selection.columns(1).Delete&&删除第几的列

myexcel.workbooks.close&&关闭工作区

*myexcel.workbooks.close(.f.)&&关闭工作区不提示保存

myexcel.quit&&excel

********************************************************

*生成一个表并显示可用的sheets

&&oExcel = CREATE("Excel.Application")

&&oExcel.Workbooks.ADD

&&FOR EACH oMyVar IN oExcel.sheets

&& ?

&&NEXT oMyVar

在 VFP 中控制 Excel 的小小经验集

获取工作表名称

在以下示例中，创建了一个 microsoft excel 实例，添加了一个新的工作簿。使用 foreach 语句显示工作簿中每个工作表的名称。此示例要求在运行示例的机器上正确安装 microsoft excel。

oExcel = CREATE("Excel.Application")

oExcel.Workbooks.ADD

FOR EACH oMyVar IN oExcel.sheets

?

NEXT oMyVar

Excel报表巧生成

巧让FoxPro数据生成Excel报表

Visual FoxPro是应用广泛的前台数据库开发平台之一，因此在我们日常工作中时常会遇到DBF数据文件。然而随着办公自动化的普及，越来越多的时候需要将DBF文件转化为Excel电子文档。常用转化方法是在FoxPro中用Copy命令进行格式转化或直接用Excel打开DBF文件。这两种方式虽然都能达到目的，却不能得到格式规范、可以直接打印输出的报表，且输出的Excel文件中，无法对数据类型进行有效转换，极易出现数据统计错误。有没有更好的方法呢？这里有一个更加通用的方法，在VFP中调用Excel，可以由DBF文件直接生成格式如下图所示一样复杂的Excel报表(如图1)。 Excel报表

具体过程如下：

编辑推荐文章

● 新鲜接触Excel 2000 XP

● Excel 2000公式应用的几条经验

● Excel 2000函数应用之信息函数

假设我们要将表Agcallop.dbf文件输出为Excel格式文档，报表形如图1所示。为使通用性更强，页面采用A4纸横向输出，默认字体为宋体10号，页脚处添加页号。

部分程序代码如下：

m.outfilename=putfile('输出结果','agcallop','xls')

&&取导出文件名称