VF中控制EXCEL的常用操作.doc

VF中控制EXCEL的常用操作 myexcel=createobject(excel.application)创建一个对象myexcel.visible=.t.可见bookexcel=myexcel.workbooks.addbookexcel=myexcel.workbooks.open(C:\Documents and Settings\Administrator\桌面\学习\dd.xls)打开指定文件nrows=bookexcel.worksheets(sheet1)打开工作表UsedRange =nrows.UsedRange返回工作表中可使用的区域，UsedRange表的属性 usedrange.columns.count计算共几列r=usedrange.rows.count汇总行c=usedrange.columns.count汇总列with myexcel.application.sheets(sheet3).select.sheets.add添加一个工作表.ActiveSheet.Name = ddddd重命名表endwithmyexcel.Worksheets(sheet1).Activate选择表为当前工作表myexcel.cells(1,1).value=sss1,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).Font.name=黑体设置字体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).ClearContentsmyexcel.activesheet.Columns(A:B).Select整列选中myexcel.Selection.NumberFormatLocal=@?? 设置选中的区域为字符型数据myexcel.activesheet.rows(1).selectmyexcel.Selection.EntireRow.Delete删除选中的行myexcel.Selection.columns(1).Delete删除第几的列myexcel.workbooks.close关闭工作区*myexcel.workbooks.close(.f.)关闭工作区不提示保存myexcel.quitexcel *********************************************************生成一个表并显示可用的sheetsoExcel = CREATE(Excel.Application)oExcel.Workbooks.ADDFOR EACH oMyVar IN oExcel.sheets?? ? oMyVar.nameNEXT oMyVar 在?VFP?中控制?Excel?的小小经验集 获取工作表名称在以下示例中，创建了一个 microsoft excel 实例，添加了一个新的工作簿。使用 foreach 语句显示工作簿中每个工作表的名称。此示例要求在运行示例的机器上正确安装 microsoft excel。oExcel = CREATE(Excel.Application)oExcel.Workbooks.ADDFOR EACH oMyVar IN oExcel.sheets?? ? oMyVar.nameNEXT oMyVar Excel报表巧生成巧让FoxPro数据生成Excel报表Visual FoxPro是应用广泛的前台数据库开发平台之一，因此在我们日常工作中时常会遇到DBF数据文件。然而随着办公自动化的普及，越来越多的时候需要将DBF文件转化为Excel电子文档。常用转化方法是在FoxPro中用Copy命令进行格式转化或直接用Excel打开DBF文件。这两种