VF中控制EXCEL的常用操作
2009-09-22 13:34
330 查看
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 =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'&&重命名表
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).Font.name='黑体'&&设置字体
myexcel.activesheet.Cells(1,1).clear&&清除内容
myexcel.activesheet.range('A1:C2').select&&选择区域
myexcel.selection.merge &&选择区域合并单元格
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
&& ? oMyVar.name
&&NEXT oMyVar
&&创建一个对象
myexcel.visible=.t.&&可见
&&bookexcel=myexcel.workbooks.add
bookexcel=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'&&重命名表
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).Font.name='黑体'&&设置字体
myexcel.activesheet.Cells(1,1).clear&&清除内容
myexcel.activesheet.range('A1:C2').select&&选择区域
myexcel.selection.merge &&选择区域合并单元格
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
&& ? oMyVar.name
&&NEXT oMyVar
相关文章推荐
- Excel常用操作封装
- 【原创】.NET读写Excel工具Spire.Xls使用(4)对数据操作与控制
- Python脚本控制的WebDriver 常用操作 <十七> 获取测试对象的属性及内容
- Java中POI操作Excel常用方法
- 常用代码备份--OLE操作Excel之sheet复制
- excel 常用操作
- Python脚本控制的WebDriver 常用操作 <二十四> 定位frame中的元素
- POI操作Excel常用方法总结
- Python脚本控制的WebDriver 常用操作 <三> 浏览器最大化
- 4、VC控制EXCEL的基本操作之选择范围篇
- Python脚本控制的WebDriver 常用操作 <七>浏览器前进和后退操作
- POI操作Excel常用方法总结(转)
- Python脚本控制的WebDriver 常用操作 <十> 层级定位
- (c#)Excel常用格式操作
- POI操作Excel常用方法总结
- Python脚本控制的WebDriver 常用操作 <十五> 处理Navigation Bar
- POI操作Excel常用方法总结
- 操作EXCEL做账基本常用技巧
- [Unity]开发pc端中常用到的上下左右操作控制源码
- POI操作Excel常用方法总结