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