您的位置:首页 > 其它

Excel 操作常用总结(更新中!!)

2008-11-07 10:09 351 查看
Excel基本操作常用总结
1.添加引用--com---microsoft excel 11.0 object library
2在需要访问excel的过程中定义
dim exapp as excel.application '定义excel应用程序
dim exbook as excel.workbook ‘定义工作簿
dim exsheet as excel.worksheet ‘定义工作表
dim exrange as excel.range '定义工作区域
3.有了上面的定义,基本上excel的操作就手到擒来了
exapp.visible=true '显示excel 程序
excelAppl.ScreenUpdating = False/TRUE '提高速度
exbook=exapp.workbooks.add() '添加新工作簿
或exbook=exapp.workbooks.open("薄名") ' 打开已在工作薄
exsheet=exbook.sheets(n) '获得第n个工作表的控制句柄,后面就由它处理了
exsheet.cells(row,col)=值 '对指定单元格赋值,这个操作大量出现哦
exsheet.range(cells,cells).font '这个属性也常用到,设置格式就是它了:
exsheet.range(cells,cells).font.colorindex=3 '设置颜色
exsheet.range(cells,cells).Borders.LineStyle=1 '设边框线
exsheet.range(cells,cells).EntireColumn.AutoFit() '自动列宽 /可以改为自动行高哦
exsheet.range(cells,cells).merge '合并单元格,复杂的表格这个也用的多哦
exsheet.range(cells,cells).HorizontalAlignment=3 '水平居中 ,当然也可以改为垂直的
exSheet.PageSetup.Orientation = 2 '页面横向
sheet 的操作
1. excelBook.Worksheets(1).Copy(After:=excelBook.Sheets(1)) 'sheet 拷贝,下标从1开始
2. excelBook.Application.DisplayAlerts = False '删除sheet的时候 一定要加上这个否则删除不掉
excelBook.Worksheets(sheetName).delete() 'sheet 删除,我现在用的版本用下标删除不掉绑定数据
.Range(.Cells(1, 1), .Cells(1, 50)).Value '用range的方式绑定数据,比循环每个单元格的速度快
3.删除图形
objExcelBook.Sheets(0).Shapes("maruyiSale").Select()
objExcelBook.Sheets(0).Shapes("maruyiSale").Delete()
熟练以上这些,基本上就可以实现一些要求了。
4。最后是保存文件
exsheet.saveas("文件名")

exbook.save()
5.清理变量
exsheet=nothing
exbook.close
exbook=nothing
exapp.quit
exapp=nothing

6.无法导入Microsoft Excel 11.0 Object Library 问题的解决

原因在于装office先于装.net框架,这样的话office默认不安装支持.net开发工具的.dll文件,解决方法就是,1、先于office安装.net框架。2、如果是先安装的office,就在安装.net框架后再运行office安装程序,选择添加功能,在excel项目下,把支持.net开发xx的那项选上,记得选第一个安装到本机,然后更新office即可,想知道是否确实安装了,可以到x:/WINDOWS/assembly目录下,查找有没有Microsoft.Office.Interop.Excel如果有说明装上了,以后就可以正常使用了
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: