①ActiveWorkbook的常见属性
ActiveWorkbook.Sheets.Count ’获取活动工作薄中工作表数
ActiveWorkbook.LinkSources(xlExcelLinks)(1) ‘返回当前工作簿中的第一条链接
ThisWorkbook.Worksheets(“sheet2”).Visible=xlSheetHidden ‘隐藏工作表，与在Excel菜单中执行“格式—工作表—隐藏”操作一样
(excel2010中0代表xlSheetHidden，2代表xlSheetVeryHidden)
ThisWorkbook.Worksheets(“sheet2”).Visible=xlSheetVeryHidden ‘隐藏工作表，不能通过在Excel菜单中执行“格式—工作表—取消隐藏”来重新显示工作表
ThisWorkbook.Worksheets(“sheet2”).Visible=xlSheetVisible ‘显示被隐藏的工作表
ThisWorkbook.Sheets(1).ProtectContents ‘检查工作表是否受到保护
②ActiveSheet对象常见属性
ActiveSheet.Columns("B").Cut '剪切B列
ActiveSheet.Columns("F").Insert ‘以上两句将B列数据移至F列，原C列后的数据左移
ActiveSheet.Range(“A:A”).EntireColumn.AutoFit ‘自动调整当前工作表A列的列宽
ActiveSheet.Cells.SpecialCells(xlCellTypeConstants,xlTextValues) ‘选中当前工作表中常量和文本单元格
ActiveSheet.Cells.SpecialCells(xlCellTypeConstants,xlErrors+xlTextValues) ‘选中当前工作表中常量和文本及错误值单元格
ActiveSheet.UsedRange.Rows.Count ‘当前工作表中已使用的行数
ThisWorkbook.Worksheets.Add ThisWorkbook.Worksheets(3), , 2 ‘在第3张工作表之前添加2个新的工作表
ActiveSheet.Move After:=ActiveWorkbook. _
Sheets(ActiveWorkbook.Sheets.Count) ’将当前工作表移至工作表的最后
Worksheets(Array(“sheet1”,”sheet2”)).Select ’同时选择工作表sheet1和sheet2
ActiveSheet.UsedRange.FormatConditions.Delete ‘删除当前工作表中应用的条件格式
Cells.Hyperlinks.Delete ‘取消当前工作表中所有单元格的超链接
ActiveSheet.PageSetup.RightFooter=ActiveWorkbook.FullName ‘在页脚显示文件的路径
ActiveSheet.PrintPreview Enablechanges:=False ‘禁用显示在Excel的“打印预览”窗口中的“设置”和“页边距”按钮。
ActiveSheet.UsedRange.Row ‘获取已使用的单元格区域的第一行的行号。
Come from http://www.dzwebs.net Article Url��http://www.dzwebs.net/2880.html