VBA实战(11) - 工作表(Sheet) 操作汇总

一、读取所有的 Sheet 页

下面案例为读取所有的 Sheet 页，检查是否有“模切绩效工资汇总表” Sheet 页。

' 打开数据源
Set originalWb = Workbooks.Open(originalFileStr)
Set oSheets = originalWb.Worksheets()
hasSheet = False
For i = 1 To oSheets.Count
    If "汇总表" = oSheets(i).Name Then
        hasSheet = True
    End If
Next
If hasSheet = False Then
    MsgBox (originalFileStr & "文件中没有找到名为'汇总表'的Sheet页,请检查选择的文件夹是否正确！")
    Range("D2").Select
    Exit Sub
End If

二、获取 一个 Sheet 页中有效的行数和列数

读取有效的行数
v_row_count = targetSh.UsedRange.Rows.Count
v_col_count = targetSh.UsedRange.Columns.Count

三、添加 Sheet 页

' 在Sheet页最后添加一个新的Sheet页
originalWb.Sheets.Add after:=Sheets(originalWb.Worksheets().Count)
originalWb.Sheets(originalWb.Worksheets().Count).Name = "核对"

' 在第一个之前添加一个新的Sheet页
targetWb.Sheets.Add before:=Sheets(1)
targetWb.Sheets(1).Name = "汇总报表"
targetWb.Sheets(1).Tab.ColorIndex = 3
targetWb.Sheets(1).Select

四、删除 Sheet 页

originalSh.Delete

五、设置 Sheet 页的背景色

targetWb.Sheets(1).Tab.ColorIndex = 3

六、分级

Selection.ClearOutline

七、判断 Sheet 表格是否被隐藏

For Each sh in Sheets
    if sh.Visible = False then

    end if
next

其他链接

VBA实战(10) - 日期处理汇总
VBA实战(09) - 工作簿（WorkBook）