余小章 @ 大內殿堂

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

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.執行結果如下，不管工作表有沒有被隱藏，都一覽無遺了

 

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

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

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