[VBA] 如何 列舉 活頁簿中的工作表

[VBA] 如何 列舉 活頁簿中的工作表

1.下圖為Excel的工作表,咱們該如何得知活頁簿有哪些工作表

快照-2009630132746

2.利用以下程式碼,便可達到此功能

Private Sub SearchSheets()
Dim sh As Worksheet, i As Integer
Cells.Clear
'歷遍工作表
For Each sh In Worksheets
'若工作表名稱已包含"Sheet",則印出
If (InStr(1, sh.Name, "Sheet") > 0) Then
i = i + 1
Debug.Print sh.Name
Cells(i, 1).Value = sh.Name
End If
Next
End Sub

 

 

3.執行結果如下不管工作表有沒有被隱藏,都一覽無遺了

快照-2009630132635

 

4.範例下載:列舉活頁簿中的工作表.rar

若有謬誤,煩請告知,新手發帖請多包涵


Microsoft MVP Award 2010~2017 C# 第四季
Microsoft MVP Award 2018~2022 .NET

Image result for microsoft+mvp+logo