Excel基本操作常用总结

 1.添加引用--com---microsoft excel 11.0 object library

2在需要访问excel的过程中定义
dim oExcel as excel.application          '定义excel应用程序
dim obook as excel.workbook           ‘定义工作簿
dim oSheet as excel.worksheet         ‘定义工作表
dim oRange as excel.range              '定义工作区域

3.有了上面的定义，基本上excel的操作就手到擒来了
oExcel .visible=true                                       '显示excel 程序
excelAppl.ScreenUpdating = False/TRUE                    '提高速度
obook=oExcel .workbooks.add()                             '添加新工作簿   
或obook=oExcel .workbooks.open("薄名")                    ' 打开已在工作薄
oSheet=exbook.sheets(n)                                 '获得第n个工作表的控制句柄,后面就由它处理了
oSheet.cells(row,col)=值                                '对指定单元格赋值,这个操作大量出现哦
oSheet.range(cells,cells).font                          '这个属性也常用到，设置格式就是它了:
oSheet.range(cells,cells).font.colorindex=3             '设置颜色
oSheet.range(cells,cells).Borders.LineStyle=1           '设边框线
oSheet.range(cells,cells).EntireColumn.AutoFit()        '自动列宽  
oSheet.range(cells,cells).EntireRow.AutoFit()           '自动行高
oSheet.range(cells,cells).merge                         '合并单元格,复杂的表格这个也用的多哦

oSheet.range(cells,cells).HorizontalAlignment=3         '水平居中   ,当然也可以改为垂直的
oSheet.PageSetup.Orientation = 2                        '页面横向
sheet 的操作
1. obook.Worksheets(1).Copy(After:=obook.Sheets(1))   'sheet 拷贝，下标从1开始
2. obook.Application.DisplayAlerts = False                '删除sheet的时候 一定要加上这个否则删除不掉
   obook.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。最后是保存文件
oSheet.saveas("文件名")
或
obook.save()
5.清理变量
oSheet=nothing
obook.close
obook=nothing
oExcel .quit
oExcel =nothing
GC.Collect()